زیبا سازی برنامه ها با CodeJock

[Dr.Bronx]

بعد از این که تب ها و کلید ها تون رو گذاشتید
و قبل از تنظیم فونت و animation

موفق باشید ./

[shahmahi]

منم یک مشکل داشتم تو عکس مشخصه :



بعد یک سوال دیگه چطوری میشه مثل برنامه دوستمون tooltip داشته باشیم ؟


ممنون .

[aryasoft2872]

اگه میخوای توی اونجا تم ها رو بزاری:

  Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlP  opup, 2, "Themes")

  Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLUE, "Blue"

  Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLACK, "Black"

سوال دوم هم بعد از تعریف کنترلت تو خواصش 2 تا خاصیت هست یکی مال عنوان تولتیپ و یکی هم مال توضیحاتش:
1- Control.tooltiptext
2- Control.DescriptionText

[shahmahi]

سوال دوم هم بعد از تعریف کنترلت تو خواصش 2 تا خاصیت هست یکی مال عنوان تولتیپ و یکی هم مال توضیحاتش:
1- Control.tooltiptext
2- Control.DescriptionText

سلام
آقا من یکم مشکل دارم میشه همون عکسی که گذاشتی رو واسه برنامه جناب Dr.Bronx مثالش رو بزنی ، میخوام بدونم کدها رو باید کجا اضافه کنم .

ممنون

[aryasoft2872]

سوالی که بالا پرسیدم (ساخت تب برای MDI فورم ها) رو راه حلش رو پیداکردم گفتم بگم شاید به درد کسی خورد اول با این خط در فورم لود قابلیت رو فعال می کنید:

 

CommandBars1.ShowTabWorkspace True

حالا با این خاصیت می تونید tab ها رو کنترل کنید:

CommandBars1.TabWorkspace

برای سوالی هم که پرسیده بودید:

Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlP  opup, 2, "Themes")

   Control.ToolTipText = "تم هاي برنامه"

   Control.DescriptionText = "کليد ميانبر : آ"

[earse+erse]

الا یا دکتر عزیز ما . . .

آیا میشه ما خودمون یه اسکین بسازیم

اگه میشه که اگه بلدین خواهش می کنم یاد بدین
اگه نمیشه که بی خیال

[aryasoft2872]

ببخشید فضولی می کنم ولی نیازی به ساخت اسکین نیست چون شما می تونید حتی اسکین های ویندوز رو برای پروژه اتون لود کنید (همونطوری که اسکین های معمولی رو لود می کنید) و این یعنی یه دنیا پوسته ولی اگه بخواید باید برید و از سایت codejock پک کامل رو دانلود کنید داخل اون پک یک ابزاری هست برای ساخت اسکین با نام skinbuilder.
(این تاپیکم مرد خیلی کاربردی بود اگه ادامه داشت،ابزارهای codejock خیلی زیادن ولی اینجا 2 سه تا بیشتر بررسی نشد.)

[Hosna.Soft_old]

ببخشید فضولی می کنم ولی نیازی به ساخت اسکین نیست چون شما می تونید حتی اسکین های ویندوز رو برای پروژه اتون لود کنید (همونطوری که اسکین های معمولی رو لود می کنید) و این یعنی یه دنیا پوسته ولی اگه بخواید باید برید و از سایت codejock پک کامل رو دانلود کنید داخل اون پک یک ابزاری هست برای ساخت اسکین با نام skinbuilder.
(این تاپیکم مرد خیلی کاربردی بود اگه ادامه داشت،ابزارهای codejock خیلی زیادن ولی اینجا 2 سه تا بیشتر بررسی نشد.)

البته باید توجه داشته باشید که فونت های اونها ms san serif هست و باید خودتون تغییر بدید . چون برای زبان فارسی یکم چیزه

اما در مورد صحبت دوم شما باید عرض کنم که من قصد داشتم اون کار رو انجام بدم ولی دیدم اصلا استقبالی نمیشه و همه فقط ساخت ریبون و کار با اسکین فریم ورک رو می خوان و اصلا به فکر قدرت برنامه خودشون نیستن و فقط در فکر زیبا تر شدن برنامشون هستن.

باز هم اگر دوستانی علاقه مند هستند که ابزار های دیگه رو هم شروع کنیم مشکلی نیست .هم من و هم اساتید بزرگوار دیگری اینجا حظور دارند .

موفق و موید باشید ./

[earse+erse]

باز هم اگر دوستانی علاقه مند هستند که ابزار های دیگه رو هم شروع کنیم مشکلی نیست .هم من و هم اساتید بزرگوار دیگری اینجا حظور دارند .

سلام اقایان اساتید من علاقه مندم باید کجا رو امضا کنم؟!!!



این چرا این کلی میشه؟ راه حلی نداره؟

