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

[Dr.Bronx]

این جناب جستجو رو دیدم گفت یک سلامی برسونم به شما . البته نگفت چرا

اما گفت که بهتون بگم vb رو با Run as administrator باز کنید .

موفق باشید ./

[skh1300]

سلام
دوستاني كه از ورژن 13.0.0 به بالا استفاده ميكنن با اين كد ميتونن استايل خودشون را مثل آفيس 2010 كنن

Private Sub setOffice2010Ribbon(paramCB As CommandBars)
    Dim ctrl            As CommandBarControl
    Dim rb              As RibbonBar

    With paramCB
        .EnableOffice2007Frame True
        .VisualTheme = xtpThemeRibbon
        Set rb = .ActiveMenuBar
        rb.EnableFrameTheme
    End With

    Set ctrl = rb.ControlSystemButton                        ' the round button
    ctrl.Style = xtpButtonCaption                            ' caption only, no picture
End Sub

[amir200h]

سلام به همه ی دوستان.
من در ویندوز7 وقتی کد نویسی می کنم با commandbar با پیغام زیر مواجه می شم. کسی میدونه دلیلش چیه؟

ممنونم
یا حق

[Dr.Bronx]

@amir200h
مشکل از vb هست . ربطی به codejock نداره .

دوباره نصب کنید vb رو حل میشه .

موفق باشید ./

[ali190]

باسلام خدمت اساتید گرامی

ضمن تشکر از جناب Hosna.Soft عزیز سه سئوال از codejock داشتم که میخواستم در اینجا مطرحشون کنم»
1- مثلاً فرض کنید که شما میخواهید یه دکمه درست کنید با اسم "گزارش پیشرفت"
زمانیکه با commandbardesigner این دکمه رو ایجاد میکنیم کپشن دکمه رو دوخطی میندازه ولو اینکه عرض دکمه هر چقدر بزرگ باشه

اما این مسئله در منویی که با کدنویسی بوجود اومده نیست
اینم راه حل داره که کپشن ها بصورت wrap نیفته؟
خواهشاً اگر مقدوره نمونه پیوستی رو اصلاح بفرمائید

2- من چطور میتونم دکمه های group و زیر مجموعه در منوی زیر درست کنم(از طریق کدنویسی)

3- از طریق کد نویسی زمانیکه یک تکست باکس در یک گروپ ایجاد میکنم چطور میتونم اندازه این تکست باکس رو از طریق کدنویسی تنظیم کنم(مثلاً ایجاد یک تکست باکس 5 سانتی جهت گرفتن آدرس دیتابیس ) و چطور میتونم یک دکمه درست در مقابل این تکست باکس قرار بدم (یک دکمه با کپشن ... جهت فراخوانی دیتابیس)

ممنون و متشکر از لطف شما

[Dr.Bronx]

1- من اصلا با designer کار نکردم و نخواهم کرد . کاملا دست آدم بسته میشه و از خیلی از کارهای دیگه می مونه . شما هم با کد درست کنید و خودتون رو از این مشکلات خلاص کنید .


2- اولا که توصیه می کنم نمونه های خود codejock رو حتما نگاه کنید . الان من همون کد ها رو اینجا کپی می کنم یا هم شما می تونید داخل نمونه خودش دنبال

Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Preview and print the document")

بگردید و کدهای اونجارو بررسی کنید . اما کدهاش اینهاست ( البته اضافه زیاد داره )

Set ControlPrint = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")

        ControlPrint.BeginGroup = True

        Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopu  pBarPage")

        Set ControlPrint.CommandBar = PopupBar

        Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Preview and print the document")

        Control.Width = 296

        Control.DefaultItem = True

        Control.Style = xtpButtonCaption

        PopupBar.DefaultButtonStyle = xtpButtonCaptionAndDescription

        PopupBar.SetIconSize 32, 32

        PopupBar.ShowGripper = False

        

        

        

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT, "Print Pre&view"

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_SETUP, "Pr&int Setup..."

        PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_PREVIEW, "Print Pre&view"

3-کنترل کردن width

بعد از اینکه کنترل رو ایجاد کردید .
control.width = 15

برای ایجاد کردن یک دکمه جلوی تکست باکس بعد ازایجاد تکست باکس و کلید بنویسید
Control.Flags = xtpFlagWrapRow

موفق باشید ./

[mahmood_s]

با سلام

تو ورژن Commandbar 13.4 منو شناور Quick Access کار نمیکنه؟

[ali190]

سلام
جناب hosna.soft عزیز ممنون از راهنماییتون

بعد از اینکه کنترل رو ایجاد کردید .
control.width = 15

برای ایجاد کردن یک دکمه جلوی تکست باکس بعد ازایجاد تکست باکس و کلید بنویسید
Control.Flags = xtpFlagWrapRow

موارد بالا رو در فایلم اعمال کردم ولی نتیجه نگرفتم
اندازه textbox تغییر نمیکنه ، یا اگر هم تغییر کنه از اندازه group بیرون میزنه
دکمه مورد نظر هم بتبع جلوی تکست باکس قرار نمیگیره

زمانی هم که منوی اصلی سیستم رو میسازم با اینکه ایکون ها رو 32*32 در نظر میگیرم ، منتها زمانیکه منو ایجاد میشه از 32*32 کوچکتر نشونش میده

فایل نمونه رو جهت اصلاح خدمتون آپلود کردم
ممنون و متشکر از لطف شما

[Dr.Bronx]

سلام ؛

برای اینکه کمی هم کنجکاو بشید نمیگم چه کار کردم .
خودتون با قبلی بررسی کنید ببینید چه فرقی کرده



موفق باشید ./

[ali190]

سلام
جناب hosna.soft ممنون از اینکه نمونه رو اصلاح فرمودید
مشکلم حل شد
در نمونه پیوستی زمانیکه بر روی دکمه ... کلیک میکنید پنجره commondiablog گشوده میشود
چطور میتونم بعد از انتخاب فایل مقدار تکست ایجاد شده در ribbon را مساوی با CommonDialog1.FileName قرار دهم؟
یا مثلاً هنگام لود شدن فرمم مقدار تکست را مساوی با تاریخ جاری سیستم قرار دهم
در ویدئوی آموزشیتون که لطف کرده بودید بعد از وارد کردن دستی مقدار در تکست باکس اکشن مد نظر انجام میشد
اما در اینجا من میخوام با کد مقداری را به این تکست نسبت دهم
ممنون ومتشکر از لطف شما
یاعلی

[AmirPasha_vb]

سلام
چرا تب Tray Icon در Suite Controls Sample توی ویستا کار نمیکنه ؟؟؟

کلا تمام برنامه هایی که نوشتم و یه بالون کنار ساعت روی آیکون برنامه باز میکردن توی ویستا این کارو نمیکنند ؟؟؟
چرا ؟

[amir200h]

سلام به همه ی دوستان.
می شه کاری کرد که وقتی روی دکمه ی دایره ای کلیک کریم به جای یک منو زیر هم 2 یا چند منو کنار هم باز بشه؟
ممنونم. یا حق

[vahid_khasal]

سلام
دوستاني كه از ورژن 13.0.0 به بالا استفاده ميكنن با اين كد ميتونن استايل خودشون را مثل آفيس 2010 كنن

Private Sub setOffice2010Ribbon(paramCB As CommandBars)
    Dim ctrl            As CommandBarControl
    Dim rb              As RibbonBar

    With paramCB
        .EnableOffice2007Frame True
        .VisualTheme = xtpThemeRibbon
        Set rb = .ActiveMenuBar
        rb.EnableFrameTheme
    End With

    Set ctrl = rb.ControlSystemButton                        ' the round button
    ctrl.Style = xtpButtonCaption                            ' caption only, no picture
End Sub

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

[amir200h]