[Hamid Reza Rahimi]

سلام دوستان چطور میشه چند MessageBar داشت ؟ و چطور میشه یک MessageBar را غیر فعال کرد طوری وقتی مجددا فراخوانی میشه دیگه Message قبلی را نمایش نده

[vbhamed]

سلام

جناب Dr.Bronx عزيز

اين عكس مال برنامه نمونه خوتونه
فونت قسمتهايي كه دورش خط كشيدم عوض نميشه
ضمنا در همون قسمتها، اگر نخواهيم از ClearType فونت استفاده كنيم بازم نميشه
اگر ممكنه خود فايلهاي ocx رو جايي آپلود كنيم، چون با توجه به پست بعضي از بچه ها فكر كنم ورژن شما كمي تفاوت داره

[Hosna.Soft_old]

سلام اقایان اساتید من علاقه مندم باید کجا رو امضا کنم؟!!!



این چرا این شکلی میشه؟ راه حلی نداره؟

شما اینطوری بنویسید مشکلی وجود نداره دیگه

Dim Control As CommandBarControl

     Set ControlOptions = RibbonBar.Controls.add(xtpControlPopup, 0, "äãÇí ÓíÓÊã")

     ControlOptions.Flags = xtpFlagRightAlign

    

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10100, "ÂÈí")

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10101, "ãÔ˜í")

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10102, "äÞÑå Çí")

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10103, "˜æÇ")

سلام دوستان چطور میشه چند MessageBar داشت ؟ و چطور میشه یک MessageBar را غیر فعال کرد طوری وقتی مجددا فراخوانی میشه دیگه Message قبلی را نمایش نده

برنامه نمونه رو دانلود کنید . توی اون برنامه به طور کامل بررسی شده این موضوع

سلام

جناب Dr.Bronx عزیز

این عکس مال برنامه نمونه خوتونه
فونت قسمتهایی که دورش خط کشیدم عوض نمیشه
ضمنا در همون قسمتها، اگر نخواهیم از ClearType فونت استفاده کنیم بازم نمیشه
اگر ممکنه خود فایلهای ocx رو جایی آپلود کنیم، چون با توجه به پست بعضی از بچه ها فکر کنم ورژن شما کمی تفاوت داره

شما right to left مربوط به Commandbar رو true کنید
فکر می کنم به همون دلیل باشه
ورژن ها فرقی نمی کنه هم در ورژن 12.0.0 هم در 12.1.1 و هم در 13.0.0 تست کردم

با همین کد فونت همه تغییر می کنه

Me.CommandBar.Options.Font.Name = "B Homa"

    Me.CommandBar.Options.Font.Size = "9"

اگر نشد skin خود commandbar رو دوباره لود کنید

CommandBarsGlobalSettings.Office2007Images = ""

            CommandBar.PaintManager.RefreshMetrics          

CommandBar.RecalcLayout

موفق و موید باشید ./

[vbhamed]

شما right to left مربوط به Commandbar رو true کنید
فکر می کنم به همون دلیل باشه
ورژن ها فرقی نمی کنه هم در ورژن 12.0.0 هم در 12.1.1 و هم در 13.0.0 تست کردم

با همین کد فونت همه تغییر می کنه

Me.CommandBar.Options.Font.Name = "B Homa"

    Me.CommandBar.Options.Font.Size = "9"

اگر نشد skin خود commandbar رو دوباره لود کنید

CommandBarsGlobalSettings.Office2007Images = ""

            CommandBar.PaintManager.RefreshMetrics          

CommandBar.RecalcLayout

موفق و موید باشید .

سلام
همه اين كارها رو كردم باز هم نشد

[earse+erse]

شما اینطوری بنویسید مشکلی وجود نداره دیگه

Dim Control As CommandBarControl

     Set ControlOptions = RibbonBar.Controls.add(xtpControlPopup, 0, "äãÇí ÓíÓÊã")

     ControlOptions.Flags = xtpFlagRightAlign

    

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10100, "ÂÈí")

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10101, "ãÔ˜í")

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10102, "äÞÑå Çí")

     Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB  utton, 10103, "˜æÇ")

همون شد که بود باز هم همون مشکل لعنتی

[mpmsoft]

به شکل زیر می تونید فونت Tab ها و همچنین Group ها رو عوض کنید

    TabInsert.RibbonBar.RibbonPaintManager.CaptionFont  .Name = "Nazanin"

    RibbonBar.TabPaintManager.Font.Name = "Nazanin"

[Hamid Reza Rahimi]

دکتر جان سلام من از سمپل استفاده کردم ولی زمانیکه اون ساب message فراخوانی میشه مجددا به همن massege یک button جدید اضافه میشه و button قبلی از بین نمیره و در ضمن یک سوال دیگه چطور میشه یک تب مثل toolbox ویژوال دات نت درست کرد و در آن لیست و هر Objecte دیگری را قرار داد ؟