سلام دوست من.
کد بالا به جای اینکه اون دکمه ی دایره ای رو نشون بده بچاش یک دکمه مثل تب با رنگ آبی ایچاد می کنه که همون کارو می کنه. نمونه شو می تونی تو ویندوز7 در برنامه paint یا office2010 ببینی.

[vahid_khasal]

درست.
انوقت اين كد ها رو تو ريبون بنويسيم ديگه؟

[amir200h]

سلام دوست من.
بله. من تو انتهای ریبون نوشتم جواب داد.
Dim ctrl As CommandBarControl
Dim rb As RibbonBar

With paramCB
.EnableOffice2007Frame True
.VisualTheme = xtpThemeRibbon
Set rb = .ActiveMenuBar
rb.EnableFrameTheme
End With

Set ctrl = rb.ControlSystemButton ' the round button
ctrl.Style = xtpButtonCaption
یا حق

[amir200h]

سلام به همه ی دوستان.
دو تا نکته رو من خودم جدیدن یاد گرفتم گفتم با شما هم در میونش بزارم.
سورسشو تو ضمینه گذاشتم همراه با توضیحات فارسی.

============================
اینو قبلا دوستان گذاشته بودن ولی توضیحی برای اینکه چطوری دستور روش بزارن نه.

امیدوارم تکراری نباشه

[amir200h]

سلام به همه ی دوستان.
این هم کد ساخت statusbar



امیدوارم تکراری نباشه

[Golsha]

سلام خدمت دوستان و سلام خدمت آقای mahmood_s . میخواستم خواهش کنم شما که از codejock v13.4 استفاده میکنید یه کمکی به من بکنید که بتونم منم ازش استفاده کنم یعنی کامپوننت های من trial هستن و نمی دونم چه طوری باید مشکلشون رو حل کنم . اگه امکان داره راهنماییم کنید تا مشکلم حل شه .

ممنون .

[amir200h]

سلام به همه دوستان.
اینم واسه کسایی که می خوان یه چیزی شبیه شکل زیر داشته باشن.
با توضیحات فارسی

امیدوارم تکراری نباشه

[ali190]

سلام amir200h عزیز
ممنون از آموزشهای عالی و کاربردیت
موفق باشی

[AmirPasha_vb]

سلام
چرا تب Tray Icon در Suite Controls Sample توی ویستا کار نمیکنه ؟؟؟

کلا تمام برنامه هایی که نوشتم و یه بالون کنار ساعت روی آیکون برنامه باز میکردن توی ویستا این کارو نمیکنند ؟؟؟
چرا ؟

دوستان میشه یه کمکی به من بکنید ؟
این گزینه توی ویستا برای من کار نمیکنه ؟ برای شما هم همین جوریه ؟
توی عکس مشخص کردم ...




تاپیک جدا هم زدم Tooltip Ballon در ویستا

[amir200h]

سلام به همه دوستان.

اگه می خواین یه چیزی تو مایه های شکل بالا داشته باشین که وقتی روی چک باکس کلیک کردید آیتم مورد نظر اضافه یا حذف بشه فقط کافیه کد زیر را وارد کنید

ribbonbar.QuickAccessControls.CreateOriginalContro ls

امیدوارم تکراری نباشه.
موفق باشین. یا حق

[amir200h]

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

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


امیدوارم تکراری نباشه.
موفق باشید. یا حق

[adib202]

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

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


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

سلام
بالاخره پیداش کردم.charsete فارسی فونت tahoma که کلی دنبالش بودم رو با این کد درش آوردم:

Private Sub Form_Load()

RibbonBar

For i = 1 To 255

Combo1.AddItem i

Next i

End Sub

 

Private Sub Combo1_Click()

CommandBars.Options.Font = "tahoma"

CommandBars.Options.Font.Bold = False

CommandBars.Options.Font.Size = "9"

CommandBars.Options.Font.Charset = Combo1.Text

End Sub

از اونجایی که کد های Charset از 1 تا 255 هستن برای بدست آوردن کاراکتر های فارسی از کد بالا استفاده کردم، تا Charset 178 جواب داد.خلاصه بگم اگه می خواین با فونت tahoma مشکلی نداشته باشین از این کد استفاده کنید:

CommandBars.Options.Font = "tahoma"

CommandBars.Options.Font.Bold = False

CommandBars.Options.Font.Size = "9"

CommandBars.Options.Font.Charset = 178

[hrj1981]

سلام ، دوستان 2 سوال دارم
1.اگه با Taskdialog کار کرده باشید وقتی یک پیغام رو نمایش میده و شما بخواهید بگید فوکوس رو به یک کنترل دیگه انتقال بدید پیغام خطای 5 رو نمایش میده ، به نظر شما این یه باگه یا مشکل خود وی بیه
2.اگه تو سمپلهای سایت codjock رو دیده باشید یه سمپل به نام انیمیشن گذاشتن که خیلی جالبه، میخوام بدون این سمپل با کدوم یکی از ابزارش تهیه شده
ممنون

[Golsha]

با عرض سلام خدمت دوستان ، ببخشید میشه راهنماییم کنید که چه طوری از رنگ LightBlue در استایل office2007.cjstyles در برنامه ام استفاده کنم . ( اگه اشتباه نکنم در یکی از سورس های خودش از این خاصیت به نام schema نام برده بود ) .

__________________________________________________ _____________________________________

در طوفان های زندگی با خدا بودن بهتر از ناخدا بودن است .

[amir200h]

سلام به همه ی دوستان.
من از ورژن 13.2.1 استفاده می کنم ولی به هیچ عنوان این ابزار تو وییندوز7 اجرا نمی شه. کسی دلیلشو نمیدونه؟
ممنونم.
یا حق

[skh1300]

سلام من هم از این ورژن استفاده میکردم اما در سون مشکل خطای حافظه را داشت و ترجیح دادم از ورژن پایینتر استفاده کنم.هر کاری کردم مشکل را نفهمیدم

[Dr.Bronx]

تنها دلیلی که این ابزار در ویندوز سون مشکل داره اینه که شما برنامه رو run as administrator رو اجرا نمی کنید .

موفق باشید ./

[amir200h]

سلام به همه ی دوستان.
من از طریق run as adminitrator اجرا کرده بودم در دو نسخه home و ultimate
در نسخه ی home پیغام run time C++‎ رو میداد
الان تو نسخه ی ultimate اصلا پیغام خطا هم نمیده.
از ورژن پایین تر هم استفاده کردم جواب نداد.
به چند نفر از دوستان هم که داده بودم اونها هم همین مشکلاتو داشتن.

[Ali_Prodes]

سلام به همه دوستان منجمله دوست گرامی جناب آقای Hosna.Soft

همینطور که دوستان می دونند هنگامی که بر روی RibbonBar راست کلیک می کنیم یک منویی به زبان انگلیسی ظاهر می شه با عناوین زیر

Add to Quick Access Toolbar
___________________________________
Customize Quick Access Toolbar
Show Quick Access Toolbar Below The Ribbon
__________________________________
Minimize the Ribbon

آیا راهی برای فارسی کردن آیتم های منویی که ذکر کردم هست؟ پیشاپیش از همه دوستانم ممنونم.

[amir200h]

سلام دوست من.
نه امکانش نیست که با این ابزار بتونی اینکارو کنی ولی یه ابزار دیگه هست که خیلی قوی تر از این ابزاره به نام DevExpress.XtraBars.v8.1 که می تونی دانلود کنی.
البته برای visual studio 2010 و چند زبان دیگه است. نمی دونم که تو ویژوال بیسیک6 اجرا می شه یا نه

[amir200h]

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

[Ali_Prodes]

با سلام خدمت دوستان

جواب سوالی رو که مطرح کردم پیدا کردم

برای تغییر متون انگلیسی منویی که بعد از راست کلیک بر روی ریبون ظاهر می شه

در انتهای سابروتین تعریف ریبون و بعد از درج کلیه دستورات ، کد های زیر را هم به شکل زیر اضافه کنید :

   

CommandBars.Actions.Add 9606,  "اضافه به نوار ابزار دسترسي سريع", "", "", ""

  

CommandBars.Actions(9606).Visible = True

    

CommandBars.Actions.Add 9607,  "سفارشي کردن نوار ابزار دسترسي سريع", "", "", ""

  

CommandBars.Actions(9607).Visible = True

    

CommandBars.Actions.Add 9610,  "نمايش نوار ابزار دسترسي سريع قبل از روبان", "", "", ""

  

CommandBars.Actions(9610).Visible = True

    

CommandBars.Actions.Add 9608,  "نمايش نوار ابزار دسترسي سريع بعد از روبان", "", "", ""

  

CommandBars.Actions(9608).Visible = True

    

CommandBars.Actions.Add 9612,  "کمينه سازي روبان", "", "", ""

  

CommandBars.Actions(9612).Visible = True

    

RibbonBar.ControlQuickAccess.Visible = True 

 

RibbonBar.AllowQuickAccessCustomization = True

    

CommandBars.Actions.Add 9616,  "دستورات بيشتر", "", "", ""

  

CommandBars.Actions(9616).Visible = True

    

CommandBars.Actions.Add 9617,  "نمايش نوار ابزار دسترسي سريع بعد از روبان", "", "", ""

  

CommandBars.Actions(9617).Visible = True

    

CommandBars.Actions.Add 9618,  "نمايش نوار ابزار دسترسي سريع قبل از روبان", "", "", ""



CommandBars.Actions(9618).Visible = True

 

برای نمایش منوی سفارشی سازی و فارسی کردن آیتم های منوی گفته شده به صورت بالا عمل کنید

تصاویر ضمیمه پست را ببینید

[Ali_Prodes]

با سلام

اگه قصد دارید که با راست کلیک بر روی ریبون اصلا منویی ظاهر نشه اول این دو خط کد رو

RibbonBar.ControlQuickAccess.Visible = False

RibbonBar.AllowQuickAccessCustomization = False

که تو پست قبل گفته بودم باید مقدارشون True باشه رو False می کنید و سابروتین زیر رو به پروژه خودتون اضافه می کنید

Private Sub CommandBars_ToolBarContextMenu(ByVal ToolBar As XtremeCommandBars.ICommandBar, ByVal ContextMenu As XtremeCommandBars.ICommandBar)

    ContextMenu.Controls.DeleteAll

End Sub

[mahmood_s]

تو ورژن 13.4 Quick Access Toolbar کار نمیکنه

[dr_jacky_2005]

من استفاده کردم
عالیه.
ولی وقتی میبرم توو یه سیستم دیگه،برنامه ران نیمشه
و میگه
barname.exe occured with problem.....

یا همچین چیزی!

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

ولی وقتی میرم توو سیستم دوم Codejock رو نصب میکنم،میشه!

دی ال ال ها هم کنار اگزه هستن!

[Ali_Prodes]

با سلام از هر ocx ی از Code Jock استفاده می کنید باید فایل های .License آنها رو هم در کنار ocx ها قرار بدید یا در sytem32 کپی کنید

و یا در ماژول کد اولین فرم پروژه ، سابروتین زیر را ساخته و به شکل زیر عمل کنید

Private Sub Form_Initialize()

    Call CodeJock_Lic

End Sub



Private Sub CodeJock_Lic()

SkinFrameworkGlobalSettings.License = "فایل .License را با نوت پد باز و متن موجود در آن را ،فقط پاراگراف اول را در اینجا وارد کنید"    

End Sub

[skh1300]

تنها دلیلی که این ابزار در ویندوز سون مشکل داره اینه که شما برنامه رو run as administrator رو اجرا نمی کنید .

موفق باشید ./

دوست عزیز این ورژن از کنترل با سون مشکل داره داخل تمام نسخه های سون امتحان کردم و همینجور که دوستمون گفت ارور run time C++‎‎ میده من خودم از ورژن پایینتر استفاده میکنم
موفق باشی یا علی