[shahmahi]

همون شد که بود باز هم همون مشکل لعنتی

كدها رو به اين شكل استفاده كن مشكلت حل ميشه :

Dim Control As CommandBarControl

Set ControlOptions = RibbonBar.Controls.Add(xtpControlPopup, 2, "Theme")

ControlOptions.Flags = xtpFlagRightAlign

Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlB  utton, 10100, "Blue")

Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlB  utton, 10101, "Black")

  

Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlB  utton, 10102, " Silver")

  

Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlB  utton, 10103, "Aqua")

[earse+erse]

shahmahi این حرکتت 200 امتیاز + داشت.

آقایان اساتید چه طوری می تونیم مولتی اسکین داشته باشیم در یک فرم؟

[REZADG]

این یک نمونه از ریبون که آماده کردم برای کسانی که هنوز با این ابزار مشکل دارند
اکثر موارد توی این نمونه هستش و می تونید از اون استفاده کنید.




این برنامه صرفا آزمایش می باشد و فقط جهت اهداف آموزشی استفاده می شود.




توجه : هیچ ابزاری در این نمونه قرار داده نشده است ....

Good Luck Friend(s)

nدکتر جو من این رو اجرا میکنم امام توی کد های TabWrite.Id = tab1 تا TabWrite.Id = tab2 ارور میده

[Hamid Reza Rahimi]

آيا در مورد كار با DockingPane سورس نمونه دارين ؟خيلي كارم گيره

[Hosna.Soft_old]

nدکتر جو من این رو اجرا میکنم امام توی کد های TabWrite.Id = tab1 تا TabWrite.Id = tab2 ارور میده

چه ارروری میده ؟

آیا در مورد کار با DockingPane سورس نمونه دارین ؟خیلی کارم گیره

توی همین صفحات دوم یا سوم آموزش دادم این رو که .

سلام دوستان چطور میشه چند MessageBar داشت ؟ و چطور میشه یک MessageBar را غیر فعال کرد طوری وقتی مجددا فراخوانی میشه دیگه Message قبلی را نمایش نده

CommandBar.MessageBar.Visible = Not CommandBar.MessageBar.Visible


موفق و موید باشید ./

[REZADG]

دکتر جون من این نمونه ی شما رو کمی تغییر دادم حالا یه مشکلی واسم پیش اومده ببین میتونی حلش کنی
فایل ضمیمه رو ببین
یا

اون بالارو میگم کپشنش رو میبینی قاطی پاطی با این که فونش رو عوض کردم اما باز ...


دکتر جون یه سوال دیگه چطوری به جای اون نوشته های بالا یعنی "باز کردن اطلاعات جدید " و اینا آیکن بزارم

[earse+erse]

سلام دکتر
با ابزار های Codejock نمیشه کاری کرد که فرم های شیشه ای Aero داشته باشیم
مثلا با اسکین ویستا

[adib202]

با سلام
من یه مشکلی که با این ابزار دارم اینه که توی mdi فرم نمیتونم از statusbar و تصویر زمینه ای که خودم می خوام استفاده کنم.می خوام بدونم با mdi فرم مشکل داره یا اصلا statusbar خاص خودش رو داره.لطفا کمک کنید

[abas1388]

سلام
با عنايت به تصوير پيوست ، در هنگام كليك راست بر روي كمند باتن يا آيكن هاي ريبون ، يك منوي شناور به نمايش در مي آيد . چگونه ميتوانيم از نمايش منوي فوق جلوگيري كنيم ؟
با تشكر

[earse+erse]

آقای دکتر گفته بود تو بک گراند نمیشه عکس گذاشت ولـــــــی میشه


اون پیکچر باکس رو انتخاب کنید و ایمیج باکس رو توش بزارین (مثل کاری که با Frame میکنیم

[kami_63]

سلام من یه سوال داشتم در مورد دیالوگ بار
من با این دستورات
Dim dlg As DialogBar
Set dlg = RibbonBar.CommandBars.AddDialogBar("Dialog bar", xtpBarLeft)
dlg.EnableDocking xtpFlagAlignLeft
dlg.Visible = True
دیالوگ رو میارم ولی نمی تونم بهش چیزی اضافه کنم مثل label یا comand
ممنون میشم اگه راهنمایی کنین

[alirezabahrami]

سلام
نياز به چند نمونه آيكون گزارش براي استفاده در RibbonBar دارم ; جستجوي زيادي نمودم ولي متأسفانه براي گزارش نتوانستم آيكوني مناسبي را پيدا كنم .
لذا دوستان اگر در اين خصوص مساعدت نمايند ممنون ميشوم .
با تشكر

[aryasoft2872]

این 3 تا رو ببین....

[Snoopboy]

با سلام و خسته نباشید . چطوری می تونیم تو برنامه مولتی اسکین استفاده کنیم؟

[Hosna.Soft_old]

آقای دکتر گفته بود تو بک گراند نمیشه عکس گذاشت ولـــــــی میشه


اون پیکچر باکس رو انتخاب کنید و ایمیج باکس رو توش بزارین (مثل کاری که با Frame میکنیم

من فکر کردم منظور شما خود ریبون هست
یعنی بکگراند ریبون رو تغییر بدید
خوب بله چیزی که شما میگید قطعا شدنیه !!!!

موفق باشید

[Snoopboy]

با سلام و خسته نباشد . یک سوال داشتم . چرا وقتی 2تا فرم روی پروژه هست . برای فرم دوم اسکین کار نمی کنه؟ . من حتا برای فرم دوم هم کد نویسی کردم ولی بازم چیزی نشون نداد . میشه کمک کنید؟ ممنون میشم :X

[aryasoft2872]

SkinFramework.AutoApplyNewThreads = True

SkinFramework.AutoApplyNewWindows = True

[Snoopboy]

SkinFramework.AutoApplyNewThreads = True

SkinFramework.AutoApplyNewWindows = True

این دستور مربوط به اسکین برای فرم جدید هست؟ کجا وارد کنم؟ تو لود فرم دومی یا فرم اولی ؟

[alirezabahrami]

سلام
با عنايت به تصوير پيوست ، در هنگام كليك راست بر روي كمند باتن يا آيكن هاي ريبون ، يك منوي شناور به نمايش در مي آيد . چگونه ميتوانيم از نمايش منوي فوق جلوگيري كنيم ؟
با تشكر

كد هاي زير را در قسمت () Private Sub CreateRibbo وارد كني درست ميشه!

    RibbonBar.AllowQuickAccessCustomization = False

    RibbonBar.AllowQuickAccessDuplicates = False

    RibbonBar.ShowQuickAccess = False

    RibbonBar.AllowMinimize = False

موفق باشيد

[aryasoft2872]

با سلام
اینطوری رک آدرس می دی مدیرهای محترم میان اینهو بولدزر از روش رد میش
بعد از این که پست های وارز پاک شد ،پ.خ بدید آدرس بدم ورژن 13.2.1 رو بگیرید (Controls,Skinframework,commandbar)
برای اون مستر محترمی که گفته بود توی کدوم فرم بزاریم اون 2تا خط کد رو،توی فرم اولی شی اسکین رو که گذاشتی نیازی نیست توی فرم دومی بزاری همون 2 خط رو توی فرم main می زاری بقیه فرم هایی که باز بشن اسکین می گیرن
راستی ما نفهمیدیم این مشکل دوست عزیزمون ARData چیه، آخه آدرس هایی که دکتر میده صحیحه احتمالا تو شلوغی پرشین گیگ رفته بودی باز نکرده.

[unforgiven]

سلام به همگي يه سوال داشتم در مورد treeview
چطور ميشه خصوصياتي مانند فونت توپر و رنگ فونت رو براي گره هاي چايلد اعمال كرد؟
اين خصوصيت رو براي ريشه تونستم انجام بدم ولي براي چايلد ها نميشه !
ممنون ميشم راهنمايي كنيد

[shahmahi]

سلام
آقا من يك سوال داشتم چطوري ميتونم Caption هاي Ribbon رو به صورت جدا جدا تغيير بدم مثلا بازدن يك Command عنوان يكي از دكمه هاي ريبون تغيير كنه و به همين شكل به تمام Caption ها دسترسي داشته باشم.

[vbhamed]

سلام

اگر يك جستجو در اينترنت كنيد مطمئنا لينك دانلودش رو پيدا مي كنيد
البته تو خود سايتش هم هست ولي ك.ر.ك رو بايد خودتون پيدا كنيد يا به صورت خصوصي از بچه هاي سايت بگيريد

رجيستر كردن OCX هم يعني ثبت اون در رجيستري ويندوز، يعني به نوعي شناسايي كامپوننت به ويندوز
براي اينكار برنامه c:\windows\system32\regsvr32.exe رو نوشته و نام و مسير فايل ocx رو هم جلوش بنويسيد

[alirezabahrami]

سلام
با عنايت به دو تصوير ضميمه ، آيا امكان اينكه بعد از كليك بر روي دكمه خروج كه بصورت علامت ضربدر در سمت راست ريبون تعبيه شده است زير منوي آن كه در در تصوير دوم بصورت خروج از سيستم است ظاهر نشود و در واقع بعد از كليك كردن بر روي دكمه فوق ، بدون اينكه زير منوي آن باز شود از برنامه خارج شد ؟
با تشكر