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

[Dr.Bronx]

آدرس سایت ابزار CodeJock

(http://www.codejock.com/products/overview.asp?platform=com)با سلام خدمت دوستان عزیز برنامه نویس
توی این تاپیک در مورد ابزار های CodeJock گفتگو می کنم
ظاهرا چند روزی هست توی فروم وی بی همه به دنبال ابزارهای برای زیبا سازی برنامه هاشون هستن
و خوب با ابزار های ضعیفی مثل Active Skin که مشکلات بسیار زیادی رو به همراه میاره مواجه میشن . خوب حالا چه کنیم
ابتدا از بهترین اکتیوکس این مجموعه شروع می کنیم با نام SkinFrameWork
خیلی وقتا اینو دیدیم ولی یکم ور رفتیم باهاش دیدیم نه بابا این اصلا معلوم نیست چه جوریه
حالا می خوایم اینجا بگیم که چه جوریه :تشویق:


به هیچ عنوان در تاپیک درخواست ابزار نکنید . می تونید با پیام خصوصی درخواست خودتون رو مطرح کنید ( البته فقط در مورد همین ابزار ).



خوب حالا یه پروژه جدید ایجاد کنید
دقت کنید این اسکین تمام فرم های برنامه - تمام ابزارها و هر چیزی رو که دارید تحت تاثیر قرار میده و نیازی نیست برای هر فرم کد جدا بنویسید فقط در فرم اصلی
در ضمن شما اگر برنامتون توی ویندوز 98 هم اجرا بشه باز هم با همین ظاهر هست

حالا ابزار Codejock.SkinFramework.v12.0.0.ocx
رو به برنامتون اضافه کنید
حالا یکی رو روی فرم قرار بدید
( ابتدا اسکین هارو از حالت زیپ خارج کنید و در پوشه ای با نام Skins در کناربرنامه ذخیره کنید )
برای مثال از اسکین Codejock.cjstyles استفاده می کنیم
حالا این کد ها رو در Form_Load بنویسید


Private Sub Form_Load()
Me.SkinFramework1.LoadSkin App.path + "\Skins\Codejock.cjstyles", ""
Me.SkinFramework1.ApplyWindow Me.hWnd
End Sub

بعد اینجوری میشه

:تشویق::تشویق::تشویق::تشویق::� �شویق::تشویق:
http://barnamenevis.org/forum/attachment.php?attachmentid=39092&stc=1&d=1256957080

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

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

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

[Dr.Bronx]

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

Codejock.Controls.v12.0.0.ocx رو به برنامه اضافه کنید.

http://barnamenevis.org/forum/attachment.php?attachmentid=39090&stc=1&d=1256955449

اول یکم در مورد property های این ابزار توضیح بدم.البته اونایی که به دردتون می خوره
اول Allowmove
وقتی این گزینه برابر با True باشه شما می تونید popup ایجاد شده رو حرکت بدید.

Animation
نوع ظاهر شدن کنترل هستش . ترجیحا xtpPopupAnimationFade

RighToLeft
که دیگه معلومه چیه :چشمک:

ShowDelay
این مدت زمانی هست که کنترل نشون داده میشه البته بر حسب میلی سانیه
5000 = 5 ثانیه

VisualTheme
مشکلی که این ابزار داره اینه که با ابزار Framework که در بالا توضیح داده شد هماهنگ نیست
پس باید اینجا شما مشخص کنید که از چه حالتی استفاده می کنید.ترجیحا : xtpPopupThemeOffice2007

خوب حالا میریم سراغ دستورات
نام کنترل رو به طور پیش فرض Popup1 در نظر می گیریم
برای اضافه کردن هر خط باید از دستور popup1.AddItem استفاده کنید
مثلا :
Popup1.AddItem 0, 0, 320, 200, "TEST"
بعد برای نشون دادن کنترل باید از دستور
Popup1.Show
استفاده کنید.

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

خوب حالا می خوایم فونت خط اول رو عوض کنیم . پس اینطوری عمل می کنیم
Popup1.Item(0).Font = "Tahoma"

حالا تغییر رنگ
Popup1.Item(0).TextColor = vbred

خودتون کارهای دیگه ای که با هر خط می تونید انجام بدید می تونید ببینید
Popup1.Item(0).

حالا خط دوم رو اضافه کنید
Popup1.AddItem 0, 0, 320, 200, "Line2"

روی هم میفته آره ؟
خوب حالا این دستور رو استفاده کنید
Popup1.Item(1).Top = 25

حالا باید چیزی مثله عکس زیر داشته باشید
http://barnamenevis.org/forum/attachment.php?attachmentid=39091&stc=1&d=1256801478

سوالی بود در خدمتم
موفق باشید

[hrj1981]

سوال در رابطه با منوها در زمان اجرای SkinFrameW
چرا زمانی که اسکین بر روی فرم می نشیند منوها حذف می گردد؟

[Dr.Bronx]

آفرین به شما
سوال بسیار خوبی کردید

دلیلش این هست که شما باید از منوهای خود Codejock استفاده کنید
منوهای بسیار عالی داره
بهترین نمونه هم در برنامه دفتر تلفن جناب mpmsoft (http://barnamenevis.org/forum/member.php?u=17067)هست
ولی باز هم چشم سعی می کنم که حتما یک آموزش برای اون قرار بدم
موفق باشید

[shahmahi]

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

[Dr.Bronx]

شما اکتیوکس ها رو به صورت دستی به ستاپ ساز انتقال بدید
به علت این که نام کنترل ها طولانی هستش و به صورت ~ در میان ستاپ سازها نمی تونن انهارو شناسایی کنند . ولی در مورد اسکین ها فکر نمی کنم مشکلی باشه . من زیاد استفاده کردم .
موفق باشید

[Dr.Bronx]

اینبار می خوام در مورد یک ابزار بسیار بسیار مفید صحبت کنم
اسم این ابزار Resizer هست _ در CodeJock Controls V12.0.0 موجود هست.
خوب قبل از توضیح این تصاویر رو نگاه کنید تا با کار این ابزار بیشتر آشنا بشید

تصویر اول : حالت ثابت

http://barnamenevis.org/forum/attachment.php?attachmentid=39187&stc=1&d=1256799556

تصویر دوم : Vertical Move

http://barnamenevis.org/forum/attachment.php?attachmentid=39188&stc=1&d=1256799556
تصویر سوم : Horizontal Move

http://barnamenevis.org/forum/attachment.php?attachmentid=39189&stc=1&d=1256799556
تصویر چهارم : Auto Resize

http://barnamenevis.org/forum/attachment.php?attachmentid=39190&stc=1&d=1256799556


خوب حالا از این ابزار چطوری میشه استفاده کرد ؟
حتی یک خط دستور هم نیاز نداره :گیج:
طبق سنوات گذشته یک پروژه جدید ایجاد کنید :بامزه:

این ابزار رو روی فرم قرار بدید به صورتی که تمام فرم رو پوشش بده
حالا روش راست کلیک کنید :دی

گزینه های
Enable Vertical Scroll و Enable Horizontal Scroll رو فعال کنید

با این دو ابزار می تونید ابزارهای روی فرم رو حرکت بدید !! یعنی ابزار های زیاد بزارید ولی نیاز نیست که فرم رو هم بزرگ کنید فقط کافیه که این دو گزینه رو فعال کنید.

گزینه Enable Autosize رو وقتی که علامت می زارید در زمانی که از کنار این ابزار که در عکس شماره 4 مشخص شده می گیرید و می کشید ابزار هم همراه با فرم بزرگ میشه.

گزینه Show SizeIcon رو وقتی فعال می کنید یک آیکون همون گوشه میاد که البته در عکس 4 هم مشخص هست برای راحت تر کردن عمل بزرگ و کوچک کردن فرم.

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

[shahmahi]

آقا یک سوال قسمتVisualTheme مربوط به ابزار Popup Contro رو وقتی رو حالت 5 بزاریم نوشته ها به شکل لینک در میان حالا چجوری از این خاصیت استفاده کنیم ؟ اگه میشه یک مثال واسش بزن .:چشمک:

[Dr.Bronx]

داشتم نا امید می شدم دیگه :دی

ببین مثلا اینو اضافه کردیم
pop.AddItem 0, 0, 320, 200, "Test"

حالا برای اینکه وقتی کاربر روی Test کلیک کرد کاری که ما می خوایم انجام بدیم اینجوری می نویسیم


Private Sub pop_ItemClick(ByVal Item As XtremeSuiteControls.IPopupControlItem)
If Item.Caption = "Test" Then MsgBox "HI MAN"
End Sub

:تشویق::تشویق::تشویق:

موفق باشید

[Cybersilent]

من این کنترل رو خیلی وقته دارم و ازش استفاده میکنم فقط نمیدونم چطوره از اسکرول بار هاش استفاده کنم
مثلا گذاشتن اونا برای FlexGrid اگه اونم آموزش بدی عالی میشه

[Dr.Bronx]

سلام به دوستان برنامه نویس
بالاخره از شر این پیغام سایت خلاص شدم و اومدم یک آموزش دیگه براتون بزارم .
امروز می خوایم در مورد ابزار ShurtcutBar صحبت کنیم.
خوب اول اصلا چی هست و به چه دردی می خوره.
حتما همتون ایمیل دارید و کم و بیش با سایت یاهو سر و کار داشتید
به عکس زیر توجه کنید.
http://barnamenevis.org/forum/attachment.php?attachmentid=39433&stc=1&d=1256812854

بله ShortCutbar این کار رو انجام میده . نمونه ی زیر رو مشاهده کنید .

http://barnamenevis.org/forum/attachment.php?attachmentid=39434&stc=1&d=1256812854
خوب حالا میریم سر اصل مطلب ( با اجازه بزرگتر ها :دی)
ببینید شما باید هر چیزی رو که نیاز دارید در یک فرم تعریف کنید
یعنی چی . ببینید مثلا شما می خواید مثل تصویر بالا از نمودار درختی استفاده کنید.
پس باید بیاید یک فرم درست کنید و هر چیزی رو که می خواید توش قرار بدید البته نسبت به اندازه ای ShurtCutbar رو تنظیم کردید. اینطوری

http://barnamenevis.org/forum/attachment.php?attachmentid=39435&stc=1&d=1256812854
خوب حالا باید اینهارو متصل کنیم به shortcutbar
اول برای راحتی کار و شلوغ نشدن میایم یک sub تعریف می کنیم

مثلا SCutBar

پس الان ما یک همچین چیزی داریم.

http://barnamenevis.org/forum/attachment.php?attachmentid=39436&stc=1&d=1256812854
حالا اولین کاری که باید انجام بدیم اینه
راستی :متفکر: پروژه جدید ایجاد کردین یا نه :شیطان:
خوب حالا اگر هم ایجاد نکردین یک عدد پروژه جدید ایجاد بفرمایید
یک ShurtCar bar روی فرم به اندازه لازم هم بزارید.
فرم هایی هم که می خواین این تو بیاد رو هم طراحی بفرمایید.

خوب ابزار که چیز خاصی نداره فقط اگه right to left فرمهاتون True هست برای این ابزار هم فعال کنید . و Visualtheme رو روی 3 قرار بدید.

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

اول :
Dim Item As ShortcutBarItem

خوب حالا بعد از این باید فرمها رو لود کنید
ما در نظر می گیریم که شما Form1 دارید

پس می نویسیم

Load Form1


حالا باید مقدار دهی کنیم . پس اینطور عمل می کنیم

Set Item = wndShortcutBar.AddItem(1, "Tasks", Form1.hWnd)

خوب اون عدد 1 که Index هست

Tasks هم که نام اون Title هستش

بعدی هم که دستگیره فرم 1 رو معرفی کردیم

در آخر هم باید این تنظیمات رو به ابزارمون نسبت بدیم :

ShortcutBar1.Selected = Item

خوب امیدوارم که این آموزش هم مورد پسند شما عزیزان قرار گرفته باشه

ولی خودم هم نفهمیدم چرا مثل این برنامه های آشپزی توضیح دادم :لبخند:

موفق باشید دوستان ./

[shahmahi]

نمی دونم شما چرا فقط نظاره گر هستین . واقعا کسی سوالی براش پیش نمیاد ؟؟ :متفکر:

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

[Dr.Bronx]

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

من هم توقعی ندارم مثلا در مورد ابزار Resizer بیاید سوال کنید چون واقعا اون ابزار چیز خاصی نداره و کار خارق العاده ای رو انجام نمی ده .
چرا بعضی ها از همین ابزار های Light که باید تک تک هر چیزی رو اضافه کرد استفاده می کنن
در صورتی که یک کنترل Codejock Controls تمام اون ابزار های رو به بهترین حالت در اختیارشون میزاره

www.forum.codejock.com

برین توی این فروم ببینید روزانه چند پست و تاپیک ایجاد میشه تا فقط در مورد همین ابزار صحبت کنند.
موفق باشید./

[shahmahi]

سلام

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

[Dr.Bronx]

کار که نشد نداره عصیصم :دی
ببین توی تصویر زیر فرم Main داریم و Form2 و Form3
Form2 اسکین رو گرفته و تغییر پیدا کرده
ولی Form3 اسکین نداره و حالت معمولی هست

http://barnamenevis.org/forum/attachment.php?attachmentid=39493&stc=1&d=1256813278

Good Luck Honey :P

[nima_8m]

سلام منم چند تا سوال داشتم:
1- وقتی از این اسکین استفاده میکنیم منوها مخفی میشه راه حل؟
2- وقتی از یک فرم به فرم اصلی میریم اسکین لود نمیشه و فرم به حالت پیش فرض در میاد
3- اگه تو پروژه 10 تا فرم باشه اسکین و باید به همه اضافه کرد و کد لود برای همه نوشت؟
راه دیگه نداره؟
4- سرعت برنامه چایین میاد
ممنون

[Dr.Bronx]

1- وقتی از این اسکین استفاده میکنیم منوها مخفی میشه راه حل؟
به این دلیل که فقط باید از منوهای خود Codejock استفاده کنید.
به زودی آموزش ساخت ریبون (Office 2007) در همین تاپیک .


- وقتی از یک فرم به فرم اصلی میریم اسکین لود نمیشه و فرم به حالت پیش فرض در میاد
خوب چرا اصلا شما فرم اصلی رو unload می کنی ؟ ولی اگه شما توی رویداد Load فرم اصلیتون دستورات رو بنویسید خوب هر بار که دوباره باز کنید اسکین فعال میشه دیگه .


3- اگه تو پروژه 10 تا فرم باشه اسکین و باید به همه اضافه کرد و کد لود برای همه نوشت؟
خیر . فقط یک بار در فرم اصلی نیاز هست .


4- سرعت برنامه چایین میاد
به نظر من که اصلا اینطور نیست . اگر مقایسه هم بکنیم با ابزارهای اسکین کننده ی دیگه مشخصه که Codejock سرعت بالاتری داره .


از لینک زیر میتونی دانلود کنی
شما هم مثل این که کلا یک مشکلی داری ؟؟
1- این ابزار رو با اولین سرچ توی گوگل میشه پیدا کرد.
2- اول تاپیک گفتم کسی ابزار توی این تاپیک قرار نده.
3- کسانی که تا حالا در خواست کرده بودند در اختیارشون هست . از جمله alivafadarpour
4- پست خودتون رو ویرایش کنید و ابزار رو حذف کنید.

[Dr.Bronx]

خوب رسیدیم به جالب ترین بخش آموزش هامون
اولا تشکر کنم از دوستانی که با پیام هاشون بنده رو مورد لطف قرار دادند ........

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

اول از همه بگم در این قسمت می خوایم فقط ساخت Ribbon رو کار کنیم پس اگر کسی نیاز به ساخت منو و Toolbar داره پیشنهاد من دفترچه تلفن جناب آقای mpmsoft هست .

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

http://barnamenevis.org/forum/attachment.php?attachmentid=39675&stc=1&d=1256336951

البته مطمئن باشید شما خیلی بهتر از این می تونید کار رو انجام بدید.
خوب کار رو شروع می کنیم . ابتدا یک پروژه جدید ایجاد کنید .
یک CommandBars1 روی فرم قرار بدید و یک ImageManager
Properties این دو کنترل رو به صورت زیر قرار بدید .

http://barnamenevis.org/forum/attachment.php?attachmentid=39676&stc=1&d=1256336951

خوب ابتدا برای راحتی کار یک Sub تعریف می کنیم.
به این صورت


Private Sub RibbonBar()

End Sub

خوب ابتدا این توابع رو تعریف می کنیم.


Dim GroupNew As RibbonGroup
Dim RibbonBar As RibbonBar
Dim TabWrite As RibbonTab
Dim ControlFile As CommandBarPopup
Dim MyGroup As RibbonGroup
Dim MyBtn As CommandBarControl

ابتدا باید Ribbon رو بسازیم.


Set RibbonBar = CommandBars.AddRibbonBar("The Ribbon")


خوب حالا می خوایم اون کلید بالا سمت راست ( Office Button ) رو بسازیم.


Set ControlFile = RibbonBar.AddSystemButton()
ControlFile.Caption = "Mybtn"



اینجا باید منوهای اون کلید رو معرفی کنیم . همون منوهایی که در عکس اول دیدید.


With ControlFile.CommandBar.Controls
.Add xtpControlButton,100,"MyMenu"



همینطوری پشت سر هم می تونید منوهاتون رو اضافه کنید.

خوب اولین کاری که باید انجام بدیم این هست که Tab هارو بسازیم.

به این صورت عمل می کنیم



Set TabWrite = RibbonBar.InsertTab(0, "Tab1")
TabWrite.Id = 1


حالا باید گروه ها رو اضافه کنیم
پس با این کد شروع به اضافه کردن گروه ها می کنیم (Category = گروه)


Set MyGroup = TabWrite.Groups.AddGroup("MyGroup", 100)

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

خوب حالا باید کلید هامون رو قرار بدیم.


Set MyBtn = MyGroup.Add(xtpControlButton, 100, " Mybtn ")


خوب آخر پست 4تا فایل dll هست که اون ها Theme هایی هستند برای Ribbon bar

(قابل توجه مدیران : این 4 فایل از فروم سایت codejock قابل دریافت هست.)

حالا برای این که از این theme ها استفاده کنیم این کد ها در رویداد Load فرم بنویسید


CommandBarsGlobalSettings.Office2007Images = App.Path + "\Office2007Black.dll"
CommandBars.PaintManager.RefreshMetrics
CommandBars.RecalcLayout


راستی یادتون نره که توی رویداد Form_Load بنویسید
Call RibbonBar

خوب تموم شد . :متعجب: بقیش دیگه به خلاقیت خودتون بستگی داره.:تشویق:


Styles ها رو از اینجا دانلود کنید .

http://mbyte.persiangig.com/document/Styles.rar

سوالی بود در خدمتم.
موفق باشید ./

[soheilbehro]

اول از همه بگم در این قسمت می خوایم فقط ساخت Ribbon رو کار کنیم پس اگر کسی نیاز به ساخت منو و Toolbar داره پیشنهاد من دفترچه تلفن جناب آقای mpmsoft هست .
یک CommandBars1 روی فرم قرار بدید و یک ImageManager
ولی ما به منو ها نیاز داریم ، اگه بتونی یه آموزش کوچولو بدی خودم بقیه شو می رم
این CommandBars1 و ImageManager رو از کجا بیاریم.

[Dr.Bronx]

با تشکر از مدیر محترم جهت پاکسازی تاپیک ./


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


این CommandBars1 و ImageManager رو از کجا بیاریم.
برای دفعه nام هر کسی می خواد پیام خصوصی بده براش بفرستم.
موفق باشید ./

[Dr.Bronx]

سلام

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

یک روش ساده تر هم هست که به این صورته : skin.RemoveWindow form2.hwnd

اینجوری دیگه Form2 اسکین نمی گیره

موفق باشید ./

[nima_8m]

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

[Dr.Bronx]

خواهش !
نیاز به کاری نیست
شما وقتی روی فرم اصلی قرار میدید بقیه فرم ها به صورت اتوماتیک این theme رو می گیرن
البته نباید فرم اصلی رو Unload کنید

موفق باشید./

[Dr.Bronx]

سلام به همه دوستان عزیز
امروز می خوام نحوه گذاشتن یک کلید بیرون از ریبون ولی روی Commandbar رو آموزش بدم
مثلا برای گذاشتن کلید ( About ) مکان مناسبیه.تصویر زیر رو ببینید.

http://barnamenevis.org/forum/attachment.php?attachmentid=39833&stc=1&d=1256425191

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

Dim ControlAbout As CommandBarControl

حالا این کد رو در انتهای اون کدهایی که دفعه پیش کار کردیم قرار بدید

Set ControlAbout = RibbonBar.Controls.Add(xtpControlButton, 900, "&About")
ControlAbout.flags = xtpFlagRightAlign


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

موفق باشید ./

[maryamb]

سلام .ممنون از زحمت هاتون
می شه بگین چطور برای ریبون عکس بذاریم؟و آیا png رو هم قبول میکنه؟

[shahmahi]

سلام

ببین من توی یک لیست باکس تمام اسکینهایی رو که توی پست اول بودش رو دارم و روی هرکدوم که کلیک میکنم اسکین فرم عوض میشه که توی عکس مشخصه:

http://barnamenevis.org/forum/attachment.php?attachmentid=40032&d=1258639318

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

[xxxxx_xxxxx]

سلام،
همونطور که دوست عزیزمون آقای Dr.Bronx گفتند باید Theme رو روی فرم اصلی قرار بدید تا روی همه فرم ها اعمال بشه.
من تغییراتی رو تو برنامه تون ایجاد کردم. تغییرات جدید با کامنت NEW مشخص شده هستند.

موفق باشید/

[aryasoft2872]

سلام
من خیلی وقته این ابزار رو می شناسم ولی 2 تا مشکل رو همیشه داشتم
1- رجیستر کردن ابزار رو سیستم خام
2- می خوام برای مثال وقتی روی یک button کلیک می کنیم برای مثال آبجکت خروج تغییر نام بده به بستن (تغییر خواص کنترل های ریبون)

ممنون می شم اگه زودتر جوابم رو بدید.

استایل های آفیس 2010 اومده اگه می تونید اونا رو هم بزارید.

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

[Dr.Bronx]

سلام
من خیلی وقته این ابزار رو می شناسم ولی 2 تا مشکل رو همیشه داشتم
1- رجیستر کردن ابزار رو سیستم خام
2- می خوام برای مثال وقتی روی یک button کلیک می کنیم برای مثال آبجکت خروج تغییر نام بده به بستن (تغییر خواص کنترل های ریبون)

ممنون می شم اگه زودتر جوابم رو بدید.

استایل های آفیس 2010 اومده اگه می تونید اونا رو هم بزارید.

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

1- از ضمیمه دانلود کنید .
توضیح : فقط کنترل هایی که روی سیستم هست رو نمایش میده .


2- در execute کنترل commandbar خاصیتی داریم با نام

ByVal Control As XtremeCommandBars.ICommandBarControl

که این کنترل نام کنترل فعال شماست
مثلا ما می خوایم کلیدی که با index شماره 100 مشخص شده از ورود به خروج تغییر بدیم

Private Sub CommandBar_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
Select Case Control.Id
Case 100
Control.Caption = "خروج"

End Select
End Sub


3- اونها رو من هم هنوز ندارم . بنده دیگه اجازه ارسال پست داخل تاپیک های Codejock رو ندارم به دلیل ایرانی بودنم .....

4- زمانی که شما کلید هاتون رو اضافه کردید در آخر باید فونت رو تغییر بدید

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

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

[butterfly8528]

بنده دیگه اجازه ارسال پست داخل تاپیک های Codejock رو ندارم به دلیل ایرانی بودنم .....

دکتر جان میشه بگی چرا ؟

[Dr.Bronx]

جالی ین بحث توی این تاپیک نیست . ولی خوب محض اطلاع می گم
بعد از این که یک سوالی که در مورد فارسی نویسی روی منوها رو رو اونجا پرسیدم . یعنی این تاپیک:

( خوب تاپیک رو هم حذف کردن جدیدا )

که بعد از اون از طرف ادمین اونجا پیغامی اومده که به این معنی بود : ما متاسف هستیم که نمی تونیم به شما کمک کنیم . شما باید این رو درک کنید که ما در کشوری هستیم که اجازه همکاری با شما رو نداریم و شما دیگه اجازه فعالیت توی این فروم رو ندارید .

البته

این کار خیلی بهتر شد برای من . چون خودم گشتم و مشکل خودم رو پیدا کردم .

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

[vahid_khasal]

مشکللم رفع شد
من ورژن 10 این ابزار رو دارم
comand bars , contorol , .....
حالا میگه که باید رچستر بشه یا آپگرید کنم از کجا میتونم نسخه جدیدتر رو بگیرم؟
ممنون میشم

[Dr.Bronx]

من ورژن 10 این ابزار رو دارم
comand bars , contorol , .....
حالا میگه که باید رچستر بشه یا آپگرید کنم از کجا میتونم نسخه جدیدتر رو بگیرم؟
ممنون میشم

از منوی Project گزینه Project Propeties رو انتخاب کنید و گزینه Upgrade Activex Control رو غیر فعال کنید

و در مورد سوال دوم :

شما خود popup رو باید نمایش بدید و فقط نوشته هاتون رو عوض کنید
برای حذف یک نوشته باید از index اون عمل کنید . مثلا :

Popup1.RemoveItem (0)

موفق باشید ./

[skh1300]

با سلام خسته نباشيد خدمت اساتيد محترم
فرض كنيد يه دكمه روي فرم دارم و يك ريبون هم دارم مي خوام با كليك روي دكمه درون فرم دستور يك دكمه از دكمه هاي ريبون اجرا بشه ؟

[mosy_naq]

سلام
من نسخۀ codejock Commandbars 13
رو دانلود كردم. اما يونيكد نيست. و نميشه توي ريبونها فارسي نوشت.
ميخواستم پبرسم كسي يونيكدشو داره يا جاييكه بتونم بگيرم؟

[aryasoft2872]

راجع به مشكل فارسي نويسي من آخرين ورژن رو دارم (13.2) ولی هیچ مشکلی در فارسی نویسی نداره
که استایل های آفیس 2010 و سیستم هم اضافه شده که خیلی جالب بود،کاربرانی که دسترسی به سایت ندارند می توانند بدون عضویت از بخش دانلود استفاده کنند ولی حجمش 32 مگابایته...

[Dr.Bronx]

تمام استایل های ریبون . هم 12.1.1 و هم 13.1.1

(1.26 مگابایت)

http://barnamenevis.org/forum/images/buttons/download.gif

(http://barnamenevis.org/forum/downloads.php?do=file&id=57&act=down)موفق باشید ./

[butterfly8528]

دکتر جان تم office 2010 هم برای Skin Framework هست ؟

[Dr.Bronx]

نه عزیزم . از ورژن 12.1.1 شما می تونید از همون تم های خود ویندوز هم استفاده کنید.
البته باید فونتهاش رو خودتون تغییر بدید .
انشاالله فرصت باشه آموزش این کار رو هم قرار می دم که هم بتونین استایل بسازید هم استایل هارو ویرایش کنید.

موفق باشید ./

[kami_63]

سلام
آقا من یه سوال داشتم چه جوری میشه فونت تب و گروپ رو عوض کرد ؟؟

[vahid_khasal]

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

Private Sub ribbonbar()
Dim groubnew As RibbonGroup
Dim ribbonbar As ribbonbar
Dim tabwrite As RibbonTab
Dim contorolfile As CommandBarPopup
Dim mygroup As RibbonGroup
Dim mybtn As CommandBarControl
Dim controlabout As CommandBarControl

Set ribbonbar = CommandBars1.AddRibbonBar("ãäæ")

Set contorolfile = ribbonbar.AddSystemButton
contorolfile.Caption = " ãäæ "
contorolfile.Id = 182
contorolfile.IconId = 182

With contorolfile.CommandBar.Controls
.Add pr_ControlButton, 101, "ÑÇåäãÇ"
.Add pr_ControlButton, 180, "ÏÑÈÇÑå ÓÇÒäϐÇä"
.Add pr_ControlButton, 181, "ÇÑÊÈÇØ ÈÇ ãÇ"
.Add pr_ControlButton, 148, "ÎÑæÌ"
End With
............................



Set contorolfile = ribbonbar.AddSystemButton
contorolfile.Id = 182


باید این یه ایکن داشته باشه دیگه مثل افیس 2007 یا همون نمونه عکسی که گذاشتین
میشه کمک کنین

[Dr.Bronx]

سلام
آقا من یه سوال داشتم چه جوری میشه فونت تب و گروپ رو عوض کرد ؟؟

همین 2 صفحه پیش گفتم که

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



باید این یه ایکن داشته باشه دیگه مثل افیس 2007 یا همون نمونه عکسی که گذاشتین
میشه کمک کنین

اگر عکس نداره و خود دکمه هست که باید یک imagemanager روی فرم بزارید . بعد یک آیکون با همون شماره ای که گفتید براش ایجاد کنید و بعد این کد رو بنویسید

CommandBar.Icons = ImageManager1.Icons

موفق باشید ./

[vahid_khasal]

من ورژن 13.2.0 رو سیستمم دارم ریچستر هم شده رو سیتم خودم می خواستم ببینم اگه رو یه سیستم خام بره نیاز به ریچستر کردن داره یا نه ؟
ممنون
راهنمایاتون خیلی خوبه
دمت گرم Dr.Bronx:قلب:

[Dr.Bronx]

من ورژن 13.2.0 رو سیستمم دارم ریچستر هم شده رو سیتم خودم می خواستم ببینم اگه رو یه سیستم خام بره نیاز به ریچستر کردن داره یا نه ؟
ممنون


نه دیگه . اگر شما روی سیستم خودتون رجیستر کردید که نمی خواد

ولی

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

Codejock.CommandBars.v12.1.1.lic

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

Codejock.CommandBars.v12.1.1.ocx

یا مثلا

Codejock.Controls.v12.1.1.lic

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

موفق باشید ./

[kami_63]

همین 2 صفحه پیش گفتم که

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



اگر عکس نداره و خود دکمه هست که باید یک imagemanager روی فرم بزارید . بعد یک آیکون با همون شماره ای که گفتید براش ایجاد کنید و بعد این کد رو بنویسید

CommandBar.Icons = ImageManager1.Icons

موفق باشید ./

سلام
ولی با این دستور فقط فونت دکمه ها عوض مشه فونت tab و group عوض نمیشه

[Dr.Bronx]

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


http://barnamenevis.org/forum/attachment.php?attachmentid=41802&stc=1&d=1262111202

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


http://barnamenevis.org/forum/images/buttons/download.gif (http://barnamenevis.org/forum/downloads.php?do=file&id=59&act=down)

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

Good Luck Friend(s)

[skh1300]

http://codejock.com/downloads/samples/visualstyles.asp

[Dr.Bronx]

از این پس برای دریافت ابزار فقط به آدرس زیر ایمیل بزنید

codejock12@gmail.com

autoresponse هست و ظرف چند ثانیه برای شما یک ایمیل میاد.

موفق باشید./

[Dr.Bronx]

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

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

موفق باشید ./

[shahmahi]

سلام

میبخشید چند تا سوال :
داخل References یک DLL هست که باید به مجموعه اضافه بشه اون چیه ؟
بعد یک سوال دیگه داخل برنامه، picClient چی هستش ؟

[Dr.Bronx]

سلام

میبخشید چند تا سوال :
داخل References یک DLL هست که باید به مجموعه اضافه بشه اون چیه ؟
بعد یک سوال دیگه داخل برنامه، picClient چی هستش ؟

اسم refrence چیه ؟

-

picclient همون picturebox هستش که روی فرم اصلی قرار داره
به عنوان بک گراند استفاده میشه و هر موقع که شما تم اصلی رو تغییر بدین اون هم به همون نسبت رنگ میگیره
یعنی شما اگر تم black رو استفاده کنید اون عکس هم مشکی میشه.

سوال دیگه ای بود در خدمتم.

موفق باشید ./

[shahmahi]

ممنون از توضیحت.


اسم refrence چیه ؟

داخل References من INIControl کمه ، کار این Dll چی هستش؟
برنامرو وقتی اجرا میکنم چند تا ایراد دیگه هم داره که فکر کنم مربوط به همین Dll باشه .

[Dr.Bronx]

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

باز هم بابت این اشتباه عذر می خوام .

موفق باشید

[butterfly8528]

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

[shahmahi]

سلام
آقا من یک سوال داشتم که باید زودتر میپرسیدم ،وقتی CommandBars رو به برنامه اضافه میکنم پیغام زیر رو میده.


http://barnamenevis.org/forum/attachment.php?attachmentid=42020&stc=1&d=1262599050


راستش من از CommandBars جناب Mpmsoft استفاده میکردم که فکر کنم MessageBar رو جواب نمیده.ممنون میشم راهنماییم کنید. :لبخندساده:

[vahid_khasal]

سلام
آقا من یک سوال داشتم که باید زودتر میپرسیدم ،وقتی CommandBars رو به برنامه اضافه میکنم پیغام زیر رو میده.


http://barnamenevis.org/forum/attachment.php?attachmentid=42020&stc=1&d=1262599050


راستش من از CommandBars جناب Mpmsoft استفاده میکردم که فکر کنم MessageBar رو جواب نمیده.ممنون میشم راهنماییم کنید. :لبخندساده:

سلام دوست عزيز
اگه منظورتون رو متوجه شده باشم:
CommandBars جناب Mpmsoft رو اگر اون فايل 9 مگي رو نصب كرده باشين مشكلي نبايد داشته باشه
احتمالا ورژن جديدترو رو سيستم ريختين و شما CommandBars جناب Mpmsoft رو آپگريد كردين
بريد توي system32 و ctrbar.ocx رو پيدا كنيد اون CommandBars جناب Mpmsoft هستش

-
CommandBars جناب Mpmsoft نسخه 10.0
هستش حتما خيلي از چيز ها رو نداره مثلا اون قسمت دكمه ريبون رو نميشه ايكن داد و به شكل نمونه هاي فعلي در اورد

[Dr.Bronx]

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

[shahmahi]

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

اگه منظورتون اینه :

messagebar با کد ساخته میشه . که در همون برنامه نمونه هم به اون به صورت مفصل رسیدگی شده

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

http://barnamenevis.org/forum/attachment.php?attachmentid=42068&stc=1&d=1262696756

[Dr.Bronx]

خدمت شما عرض کنم که اکتیوکس جناب mpmsoft مربوط به codejock نیست
تا جایی که من دیدم payam.commandbar بود .
در نتیجه ممکنه خیلی از امکانات رو نداشته باشه.
شما از همون ابزار codejock استفاده کنید ، من الان استفاده می کنم و مشکلی هم ندارم
توی عکس هم می بینید که استفاده شده .

در مورد مسئله قبل هم ، خیر . منظور بنده اون نبود
منظورم این بود .


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


چون چند بار این سوال رو جواب دادم و هم داخل برنامه نمونه هست.

موفق باشید ./

[shahmahi]

خدمت شما عرض کنم که اکتیوکس جناب mpmsoft مربوط به codejock نیست

اینو میدونم دکتر جان من وقتیCommandBars خود codejock رو به برنامه اضافه میکنم اون پیغام بالا رو میده.

[Dr.Bronx]

:لبخند:

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

شما این کد رو

Set MessageBar = CommandBars.MessageBar

به این کد تغییر بدید

Set MessageBar = CommandBar.MessageBar

موفق باشید ./

[abas1388]

با سلام خدمت استاد بزرگوار جناب آقاي Dr.Bronx

بنده از Codejock.TabControl.12.0.0 در اكسس استفاده كردم و در هنگام اضافه كردن آن به فرم اكسس (در حالت ديزاين فرم) كنترل فاقد برگ نشان ميباشد و با وجود اضافه نمودن item در حالت ديزاين فرم فقط بصورت يك كادر است ( در هنگام اجراي آن برگ نشان هاي آن نمايش داده ميشود ) ولي در فرم vb اينگونه نيست و برگ نشان هاي آن در حالت طراحي هم مشخص است؟
حال جهت استفاده از اين كامپپوننت در اكسس با اين مشكل مواجه شدم كه مثلاً با كليك روي برگ نشان با انديس1ميخواهم يك كمند باتن در حالت visible قرار گيرد و در برگ نشان با انديس 2 در حالت unvisible قرار گيرد .اينكار از طريق كد نويسي به چه صورتي انجام ميشود ؟
با تشكر

[shahmahi]

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

آقا فکر کنم ایندفعه شاخ و دم داره :اشتباه:چون بازم پیغام میده ، میگه همون خط از برنامه نامعتبره.
البته اسم CommandBar همون CommandBars هستش با S .
نگفتین من با اون پیغام چی کار کنم؟

[vahid_khasal]

اینو میدونم دکتر جان من وقتیCommandBars خود codejock رو به برنامه اضافه میکنم اون پیغام بالا رو میده.


واسه اون خطا كه بايد لايسنس ocx رو روي سيتم كژي كنيد كنار ocx كه داريد
يا نسخه كرك شدش رو پيدا كنيد
شايد تونسه باشم كمكتون كرده باشم shahmahi جان

[shahmahi]

واسه اون خطا كه بايد لايسنس ocx رو روي سيتم كژي كنيد كنار ocx كه داريد

دوست من این که گفتی یعنی چه؟:لبخندساده:
من وقتی این ocx رو دریافت کردم یک فایل inf هم کنارش بود نمیدونم شاید منظورت همون باشه.

[Dr.Bronx]

سلام
آقا من یک سوال داشتم که باید زودتر میپرسیدم ،وقتی CommandBars رو به برنامه اضافه میکنم پیغام زیر رو میده.


http://barnamenevis.org/forum/attachment.php?attachmentid=42020&stc=1&d=1262599050


راستش من از CommandBars جناب Mpmsoft استفاده میکردم که فکر کنم MessageBar رو جواب نمیده.ممنون میشم راهنماییم کنید. :لبخندساده:

کسانی که این مشکل رو دارند . فایل های ضمیمه رو دانلود کنند
و در کنار فایل های ocx قرار دهید که احتمالا هم در system32 هست

موفق باشید ./

[shahmahi]

دکتر جان ممنون این حرکتت 100 امتیاز مثبت داشت. با اضافه کردن فایلهایی که ضمیمه کردی برنامه بدون هیچ مشکلی اجرا شد .

یک سوال : آیا راهی هست که بشه آیکون با پسوند png رو هم به ImageManager اضافه کرد ؟

[Dr.Bronx]

آره میشه ولی خوب باید با یک سری تغییرات خاص آیکون هارو ذخیره کرد تا بشه استفاده کرد
وگرنه پشتش سیاه میشه.
من همه نوع رو امتحان کردم بهترین کار همون آیکون های 32*32 هست
دردسرش کمتره

موفق باشید

[abas1388]

با سلام خدمت استاد بزرگوار جناب آقاي Dr.Bronx

بنده از Codejock.TabControl.12.0.0 در اكسس استفاده كردم و در هنگام اضافه كردن آن به فرم اكسس (در حالت ديزاين فرم) كنترل فاقد برگ نشان ميباشد و با وجود اضافه نمودن item در حالت ديزاين فرم فقط بصورت يك كادر است ( در هنگام اجراي آن برگ نشان هاي آن نمايش داده ميشود ) ولي در فرم vb اينگونه نيست و برگ نشان هاي آن در حالت طراحي هم مشخص است؟
حال جهت استفاده از اين كامپپوننت در اكسس با اين مشكل مواجه شدم كه مثلاً با كليك روي برگ نشان با انديس1ميخواهم يك كمند باتن در حالت visible قرار گيرد و در برگ نشان با انديس 2 در حالت unvisible قرار گيرد .اينكار از طريق كد نويسي به چه صورتي انجام ميشود ؟
با تشكر
با سلام
در ارتباط با موضوع مطرح شده كد زير را نوشتم ولي در هنگام اجراي آن پيغام خطاصادر ميشود :


Private Sub TabControl_SelectedChanged(ByVal Item As SuiteControlsGlobalSettings)
Dim ItemIndex As Long
Select Case ItemIndex
Case 0
Command0.Visible = False
Case 1
Command1.Visible = True
End Select
End Sub


با تشكر

[Dr.Bronx]

همین کدی که نوشتید درست هست
فقط یک نقطه کم گذاشتید و هم یه متغیر اضافه تعریف کردید که نیازی به اون نیست
درستش اینجوری میشه.

Private Sub TabControl1_SelectedChanged(ByVal Item As XtremeSuiteControls.ITabControlItem)
Select Case Item.Index
Case 0
Command0.Visible = False
Case 1
Command1.Visible = True
End Select
End Sub

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

[vahid_khasal]

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

[abas1388]

http://barnamenevis.org/forum/attachment.php?attachmentid=39675&stc=1&d=1256336951


موفق باشید ./

با سلام
آيا اين امكان وجود دارد كه با كد نويسي نوار اولي (نواري كه دكمه customize quick access toolbar) بر روي آن تعبيه شده را مخفي كنيم بطوريكه در زمان نمايش فقط نوار منوها نمايش داده شود ؟
با تشكر

[Dr.Bronx]

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

( دوستان از گذاشتن تگ های عجیب و غریب خودداری کنید لطفا .... )

[Dr.Bronx]

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

ببین گوگل مارو تحریم می کنه . مثلا نمی زاره از لابراتوار گوگل استفاده کنیم . یا مثلا از Google wave ولی یادتونه وقتی که قرار بود Google Translator و زبان پارسی رو راه بندازه چقدر اصرار داشت که ایرانی ها بیان و اون رو تست کنن . همشون همینجوری هستن . تا وقتی که نیاز به ما دارن تحریم رو فراموش می کنن . ولی برای یک امکانات کوچک یاد تحریم میفتن و اجازه استفاده از اون رو نمی دن .
codejock هم دقیقا همین وضعیت رو داره . یک شرکت خیلی بزرگ هست که فقط یکی از کارهاش طراحی اینجور ابزارها هستش . خوب وقتی که میاد نسخه تریال 13.1.1 رو میده . ما میریم دانلود می کنیم . کار می کنیم . اولین باگی که پیدا شد این بود که موقع استفاده از framework مثل قدیم messagebox اسکین نمی گرفتن . خوب حالا من این رو گزارش کردم . از مدیر گروه بگیر تا مدیر انجمن ها شون تشکر کردن . ولی کاربر بعدی من هم بعد از دو روز از این اتفاق ban شد . چرا ؟ چون این نوشته توی امضام بود .

I am proud that I am an Iranian

اگر هاست های ما اصالاتا ماله ایران بود و نیازی به خارجی ها نداشتیم . قطعا این کار ایرادی نداشت. ولی الان نمی تونیم . اگر 0.00001 درصد هم احتمال بدیم که شاید codejock این ابزار رو توی این انجمن به صورت کرک شده ببینه . خوب از این جا شکایت می کنه به هاست مربوطه و خوب چون ما ایرانی هستیم و اونها هم دنبال بهانه . به صورت بسیار نا جوان مردانه ای هاست suspend میشه . حالا خر بیار و باقالی بار کن :لبخند:

اما واسه این سوالت


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

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


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

موفق و موید باشید :چشمک: ./

[abas1388]

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



با سلام مجدد
پس لطفاً در خصوص نحوه برداشتن كليد فوق راهنمائي فرمائيد !
با تشكر

[Dr.Bronx]

دكتر جان حالا ما اگه بخوايم اين جور ابزار رو بسازيم بايد از كجا شروع كنيم؟

شما می تونی به این تاییک بری و کتاب رو خریداری کنی : http://barnamenevis.org/forum/showthread.php?t=104716

مباحث در مورد ساخت اکتیوکس بسیار زیاد هست . می تونید با یک جستجوی سریع به اونها دست پیدا کنید . یا می تونید از سایت Planet-Source-Code سورس اکتیوکس هارو بگیرید و مطالعه کنید .

راه های یادگیری زیاده ولی مهم اینه که کدوم بهتره.


با سلام مجدد
پس لطفاً در خصوص نحوه برداشتن كليد فوق راهنمائي فرمائيد !
با تشكر
شما کدهاش رو ننویسید دیده نمی شه دیگه !!
توی اون نمونه که گذاشتم اینجاست ( جاهایی که بلاک شده )

http://barnamenevis.org/forum/attachment.php?attachmentid=42248&stc=1&d=1255902710

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

[earse+erse]

کسانی که این مشکل رو دارند . فایل های ضمیمه رو دانلود کنند
و در کنار فایل های ocx قرار دهید که احتمالا هم در system32 هست

موفق باشید ./
http://barnamenevis.org/forum/attachment.php?attachmentid=42020&stc=1&d=1262599050

سلام به دکتر عزیز

من هر کاری که گفتین انجام دادم این تاپیک رو هم از اول تا آخر 10 بار خوندم ولی باز اررور بالایی برای CommandBarsFrame ظاهر میشه و عمل کرد برنامه ribbon تون مختل می کنه

من چی کار کنم

Codejock Lic رو هم دانلود کردم
همه ابزار ها رو هم دارم

دکتر جون دستم به دامنت

[Dr.Bronx]

http://barnamenevis.org/forum/attachment.php?attachmentid=42020&stc=1&d=1262599050

سلام به دکتر عزیز

من هر کاری که گفتین انجام دادم این تاپیک رو هم از اول تا آخر 10 بار خوندم ولی باز اررور بالایی برای CommandBarsFrame ظاهر میشه و عمل کرد برنامه ribbon تون مختل می کنه

من چی کار کنم

Codejock Lic رو هم دانلود کردم
همه ابزار ها رو هم دارم


شما اول باید ببینید از کجا این ابزار رو به پروژه اضافه کردید.
هر جایی که اضافه کردید اون فایل های Lic هم باید همونجا باشه در غیر این صورت تاثیری نداره

[earse+erse]

یه اررور دیگه!!!

برای ControlPrint اخطار می ده که

Can t find project or library

می دونم زیاد مرتبط نیست ولی . . . !

[Dr.Bronx]

اولا لطف کنید اگر سوالی دارید همینجا بپرسید.
دوما برای picclient یک بار توضیح دادم . به پستهای قبلی مراجعه کنید


یه اررور دیگه!!!

برای ControlPrint اخطار می ده که

Can t find project or library

می دونم زیاد مرتبط نیست ولی . . . !


Option Explicit رو از قسمت General حذف کنید.

موفق باشید ./

[earse+erse]

سلام یه سوال فنی درباره Ribbon

1-چه جوری میشه یه چیزی تو مایه های عکس پایین درست کرد؟

http://barnamenevis.org/forum/attachment.php?attachmentid=42284&stc=1&d=1263109698

2- چه جوری می شه توGroups یه برچسب یا تکست باکس قرار داد؟

http://barnamenevis.org/forum/attachment.php?attachmentid=42285&stc=1&d=1263109698

3-چه جوری میشه تو بک گراند تصویر گذاشت؟


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

:بوس:

[abas1388]

با سلام
آیا آیکن های مورد استفاده در ریبون باید حتماً دارای رنگ پس زمینه Transparent (بدون رنگ )باشد و اگر آیکنی دارای پس زمینه به رنگ سفید بود ابتدا باید با ابزار مثلاً فتوشاپ آن را تغییر داد یا نه در ImageManager میتوان رنگس زمینه را تغییر داد ؟ نمیدانم در قسمت edit کنترل فوق میتوان چنین کاری را انجام داد یا نه ؟
با تشکر

[shahmahi]

یه اررور دیگه!!!

برای ControlPrint اخطار می ده که

Can t find project or library

می دونم زیاد مرتبط نیست ولی . . . !


سلام

دوست من داخل Refrences یک مورد هست به نام INIControl تیک اونرو بردار و OK کن مشکلت برطرف میشه .

[Dr.Bronx]

سلام

دوست من داخل Refrences یک مورد هست به نام INIControl تیک اونرو بردار و OK کن مشکلت برطرف میشه .

آخه ایشون داره میگه ControlPrint رو اررور میده !
ControlPrint یه چیزه اون پیغامی که ایشون میگه یه چیز دیگست

گفتم شاید دچار توهم شدن :لبخند:


دکتر جان سلام!

ضمن تشکر و سپاس فراوان بجهت آموزش های بسیار مفید و ارزنده ای که در این تاپیک ارائه نموده و انشاءالله می نمائید و همچنین تشکر ویژه بابت ارائه نمونه کاربردی ویژه اکسس ، به استحضار میرساند : با به کارگیری آموزش های جنابعالی مربوط به ساخت ریبون ، خوشبختانه موفق شدم نمونه ای شبیه موردی که در این تاپیک قرارداده بودید در محیط اکسس پیاده کنم ؛ فقط ظاهراً منوی مخصوص سیستم بصورت چپ چین نمایش داده میشود . بدینصورت که آیکن ها در سمت چپ عناوین مربوطه قرار می گیرند . البته ع

شما باید یکی از theme های ریبون رو load کنید مشکلتون حل میشه

CommandBarsGlobalSettings.Office2007Images = App.Path & "\Styles\Office2007Aqua.dll"
CommandBar.PaintManager.RefreshMetrics
CommandBar.RecalcLayout

فقط توجه داشته باشید Office2007Aqua.dll داخل پوشه Styles در کنار برنامه باشه.

موفق باشید ./



با سلام
آیا آیکن های مورد استفاده در ریبون باید حتماً دارای رنگ پس زمینه Transparent (بدون رنگ )باشد و اگر آیکنی دارای پس زمینه به رنگ سفید بود ابتدا باید با ابزار مثلاً فتوشاپ آن را تغییر داد یا نه در ImageManager میتوان رنگس زمینه را تغییر داد ؟ نمیدانم در قسمت edit کنترل فوق میتوان چنین کاری را انجام داد یا نه ؟
با تشکر

سفید باشه حله
این عکس یکی از آیکون های منه

http://barnamenevis.org/forum/attachment.php?attachmentid=42301&stc=1&d=1255992081

در قسمت Edit هم یک سری قابلیت ها از جمله Transparent رو داره

موفق باشید ./

[Dr.Bronx]

شما از Dll های codejock استفاده می کنید برای access یا ocx های Translate شده ؟
از چه ورژنی ؟

[alirezabahrami]

شما باید یکی از theme های ریبون رو load کنید مشکلتون حل میشه

CommandBarsGlobalSettings.Office2007Images = App.Path & "\Styles\Office2007Aqua.dll"
CommandBar.PaintManager.RefreshMetrics
CommandBar.RecalcLayout

فقط توجه داشته باشید Office2007Aqua.dll داخل پوشه Styles در کنار برنامه باشه.
موفق باشید ./
سلام
طبق پیشنهاد شما عمل شد ولی هیچ تغییری حاصل نگردید.
ضمناً RecalcLayout جزء خاصیت های CommandBars ( در اکسس )نمیباشدو شاید ایراد از همین جا باشد .
با تشکر

[alirezabahrami]

شما از Dll های codejock استفاده می کنید برای access یا ocx های Translate شده ؟
از چه ورژنی ؟
از اکتیو ایکس های codejock استفاده می کنم:
1- Codejock.SkinFramework.v12.0.0.ocx
2- Codejock.Controls.v12.0.0.ocx

[Dr.Bronx]

این کدهای Access برای تغییر تم


CommandBarsGlobalSettings.Office2007Images = CurrentProject.Path & "\Styles\Office2007Black.dll"
Set pm = CommandBars.PaintManager
pm.RefreshMetrics
CommandBars.RecalcLayout


موفق باشید ./

[alirezabahrami]

این کدهای Access برای تغییر تم


CommandBarsGlobalSettings.Office2007Images = CurrentProject.Path & "\Styles\Office2007Black.dll"
Set pm = CommandBars.PaintManager
pm.RefreshMetrics
CommandBars.RecalcLayout


موفق باشید ./

وقتی قطعه کد CommandBars.RecalcLayout در کد فوق بکار میرود ریبون بصورت یک کادر سفید رنگ و بدون هیچ آبجکتی به نمایش در می آید و وقتی CommandBars.RecalcLayout از کد فوق حذف میشود ریبون نمایش داده میشود .

[Dr.Bronx]

وقتی قطعه کد CommandBars.RecalcLayout در کد فوق بکار میرود ریبون بصورت یک کادر سفید رنگ و بدون هیچ آبجکتی به نمایش در می آید و وقتی CommandBars.RecalcLayout از کد فوق حذف میشود ریبون نمایش داده میشود .

تم ریبون تغییر می کنه یا نه ؟

[alirezabahrami]

تم ریبون تغییر می کنه یا نه ؟
تم ریبون هیچ تغییری پیدا نمی کنه!
ضمناًRecalcLayout که در vb جز خاصیت های RibbonBar و CommandBar است در اکسس فقط جزء خاصیت RibbonBar می باشد و CommandBar فاقد چنین خاصیتی می باشد .

[Dr.Bronx]

من همون کدی که نمونه برنامه از روی اون ساخته شده رو گفتم که می تونید عکسش رو توی ضمیمه بینید .

در صورت ادامه این مبحث
ادامه بحث رو در تاپیک جداگانه ای در بخش Access پیگیری کنید


موفق باشید ./

[abas1388]

سفید باشه حله
این عکس یکی از آیکون های منه

http://barnamenevis.org/forum/attachment.php?attachmentid=42301&stc=1&d=1255992081

در قسمت Edit هم یک سری قابلیت ها از جمله Transparent رو داره

موفق باشید ./

با سلام مجدد
در ضمیه ، عکس یک آیکون با پس زمینه سفید است و وقتی آن را از طریق ImageManager به ریبون اضافه می کنیم بصورت تصویر بعد نمایش داده میشود ( آیکن بر روی ریبون دارای پس زمینه سفید است ). چکار باید بکنم که آیکون دارای پس زمینه سفید نباشد یا به تعبیری بدون رنگ باشد.
با تشکر

[Dr.Bronx]

به این دلیل هست که پسوند فایل شما BPM هست
از آیکونهایی با پسوند .Ico استفاده کنید مشکلی وجود نداره

موفق باشید ./

[shahmahi]

یک راه ساده برای اینکه بتونید آیکون هاتون رو به ImageManager بدون هیچ مشکلی اضافه کنید بنظرم اینه که از Icone Workshop استفاده کنید.فقط کافیه هر نوع آیکونی رو که دارید حالا میخواد هر نوع پسوندی باشه فرق نمیکنه با استفاده ازIcone Workshop به فایل 32*32 باپسوند ico تبدیل کنی بعد به ImageManager اضافه کنید .

به همین سادگی به همین خوشمزه گی :چشمک:

[earse+erse]

آخه ایشون داره میگه ControlPrint رو اررور میده !
ControlPrint یه چیزه اون پیغامی که ایشون میگه یه چیز دیگست

گفتم شاید دچار توهم شدن :لبخند:


که دچار توهم شدن . . .
اگه منظور شما از توهم زده بنده ام باید به عرض برسونم اشکال برنامه روبان همون بود که جناب شاه ماهی عرض فرمودند :INI و اوالین اروری که ظاهر می شد هم از قسمت ControlPrint و بعد از اون به 100 تا چیز دیگه هم گیر میداد

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

حالا فهمیدین کی توهم زده کی نزده؟:تشویق::تشویق::تشویق:

[earse+erse]

سلام یه سوال فنی درباره Ribbon



1-چه جوری میشه یه چیزی تو مایه های عکس پایین درست کرد؟

http://barnamenevis.org/forum/attachment.php?attachmentid=42284&stc=1&d=1263109698



3-چه جوری میشه تو بک گراند تصویر گذاشت؟



دکتر جون اینو نمی دونی؟



2- چه جوری می شه توGroups یه برچسب یا تکست باکس قرار داد؟

http://barnamenevis.org/forum/attachment.php?attachmentid=42285&stc=1&d=1263109698



واسه این خودم یه کارایی کردم ولی دکی جون راهنمایی کنین!

درون Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)




Select Case Control.Id
Case 100
Control.Checked = True
End Select




درون Private Sub CreateRibbonBar()


تکست

RibbonBar.QuickAccessControls.Add xtpControlEdit, 343

چک باکس

Set MyBtn = MyGroup.Add(xtpControlCheckBox, 100, "a")



چه طوری میتونیم تو برنامه روبان تون یه عکس بزاریم؟

[Dr.Bronx]

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

[earse+erse]

Ribbon=روبان
یه نگاه به دیکشنری بنداز



آروم آروم


آروم آروم کجا بود . . . عصر عصر سرعته رفیق!



شما که کدهارو نوشتی دیگه مشکلتون چیه ؟


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

[abas1388]

به این دلیل هست که پسوند فایل شما BPM هست
از آیکونهایی با پسوند .Ico استفاده کنید مشکلی وجود نداره

موفق باشید ./
اتفاقاً پسوند فایل باید BPMباشد که بتوان آن را از طریق ImageManager به ریبون اضافه نمود . چون در قسمت import and export یکی از گزینه ها import and export Bitmap است که تصاویر با فرمت bpm را قبول می کند. امروز کلیِ آیکون با فرمت ico دانلود کردم ولی هیچکدام را نتوانستم از طریق ImageManager به ریبون اضافه کنم .
دو مورد از آیکون ها را ضمیمه کرده ام
با تشکر

[javadt]

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

[shahmahi]

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

این راهنمایی (http://barnamenevis.org/forum/showpost.php?p=886073&postcount=107) بود دوستان محض رضای خدا نگفتم . :چشمک:

[javadt]

اما چطوری باید لودشون کرد
میشه یک مثال بزارید
با تشکر

[Dr.Bronx]

اما چطوری باید لودشون کرد
میشه یک مثال بزارید
با تشکر

CommandBar.Icons = ImageManager1.Icons

[shahmahi]

نمیدونم ولی فکر کنم با توجه به توضیحات جناب Dr.Bronx و عکسهای زیر مشکل دوستان حل بشه .:چشمک:

http://barnamenevis.org/forum/attachment.php?attachmentid=42371&stc=1&d=1263232667

http://barnamenevis.org/forum/attachment.php?attachmentid=42372&stc=1&d=1263232667

http://barnamenevis.org/forum/attachment.php?attachmentid=42373&stc=1&d=1263232667

http://barnamenevis.org/forum/attachment.php?attachmentid=42374&stc=1&d=1263232667

[abas1388]

[

نمیدونم ولی فکر کنم با توجه به توضیحات جناب Dr.Bronx و عکسهای زیر مشکل دوستان حل بشه .:چشمک:

http://barnamenevis.org/forum/attachment.php?attachmentid=42371&stc=1&d=1263232667

http://barnamenevis.org/forum/attachment.php?attachmentid=42372&stc=1&d=1263232667

http://barnamenevis.org/forum/attachment.php?attachmentid=42373&stc=1&d=1263232667

http://barnamenevis.org/forum/attachment.php?attachmentid=42374&stc=1&d=1263232667


سلام
دوستان بزرگوار عنایت داشته باشند بنده هم این مراحل که به صورت تصویر نشان داده شده را انجام داده ام و همانطور که در پست های قبلی مطرح کردم مشکل اینجاست که 1- از طریق import and export Bitmap نمیتوان تصاویر با فرمت ico را به ImageManager اضافه نمود برخلاف نظر آقای دکتر ( جهت صدق ادعای حقیر دو مورد آیکن را که آپلود کرده بودم را امتحان کنید )

2 - تصاویر با پسوند bpm را میتوان اضافه کرد ولی اگر زمینه تصویر سفید باشد آیکن مربوطه با زمینه سفید نمایش داده میشود.
از مدیر محترم بخش استدعا میشود بلحاظ ارتباط موضوع مطرح شده در این پست و چند پست قبلی با عنوان این تاپیک ، این پست را حذف ننمایند تا انشاء الله با راهنمائی دوستان به نتیجه قطعی برسیم . فکر می کنم این مشکل بعضی از دو ستان دیگر هم باشد .
راستي برنامه اي كه جناب shahmahi پيشنهاد كردند فكر مي كنم راه حل خوبي باشد ولي متأ سفانه عليرغم تلاش زياد نتواستم آن را از اينترنت دانلود كنم و يكبار هم كه دانلود كردم اجرا نشد . از ايشان خواهش مي كنم چنانچه اين برنامه را دارند لينك دانلودش را در اينجا قرار بدهند!
با تشکر

[Dr.Bronx]

چه جالب
تمام عکس هایی که من می زارم
پسوند Ico هست
میگید نه ؟
عکس زیر رو نگاه کنید

http://barnamenevis.org/forum/attachment.php?attachmentid=42412&stc=1&d=1263301692

[shahmahi]

دوستان بزرگوار عنایت داشته باشند بنده هم این مراحل که به صورت تصویر نشان داده شده را انجام داده ام و همانطور که در پست های قبلی مطرح کردم مشکل اینجاست که 1- از طریق import and export Bitmap نمیتوان تصاویر با فرمت ico را به ImageManager اضافه نمود برخلاف نظر آقای دکتر ( جهت صدق ادعای حقیر دو مورد آیکن را که آپلود کرده بودم را امتحان کنید )


دوست عزیز اگه میخوای آیکونی رو به ImageManager اضافه کنی طبق عکسا عمل کن میشه چون من اون 2 تا آیکونی رو که ضمیمه کردی بدون هیچ مشکلی به ImageManager اضافه کردم . اصلا لازم نیست از import and export Bitmap استفاده کنی .


از ایشان خواهش می کنم چنانچه این برنامه را دارند لینک دانلودش را در اینجا قرار بدهند!


در مورد Icone Workshop باید بگم قرار دادن لینک دانلودش مقدور نیست به 2 دلیل : 1 – فعالیت وارز محسوب میشه 2 – حجم زیاد اون
اگه از اینترنت پیدا نکردی میتونی از فروشگاه هایی که محصولات نرم افزاری دارن تهیش کنی .

[alirezabahrami]

اصلا لازم نیست از import and export Bitmap استفاده کنی .


دوست عزیز ! اگر مراحل اضافه کردن آیکون را با فرمت ico را (طبق تصاویر) انجام بدهید می بینی هیچ مشکلی وجود ندارد . پس یک بار دیگر با دقت به تصاویر نگاه کن و آیکون مورد نظرت را اضافه کن.
من هم برای اضافه کردن آیکون از همین شیوه استفاده می کنم .
موفق باشید

[Dr.Bronx]

این کد برای کسانی که می خوان یک چیزی مثل عکس زیر داشته باشنhttp://i.imagehost.org/0086/800179.gif

اول کدشو تحویل بگیرین http://vadrouilles.moto.free.fr/smileys/yapyapyapf.gif

Dim Control As CommandBarControl
Set ControlOptions = RibbonBar.Controls.add(xtpControlPopup, 0, "Theme")
ControlOptions.Flags = xtpFlagRightAlign

Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10100, "Blue")
Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10101, "Black")
Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10102, " Silver")
Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10103, "Aqua")


http://barnamenevis.org/forum/attachment.php?attachmentid=42627&stc=1&d=1263631750

در ضمن توی نظرسنجی هم شرکت کنید . http://www.picbaran.com/files/zmf8ta9b8ar0gx7mmqin.gif

موفق و موید باشید ./ http://www.forum.persiancoder.com/images/smilies/icon_gol.gif

[armin1100]

لطفا در مورد calendar از مجموعه codejock هم توضيح بدين ممنون

[Dr.Bronx]

لطفا در مورد calendar از مجموعه codejock هم توضیح بدین ممنون

والا اون ابزار خیلی کامل و بدرد بخوری هست
منتها اون ابزار فقط برای تاریخ میلادی قابل استفاده هستhttp://vadrouilles.moto.free.fr/smileys/dunnosmiley.gif
و برای ما کاربردی ندارهhttp://smilies.sofrayt.com/^/aiw/cry.gif
باز هم اگر برای میلادی نیاز دارید می تونم تا جایی که اطلاع دارم راهنمایی کنم.

موفق باشید http://www.forum.persiancoder.com/images/smilies/icon_gol.gif

[aryasoft2872]

این برنامه رو هم من با ریبون نوشتم و از خیلی از قابلیت هاش هم استفاده شده ببینید اگه جایی نیاز داشتید بگید تا روشش رو بگم(شاید هم بگن)
http://www.4shared.com/file/196936913/7506b5f2/PDF_Reader.html
توی این آدرس هم اگه برید یه چیزهای جالبی درباره ریبون ورژن 13.2.1 پیدا می کنید
ppdfr.mihanblog.com

[aryasoft2872]

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

[Dr.Bronx]

شما که توی اون نمونه ای که داده بودید tab ساخه بودید !!!!http://vadrouilles.moto.free.fr/smileys/dunnosmiley.gifبه هر حال . این کدش :

Dim TabWrite As RibbonTab
Set TabWrite = RibbonBar.InsertTab(0, "&Tab Name")
TabWrite.Id = 1

موفق و موید باشید http://www.forum.persiancoder.com/images/smilies/icon_gol.gif

[aryasoft2872]

نه منظورم Tab برای فرم جدیده اگر مثال های خود codejock و داریم منظورم مثال tab manager
یه چیزی مثل عکس زیر که وقتی رو جدید کلیک می کنی یه tab جدید زیر ریبون ایجاد کنه (برای باز کردن چند فایل با هم)

[vahid_khasal]

سلام دوستان چطور ميشه كه قسمت نوار عنوان و كنترول باكس رو با خود ريبون يكي كرد مثل
پي دي اف خوان aryasoft2872
واسم جالب بود

[Dr.Bronx]

سلام دوستان چطور میشه که قسمت نوار عنوان و کنترول باکس رو با خود ریبون یکی کرد مثل
پی دی اف خوان aryasoft2872
واسم جالب بود

CommandBar.EnableOffice2007Frame True
CommandBar.EnableOffice2007FrameHandle Me.hwnd


نه منظورم Tab برای فرم جدیده اگر مثال های خود codejock و داریم منظورم مثال tab manager
یه چیزی مثل عکس زیر که وقتی رو جدید کلیک می کنی یه tab جدید زیر ریبون ایجاد کنه (برای باز کردن چند فایل با هم)

تا اونجایی که من متوجه شدم با این sub ساخته میشه

Private Sub LoadNewDoc()
Static lDocumentCount As Long
Dim frmD As frmDocument
lDocumentCount = lDocumentCount + 1
Set frmD = New frmDocument
frmD.Caption = "Document " & lDocumentCount
Set frmD.fMain = Me

frmD.Show
End Sub

:متفکر:

[aryasoft2872]

تا اونجایی که من متوجه شدم با این sub ساخته میشه

اینو خودم قبلا وارد کردم ولی برنامه فک می کنه بهش فحش دادی:لبخند:باید اول یه جوری tab ها ساخته بشن:متفکر:(با این کد یه فرم child ساخته می شه.)

[earse+erse]

این کد برای کسانی که می خوان یک چیزی مثل عکس زیر داشته باشنhttp://i.imagehost.org/0086/800179.gif

اول کدشو تحویل بگیرین http://vadrouilles.moto.free.fr/smileys/yapyapyapf.gif

Dim Control As CommandBarControl
Set ControlOptions = RibbonBar.Controls.add(xtpControlPopup, 0, "Theme")
ControlOptions.Flags = xtpFlagRightAlign

Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10100, "Blue")
Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10101, "Black")
Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10102, " Silver")
Set Control = ControlOptions.CommandBar.Controls.add(pr_ControlB utton, 10103, "Aqua")


http://barnamenevis.org/forum/attachment.php?attachmentid=42627&stc=1&d=1263631750

در ضمن توی نظرسنجی هم شرکت کنید . http://www.picbaran.com/files/zmf8ta9b8ar0gx7mmqin.gif

موفق و موید باشید ./ http://www.forum.persiancoder.com/images/smilies/icon_gol.gif
واسه من کار نمیکنه دقیقا باید کجای کد ریبون باشه؟

[Dr.Bronx]

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

موفق باشید ./

[shahmahi]

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

http://barnamenevis.org/forum/attachment.php?attachmentid=42823&stc=1&d=1263920748

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

http://barnamenevis.org/forum/attachment.php?attachmentid=42824&stc=1&d=1263920748
ممنون . :چشمک:

[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]

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


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

http://barnamenevis.org/forum/attachment.php?attachmentid=42823&stc=1&d=1263920748

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

[Hamid Reza Rahimi]

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

[vbhamed]

سلام

جناب Dr.Bronx عزيز

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

[Hosna.Soft_old]

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

http://barnamenevis.org/attachment.php?attachmentid=42823&stc=1&d=1263920748

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

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


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]

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


http://barnamenevis.org/forum/attachment.php?attachmentid=41802&stc=1&d=1262111202

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


http://barnamenevis.org/forum/images/buttons/download.gif (http://barnamenevis.org/forum/downloads.php?do=file&id=59&act=down)

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

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]

دکتر جون من این نمونه ی شما رو کمی تغییر دادم حالا یه مشکلی واسم پیش اومده ببین میتونی حلش کنی
فایل ضمیمه رو ببین
یا
http://www.barnamenevis.org/forum/attachment.php?attachmentid=43505&stc=1&d=1265120619
اون بالارو میگم کپشنش رو میبینی قاطی پاطی با این که فونش رو عوض کردم اما باز ...


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

[earse+erse]

سلام دکتر
با ابزار های Codejock (http://barnamenevis.org/forum/tags.php?tag=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]

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

[Dr.Bronx]

متاسفانه راهی برای این کار نیست .
فقط با دابل کلیک میشه این کار رو انجام داد که باز هم اول submenu رو نشون میده


Set ControlFile = RibbonBar.AddSystemButton()
ControlFile.Id = 666
ControlFile.IconId = 666
ControlFile.CloseSubMenuOnClick = False
ControlFile.Caption = "system"


بعد هم توی execute باید یک کیس باز کنید

Case 666
End

اگر راه بهتری پیدا کردید بنده رو هم مطلع کنید .

موفق باشید ./

[djnew2009]

راستی یه برنامه به اسم skin builder بود
که می تونید با اون تم طراحی کنید و به برنامتون اضافه کنید
این برنامه تو Xtreme SuitePro ActiveX v13.3.1 (30 Day Trial)
پیدا کردم این برنامه به شما امکان اضافه کردن تم ویندوز به برنامه و دستکاری رو میده
اما نمی تونید از اون خروجی بگیرید برنامه توپی!!
اگه برنامه رو پیدا نکردید فقط بهم پیام بدید تا فایل رو براتون بگذارم

[Snoopboy]

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

[Dr.Bronx]

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

1- فرم اول که ابزار روی اون قرار داره نباید ببندید ( می تونید Hide کنید )
2- خاصیت ApplyNew (هر دو رو ) برابر با True قرار بدید .
3- برای فرم بعدی ابزار روی فرم قرار ندید و کدنویسی هم نکنید .

موفق باشید ./

[earse+erse]

راستی یه برنامه به اسم skin builder بود
که می تونید با اون تم طراحی کنید و به برنامتون اضافه کنید
این برنامه تو Xtreme SuitePro ActiveX v13.3.1 (30 Day Trial)
پیدا کردم این برنامه به شما امکان اضافه کردن تم ویندوز به برنامه و دستکاری رو میده
اما نمی تونید از اون خروجی بگیرید برنامه توپی!!

کی گفته؟
میشه خروجی گرفت.
اول تم خودتون رو بسازید و ویرایش کنید بعد از منوی File گزینه ی Export و بعد گزینه ی Export to Cjstyles file ... رو بزنید .
در مرحله بعد نام فایل و مسیر رو انتخاب کنید و روی دکمه Save کلیک کنید. به همین سادگی

اگه سولی بود در خدمتم.:قلب:

[Snoopboy]

من تو سایت خودش سازنده یه Sample دانلود کردم که Slider گذاشته بود و رنگ عوض می شد . عکسش. گذاشتم . می خوام بدونم دوستان کسی می تونه این کارو انجام بده؟ لطفا یک نمونه بگذاره.

[aryasoft2872]

این حالتی که شما گفتید(آقای اسنوپ بوی) بعضی وقت ها درست کار نمی کنه یعنی دور اشیاء رنگ بنفش میگیرن...

[Snoopboy]

میدونم جناب آریا ولی خواستم ببینم دوستان کسی از این نمونه های اینطوی داره؟ خیلی جالبه. اگه داره بزاره . ممنون

[mahmood_s]

با سلام

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

[Restlesa]

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

[butterfly8528]

سلام دوستان عزیز.

چطور میتونم داخل گروه های ریبون PopUp Button های تو در تو به شکل زیر ایجاد کنم ؟

http://up.iranblog.com/Files1/9d0e39bfb7d349ea9285.jpg

خیلی ممنون .

[butterfly8528]

سلام دوستان عزیز.

چطور میتونم داخل گروه های ریبون PopUp Button های تو در تو به شکل زیر ایجاد کنم ؟


خیلی ممنون .



دوستان کسی نمیتونه کمک کنه ؟

[شایان کدینگ]

من نتونستم این موارد و دانلود کنم

[kami_63]

کسی با CommandBarsDesigner ریبون ساخته من چندتا سوال دارم
1- caption دکمه ها دو خطی میشن
2- وقتی می خوام از ریبون تو برنامه استفاده کنم چجوری می تونم دکمه های close , maximize,minimize ریبون استفاده کنم ماله فرم رو بردارم
البته قبلا که کد نویسی ریبون درست کردم این کارا رو کردم ولی الان نمیدونم چجوری باید این کارا رو بکنم.

[amir200h]

سلام به همه ی دوستان.
این نمونه ریبونی که گذاشته بودین واسه دانلود مثل اینکه لینکش خرابه اگه کسی داره بزاره. ممنونم:قلب:.
فعلا یا حق

[aryasoft2872]

می بخشید من قبلا یادمه توی این تاپیک یکی از دوستان روشی داده بود برای اینکه خاصیت های یکی از کنترل های ریبون رو تغییر بدیم (با کلیک بر روی یک شی خارج از کاماند بار مثلا یک commandbutton) که از اکشن استفاده می کرد،اگر یکی از دوستان می دونه چطوری میشه اینکارو بکنه ممنون میشم بگه...(خط اولش یادمه ولی دومیش نه)


commandbars1.enableActions
????

[mamad174]

با سلام من از Xtreme SuitePro ActiveX 2009 Vol 4 (13.4.0) )استفاده می کنم ولی با این کد نمی تونم از اسکین استفاده کنم لطفا کمکم کنید

[aryasoft2872]

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


Skinframework.loadskin {Skin File} as string,{ini File} as string
skinframework.applywindow me.hwnd

در ضمن نسخه جدید هم کرک شده برای دریافت کرک>>>>پ.خ:چشمک:

[mjrahat]

پاسخ به سوال kami_63 (http://www.barnamenevis.org/forum/member.php?u=41078)
بعد از ساخت فایل این کد ها رو بنویس


Private Sub Form_Load()
CommandBars.LoadDesignerBars App.Path + "\win.xcb"
CommandBars.ActiveMenuBar.EnableFrameTheme
End Sub

[Dr.Bronx]

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


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


این دستور مربوط به اسکین برای فرم جدید هست؟ کجا وارد کنم؟ تو لود فرم دومی یا فرم اولی ؟
نیازی به کد وارد کردن نیست . روی SkinFrameWork کلیک کنید در قسمت تنظیمات AutoApplyNewThreads و AutoApplyNewWindows رو True کنید .


چطور ميشه خصوصياتي مانند فونت توپر و رنگ فونت رو براي گره هاي چايلد اعمال كرد؟
مشکلی که Codejock داره اینکه که همه چیز رو خطی حساب می کنه . یعنی از همون خاصیت vb6 استفاده می کنه و دستورات رو خط به خط اجرا می کنه . البته میشه گفت این به vb مربوط هست .
در نتیجه شما اون آیتم رو فقط همون جایی که دارید ایجاد می کنید میتونید تغییر بدید .
Containeri برای این کار وجود نداره .


caption دکمه ها دو خطی میشن
فونتتون رو عوض کنید ... !


وقتی می خوام از ریبون تو برنامه استفاده کنم چجوری می تونم دکمه های close , maximize,minimize ریبون استفاده کنم ماله فرم رو بردارم
از متد ApplyOfficeTheme خود Ribbon استفاده کنید .


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

*** برای دریافت codejock suit همچنان می تونید به این آدرس ایمیل بزنید: Codejock12@gmail.com

به زودی آموزش Video استفاده از SkinBuilder برای ساخت Skin های شخصی .

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

[skh1300]

در رایبون یه textBox گذاشتم چگونه خاصیت TextChenge اون را پیدا سازی کنم ممنون

[mamad174]

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

[ali190]

باسلام
از همه اساتید بایت تمام آموزشها کمال تشکر رو دارم
واقعاً خسته نباشید
چند تا سئوال داشتم:

Me.CommandBars.Options.Font.Name = "B Homa"
Me.CommandBars.Options.Font.Size = "10"
با این کد فونت همه commandهارو ست میکنم

TabWrite.RibbonBar.RibbonPaintManager.CaptionFont. Name = "b titr"
TabWrite.RibbonBar.RibbonPaintManager.CaptionFont. Size = 13
با این کد فونت مربوط به group هارو ست میکنم
سئوال :
1-با چه کدی میتونم فونت tab (سربرگها) هارو عوض کنم؟

2-میشه لطف کنید و توضیح بدید چطور میتونم از تم های ویندوز در برنامه هام استفاده کنم؟
فونت تمهارو چطور عوض کنم؟

3-چطور میتونم رنگ poup هارو عوض کنم
یک گزینه coustomize داره ولی نمیدونم چطور باید ازش استفاده کنم

4-چطور میتونم در یک منوی poup که بر روی یک command سوار است یک combo تعریف کنم؟
5- چطور میتونم در یک tab (سربرگ) یک textbox درست کنم
بعد از ایجاد textbox چطور میتونم در دستوراتم به اون تکست باکس اشاره داشته باشم
(من یه برنامه بانک اطلاعاتی دارم که بانکش اکسس هست میخوام در یکی از tab ها یه textbox بذارم و با یه دکمه کنارش diablog.showfile رو بزنم و کادر انتخاب فایل باز بشه و بعد از اانتخاب محل دیتابیسم مسیر انتخاب فایل دیتابیس در این تکست باکس نمایش داده بشه)
ممنون میشم راهنماییم کنید)
6-چطور میتونم در آخر فرمهام status bar درست کنم
اصلاً تو ابزار codejock ابزار statusbar هست؟
یکی از دوستان لطف کردند و یه برنامه رو در این تایپیک قرار دادند
در ساخت منوش از ابزار CommandBarsDesigner.exe استفاده شده

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

Public Const ID_BDR_ALL = 1080
Public Const ID_BDR_BOTTOM = 1085
Public Const ID_BDR_INSIDE = 1084
Public Const ID_BDR_INSIDE_HORZ = 1083
Public Const ID_BDR_INSIDE_VERT = 1087
Public Const ID_BDR_LEFT = 1082
Public Const ID_BDR_NONE = 1078
Public Const ID_BDR_OUTSIDE = 1079
Public Const ID_BDR_RIGHT = 1086



که بعداً بعد از معرفی اکشنی رو به id کنترل نسبت میدهند
میخوساتم بدونم این const ها بر چه اصولی تعریف میشه
من تو پروژه ام باید از چه اعدادی در تعریف این const ها استفاده کنم؟
اگر const رو دلخواه تعریف کنم دیگه اکشن دکمه ها ار کار میفته.
اگر امیشه این قشیه رو توضیح بدین
ممنون ومتشکر
ممنون

[amir200h]

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

http://barnamenevis.org/forum/attachment.php?attachmentid=56640&stc=1&d=1284829244

[Dr.Bronx]

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

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

متاسفم واقعا ...

[ali190]

باسلام خدمت همه دوستان بالاخص جناب Hosna.Soft عزیز
جناب Hosna.Soft عزیز بشخصه همیشه در این زمینه(زیباسازی برنامه ها با codejock) مدیون شما هستم
واقعاً یکی از بهترین تایپیکهای بخش vb هست که من خودم بار ها از کنارش رد شدم و توجهی نکردم
ولی بعد که مطالعش کردم دیدم واقعاً شما کار بزرگی انجام دادید
واقعاً در این زمونه اینترفیس خوب برای یک برنامه فاکتور مهمی در انتخاب مشتری هست که شما نقش بسزایی در پیشبرد این مهم داشتید.
ممنون و متشکر
اما در مورد سئوالاتی که بنده پرسیدم ،
باور بفرمائید تمام 19 صفحه رو با دقت تمام مطالعه کردم ، با اشتیاق کامل
بعضی از جاهاش رو هم متوجه نشدم ولی خیلی نکات دستم اومد که انشاءالله با کمک شما بیشتر و بیشتر از این ابزار کارآمد استفاده میکنم

باسلام
از همه اساتید بایت تمام آموزشها کمال تشکر رو دارم
واقعاً خسته نباشید
چند تا سئوال داشتم:

کد:
Me.CommandBars.Options.Font.Name = "B Homa" Me.CommandBars.Options.Font.Size = "10"
با این کد فونت همه commandهارو ست میکنم

کد:
TabWrite.RibbonBar.RibbonPaintManager.CaptionFont. Name = "b titr" TabWrite.RibbonBar.RibbonPaintManager.CaptionFont. Size = 13
با این کد فونت مربوط به group هارو ست میکنم
سئوال :
1-با چه کدی میتونم فونت tab (سربرگها) هارو عوض کنم؟

در مرود سئوال اولم خدممتون عرض کردم روش تعویض فونت group و command در تایپیک مطرح شده بود ولی در مورد تعویض فونت tab ها فکر نکنم ، حداقل بنده جایی ندیدم.
************************************************** ***********************************
2-میشه لطف کنید و توضیح بدید چطور میتونم از تم های ویندوز در برنامه هام استفاده کنم؟
فونت تمهارو چطور عوض کنم؟




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

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

************************************************** *****************************
اما مهمترین سئوال در مرود همین سئوال آخر بنده هست
من در طراحی منوهام ترجیح میدم به جای خلق منوها با کد از CommandBarsDesigner.exe استفاده کنم
در واقع در این برنامه منوهام رو طراحی کنم و فایل xcb حاوی منوها رو به برنامه ام متصل کنم
بنده در ساخت منو و.... مشکلی ندارم
مشکل من در نسبت دادن اکشن ها به منوهاست
100% برای هر منو باید یک id مستقل تعریف کرد برای نسبت دادن دستوراات به منوها
سئوال من اینجاست که ما که در نرم افزار commandbardesigner برای هر command یک id تعین میکنیم چرا دوبار توبرنامه مون از :


Public Const ID_BDR_ALL = 1080
Public Const ID_BDR_BOTTOM = 1085
Public Const ID_BDR_INSIDE = 1084
Public Const ID_BDR_INSIDE_HORZ = 1083
Public Const ID_BDR_INSIDE_VERT = 1087
Public Const ID_BDR_LEFT = 1082
Public Const ID_BDR_NONE = 1078
Public Const ID_BDR_OUTSIDE = 1079
Public Const ID_BDR_RIGHT = 1086
ثابت ها استفاده میکنیم
مگه هر command برای خودش یک id نداره که دستورات رو بهش رفر بدیم؟
اگر این یک اجبار هست و این ثابت ها باید تعریف بشه ok ، لطفاً روش مقداری دهی این const هارو برای هر کلید لطف کنید

یکی از دوستان لطف کردند یک نمونه برنامه در این مورد گذاشتن (http://barnamenevis.org/forum/attachment.php?attachmentid=56572&d=1284746291)

در نمونه ایشون مثلاً در ماژول برنامه شما به جای
Public Const ID_BUTTON1 = 1020
از Public Const ID_BUTTON1 = 1011 استفاده کنید اکشن اون دکمه بهم میخوره و دیگه کار نمیکنه
پس 100 درصد از یک قاعده دارن این شماره ها پیروی میکنند
بنده این قاده رو نمیدونم
اگر لطف کنید و این قضیه رو به من توضیح بدید
این قضیه که حل بشه سئوالات 43و4و5و6 بنده اتوماتیک پاسخ داده میشن چون آبجکتهای مورد نیازم رو با commandbardesigner طراحی میکنم و اکشنهارو بهش نسبت میدم.
دستتون درد نکنه
ما همیشه بدهکار شمائیم
یاعلی

[Dr.Bronx]

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


در ابتدا این رو برای کسانی که پیغام خصوصی ارسال می کنند اینجا بزارم . ( اینها همون افرادی هستند که اصلا صفحات رو مطالعه نمی کنند )


از این پس برای دریافت ابزار فقط به آدرس زیر ایمیل بزنید

codejock12@gmail.com

autoresponse هست و ظرف چند ثانیه برای شما یک ایمیل میاد.

موفق باشید./

در مورد سوالات شما


1-با چه کدی میتونم فونت tab (سربرگها) هارو عوض کنم؟

این هم مال صفحه 14 همین تاپیک هست .


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


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




-میشه لطف کنید و توضیح بدید چطور میتونم از تم های ویندوز در برنامه هام استفاده کنم؟
تم های ویندوز با پسوند .msstyle هستند .
خوب مشکلی نداره دیگه


Private Sub Form_Load()
Me.SkinFramework1.LoadSkin App.path + "\Skins\windowstheme.msstyle", ""
Me.SkinFramework1.ApplyWindow Me.hWnd
End Sub



فونت تمهارو چطور عوض کنم؟
انشاالله به زودی آموزشش رو میزارم .


اگر این یک اجبار هست و این ثابت ها باید تعریف بشه ok ، لطفاً روش مقداری دهی این const هارو برای هر کلید لطف کنید
نه اصلا همچین اجباری نیست .
ببینید این Const ها رو برای این تعریف می کنیم که کار ساده تر بشه و بعدا اگر خواستیم آیکون یک منو رو تغییر بدیم سر درگم نشیم دیگه . یعنی شما بعد از 1 سال هیچ وقت یادتون نمی مونه شماره 1045 چه آیکونی هست و باید کلی وقت بزارید داخل Imagemanager دنبال اون بگردید . اما اینجوری ما برای هر آیکون یک اسم تعریف می کنیم . یعنی میگیم هر موقع گفتیم ICO_Main_Close بیا آیکون شماره 500 که برای خروج از برنامه قرار استفاده بشه رو قرار بده .

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

[ali190]

سلام
بنده دستور تعویض فونت tab هارو در نمونه آموزش خودتون که در این تایپیک قرار داده بودید تست کردم و متاسفانه جواب نگرفتم:
RibbonBar.TabPaintManager.Font.Name = "Nazanin"
نمیدونم شاید در جای درست استفاده نمیکنم
میشه خودتون در اون برنامه تست کنید؟
در مورد استفاده از تمهای ویندوز هم خیلی ممنون
در مورد آموزش تعویض فونت هم پیشاپیش تشکر میکنم
اما در مورد ثابت ها
اینکه فرمودید اجباری نیست ، پس چرا در برنامه پیوستی (http://barnamenevis.org/forum/attachment.php?attachmentid=56572&d=1284746291)زمانیکه کلاً ثابتها رو حذف میکنم یا عدد مربوط به اونها رو عوض میکنم اکشن مربوط به اون آبجکت غیر فعال میشه؟

در نمونه ایشون مثلاً در ماژول برنامه شما به جای
Public Const ID_BUTTON1 = 1020
از Public Const ID_BUTTON1 = 1011 استفاده کنید اکشن اون دکمه بهم میخوره و دیگه کار نمیکنه
پس 100 درصد از یک قاعده دارن این شماره ها پیروی میکنند
بنده این قاده رو نمیدونم
اگر لطف کنید و این قضیه رو به من توضیح بدید
این قضیه که حل بشه سئوالات 43و4و5و6 بنده اتوماتیک پاسخ داده میشن چون آبجکتهای مورد نیازم رو با commandbardesigner طراحی میکنم و اکشنهارو بهش نسبت میدم.

میشه لطف بفرمائید در نمونه پیوستی درخواست بنده رو تست بفرمائید؟
ممنون و متشکر از لطف شما

[earse+erse]

با سلام:لبخندساده:
همه خوبین؟ .... انشا الله:بوس:
خدمت شما عرض کنم که بنده دوباره یک پروژه شروع کردم که اگه خدا بخواد میخوام توش از ریبون کدجاک استفاده کنم، حالا دوباره اومدم تو این تاپیک تا مزاحم شما اساتید بشم:لبخند:

فعلا تا حالا مشکلی که بهش برخوردم اینه که میخوام برای یکی از آی دی ها تو ریبون یک کلید میانبر بزارم مثلا وقتی کاربر Ctrl + C رو زد آبجکت کد 1011 اجرا بشه :متفکر:

وقتی با CommandBars Designer ریبون رو می سازم می شه براش کلید میانبر تعریف کرد ولی با کد ها نمیشه:اشتباه: اگه یک کمکی به ما هم بکنین ممنون میشم:قلب:

[milad-fa]

وقتی با CommandBars Designer ریبون رو می سازم
با سلام،
دوست عزیز من با CommandBars Designer نمیتونم هیچ چیزی بسازم میشه کمکم کنی تاپیک هم زدم :
درخواست آموزش Codejock Command Bars Designer (http://barnamenevis.org/forum/showthread.php?t=247927)
اگه کمکم کنی ممنون میشم.
دوستان هم اگه اطلاعاتی دارند لطفاً کمک کنند.
با تشکر...

[ali190]

سلام
بنده دستور تعویض فونت tab هارو در نمونه آموزش خودتون که در این تایپیک قرار داده بودید تست کردم و متاسفانه جواب نگرفتم:
RibbonBar.TabPaintManager.Font.Name = "Nazanin"
نمیدونم شاید در جای درست استفاده نمیکنم
میشه خودتون در اون برنامه تست کنید؟
در مورد استفاده از تمهای ویندوز هم خیلی ممنون
در مورد آموزش تعویض فونت هم پیشاپیش تشکر میکنم
اما در مورد ثابت ها
اینکه فرمودید اجباری نیست ، پس چرا در برنامه پیوستی (http://barnamenevis.org/forum/attachment.php?attachmentid=56572&d=1284746291)زمانیکه کلاً ثابتها رو حذف میکنم یا عدد مربوط به اونها رو عوض میکنم اکشن مربوط به اون آبجکت غیر فعال میشه؟

در نمونه ایشون مثلاً در ماژول برنامه شما به جای
Public Const ID_BUTTON1 = 1020
از Public Const ID_BUTTON1 = 1011 استفاده کنید اکشن اون دکمه بهم میخوره و دیگه کار نمیکنه
پس 100 درصد از یک قاعده دارن این شماره ها پیروی میکنند
بنده این قاده رو نمیدونم
اگر لطف کنید و این قضیه رو به من توضیح بدید
این قضیه که حل بشه سئوالات 43و4و5و6 بنده اتوماتیک پاسخ داده میشن چون آبجکتهای مورد نیازم رو با commandbardesigner طراحی میکنم و اکشنهارو بهش نسبت میدم.

میشه لطف بفرمائید در نمونه پیوستی درخواست بنده رو تست بفرمائید؟

نه اصلا همچین اجباری نیست .
ببینید این Const ها رو برای این تعریف می کنیم که کار ساده تر بشه و بعدا اگر خواستیم آیکون یک منو رو تغییر بدیم سر درگم نشیم دیگه . یعنی شما بعد از 1 سال هیچ وقت یادتون نمی مونه شماره 1045 چه آیکونی هست و باید کلی وقت بزارید داخل Imagemanager دنبال اون بگردید . اما اینجوری ما برای هر آیکون یک اسم تعریف می کنیم . یعنی میگیم هر موقع گفتیم ICO_Main_Close بیا آیکون شماره 500 که برای خروج از برنامه قرار استفاده بشه رو قرار بده .



جناب HOSNA.SOFT عزیز بنده در ساخت RIBBON از کد استفاده نکردم بلکه از COMMANDBARDESIGNER استفاده کردم ، گمون نمیکنم در این حالت تعرف CONST ضرورتی داشته باشه چون بنده آیکونها رو مستقیم دارم در خود برنامه COMMANDBARDESIGNER تعریف میکنم و از IMMAGEMANAGER در پروژه ام استفاده نمیکنم.
ممنون و متشکر از لطف شما

[Dr.Bronx]

دوستان عزیز اگر کمی صبر داشته باشید و به قول ما دندون روی جیگر مبارک بزارید ، ویدئو آموزشی در حال ساخت هست و به زودی روی سایت گزاشته میشه .

و یک درخواست دیگه هم دارم اگر تا جایی که امکان داره سوالاتتون رو توی تاپیک بپرسید تا دیگران هم از پاسخ اون استفاده کنند .

متشکرم .
موفق و موید باشید ./

[Restlesa]

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


http://barnamenevis.org/forum/attachment.php?attachmentid=41802&stc=1&d=1262111202

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


http://barnamenevis.org/forum/images/buttons/download.gif (http://barnamenevis.org/forum/downloads.php?do=file&id=59&act=down)

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

Good Luck Friend(s)

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

[skh1300]

ميشه از آقا/خانم Hosna.Soft خواهش كنم جواب ما رو هم بده
1-در رایبون یه textBox گذاشتم چگونه خاصیت TextChenge اون را پیدا سازی کنم
2-يك رايبون در فرم گذاشتيم و تم رايبون ( همون dll ) را هم به فرم اعمال كردم حالا چگونه به ساير فرمها اين تم را بديم.
ميگي پيام خصوصي نده همينجا بپرسيد اما....

[earse+erse]

با سلام:لبخندساده:
همه خوبین؟ .... انشا الله:بوس:
خدمت شما عرض کنم که بنده دوباره یک پروژه شروع کردم که اگه خدا بخواد میخوام توش از ریبون کدجاک استفاده کنم، حالا دوباره اومدم تو این تاپیک تا مزاحم شما اساتید بشم:لبخند:

فعلا تا حالا مشکلی که بهش برخوردم اینه که میخوام برای یکی از آی دی ها تو ریبون یک کلید میانبر بزارم مثلا وقتی کاربر Ctrl + C رو زد آبجکت کد 1011 اجرا بشه :متفکر:

وقتی با CommandBars Designer ریبون رو می سازم می شه براش کلید میانبر تعریف کرد ولی با کد ها نمیشه:اشتباه: اگه یک کمکی به ما هم بکنین ممنون میشم:قلب:
اول یکم عصبانی هستم:عصبانی:
هیچ کی منو دوست نداره و جواب منو نمیده :گریه:
ولی خودم میگردم جوابمو پیدا میکنم:کف::تشویق:

خدمتتنو عارض بشم که کدش رو یافتم



CommandBars.KeyBindings.Add FCONTROL, Asc("N"), ID_FILE_NEW

البته باید تو یه ماژول تعریف کرده باشی که


Public Const FSHIFT = 4
Public Const FCONTROL = 8
Public Const FALT = 16


:چشمک: برین حالش رو ببرین
در ضمن میخوام یه آموزش ریبون حرفه ای بزارم که هرچی بخواین توش باشه، هرچی:لبخند:

[Dr.Bronx]

دوستان عزیز اگر کمی صبر داشته باشید و به قول ما دندون روی جیگر مبارک بزارید ، ویدئو آموزشی در حال ساخت هست و به زودی روی سایت گزاشته میشه .

و یک درخواست دیگه هم دارم اگر تا جایی که امکان داره سوالاتتون رو توی تاپیک بپرسید تا دیگران هم از پاسخ اون استفاده کنند .

متشکرم .
موفق و موید باشید ./

http://barnamenevis.org/forum/showthread.php?t=248986

[SilverLearn]

با سلام خدمت دوستان من اين ريبون آقاي دكتر رو تو برنامم بكار بردم اما زمانيكه مي خوام از برنامه فايل اجرايي تهيه كنم(كامپايل مشكلي نداره)از خط زير ارور ميگيرهSetRect R, x + 2, y + 2, x + cx - 2, y + cy - 3ارورشم اينه Byref argument type mismatchحالا من چيكار كنم يكي كمك كنه (هم اكنون نيازمند ياري سبزتان هستيم)تازه اگر option explicit رو هم بگذارماز Set ControlPrintارور مي گيرهvariable note difinedتازه من تمان صفحه های قبلی رو خوندم ولی مشکلم حل نشدحالا اقا دکتر نگی صفحه های قبلی رو بخون ها.....

[SilverLearn]

سلام آقای دکتر و سایر دوستان
کسی مشکل من رو نمی تونه حل کنه

[Dr.Bronx]

چرا من هرچی فکر می کنم و میگردم چنین کدی رو پیدا نمی کنم ؟

SetRect R, x + 2, y + 2, x + cx - 2, y + cy - 3

فکر کنم این کد رو خودتون نوشتید !!

در مورد دومی هم که همون صفحات اول گفتیم . در قسمت Refrence ها تیک گزینه INIcontrol رو بردارید .

موفق باشید ./

[amir200h]

سلام به همه ی دوستان.
به دلیل اینکه سیستم جدید من ویندوز XP رو ساپورت نمی کنه مجبورم از ویندور7 استفاده کنم. در این ویندور وقتی ابزارهای Codejock رو فراخوانی می کنم با پیغام زیر مواجه می شم.
http://barnamenevis.org/forum/attachment.php?attachmentid=57958&stc=1&d=1257194347

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

[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 با پیغام زیر مواجه می شم. کسی میدونه دلیلش چیه؟
http://barnamenevis.org/forum/attachment.php?attachmentid=58195&stc=1&d=1257486425
ممنونم
یا حق

[Dr.Bronx]

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

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

موفق باشید ./

[ali190]

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



http://barnamenevis.org/forum/attachment.php?attachmentid=56842&stc=1&d=1285093983
اما این مسئله در منویی که با کدنویسی بوجود اومده نیست
اینم راه حل داره که کپشن ها بصورت wrap نیفته؟
خواهشاً اگر مقدوره نمونه پیوستی رو اصلاح بفرمائید

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

http://barnamenevis.org/forum/attachment.php?attachmentid=58261&stc=1&d=1286905067
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("CXTPRibbonSystemPopupBarPage")
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 کوچکتر نشونش میده


http://barnamenevis.org/forum/attachment.php?attachmentid=58323&stc=1&d=1286980232


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

[Dr.Bronx]

سلام ؛

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

http://www.barnamenevis.org/forum/attachment.php?attachmentid=58342&stc=1&d=1263409735

موفق باشید ./

[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]

سلام به همه ی دوستان.
دو تا نکته رو من خودم جدیدن یاد گرفتم گفتم با شما هم در میونش بزارم.
سورسشو تو ضمینه گذاشتم همراه با توضیحات فارسی.
http://barnamenevis.org/forum/attachment.php?attachmentid=58769&stc=1&d=1258333895
============================
اینو قبلا دوستان گذاشته بودن ولی توضیحی برای اینکه چطوری دستور روش بزارن نه.
http://barnamenevis.org/forum/attachment.php?attachmentid=58770&stc=1&d=1258333895
امیدوارم تکراری نباشه

[amir200h]

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

http://barnamenevis.org/forum/attachment.php?attachmentid=58790&stc=1&d=1258346578

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

[Golsha]

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

ممنون .

[amir200h]

سلام به همه دوستان.
اینم واسه کسایی که می خوان یه چیزی شبیه شکل زیر داشته باشن.
با توضیحات فارسی
http://barnamenevis.org/forum/attachment.php?attachmentid=58815&stc=1&d=1258400371
امیدوارم تکراری نباشه

[ali190]

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

[AmirPasha_vb]

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

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

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

http://barnamenevis.org/forum/attachment.php?attachmentid=58840&stc=1&d=1287767396


تاپیک جدا هم زدم Tooltip Ballon در ویستا (http://barnamenevis.org/forum/showthread.php?t=253482)

[amir200h]

سلام به همه دوستان.
http://barnamenevis.org/forum/attachment.php?attachmentid=58920&stc=1&d=1258527702
اگه می خواین یه چیزی تو مایه های شکل بالا داشته باشین که وقتی روی چک باکس کلیک کردید آیتم مورد نظر اضافه یا حذف بشه فقط کافیه کد زیر را وارد کنید

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

[amir200h]

سلام به همه ی دوستان.
توی آفیس وقتی موس را روی یک دکمه می بریم یه چیزی تو مایه های زیر نمایش میده.
http://barnamenevis.org/forum/attachment.php?attachmentid=58953&stc=1&d=1258577833
براتون سورسشو آماده کردم.
همراه با توضیحات فارسی.
http://barnamenevis.org/forum/attachment.php?attachmentid=58952&stc=1&d=1258577833

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

[adib202]

دکتر جون من این نمونه ی شما رو کمی تغییر دادم حالا یه مشکلی واسم پیش اومده ببین میتونی حلش کنی
فایل ضمیمه رو ببین
یا
http://www.barnamenevis.org/forum/attachment.php?attachmentid=43505&stc=1&d=1265120619
اون بالارو میگم کپشنش رو میبینی قاطی پاطی با این که فونش رو عوض کردم اما باز ...


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


سلام
بالاخره پیداش کردم.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]

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

http://barnamenevis.org/forum/attachment.php?attachmentid=60524&stc=1&d=1260837881

[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++‎ میده من خودم از ورژن پایینتر استفاده میکنم
موفق باشی یا علی

[Ali_Prodes]

با سلام

با کد زیر می تونید در صورتی که از سیستم باتن (SystemButton) در Ribbon استفاده کردید و می خواهید آیکن انو به صورت چشمک زن در بیارید (فقط آیکن مورد نظرتون رو باید در ImageList از قبل داشته باشید)

یک کنترل تایمر بر روی فرم قرار داده خاصیت Timer.Interval=2000 یا به دلخواه خودتون تغییر بدید و کدهای زیر را اضافه کنید:



Private Sub Timer1_Timer()
Dim ControlFile As CommandBarPopup

Set ControlFile = RibbonBar.AddSystemButton()
If Timer1.Tag = "" Then
ControlFile.IconId = 1
Timer1.Tag = "1"
Else
ControlFile.IconId = 2
Timer1.Tag = ""
End If

End Sub

[dr_jacky_2005]

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

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


Private Sub Form_Initialize()
Call CodeJock_Lic
End Sub

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

این فایل لایسنس کجاس؟

این کدی که نوشتین رو توضیح میدین؟

اینم بگم که من از بروبچه های سی شارپم :خجالت:

[Ali_Prodes]

با سلام

وقتی Code Jock رو نصب می کنید و به صورت پیش فرض درایو C انتخاب بشه فایل های .License

در مسیر زیر هستند:


C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v12.1.1\Bin

[dr_jacky_2005]

با سلام

وقتی Code Jock رو نصب می کنید و به صورت پیش فرض درایو C انتخاب بشه فایل های .License

در مسیر زیر هستند:


C:\Program Files\Codejock Software\ActiveX\Xtreme SuitePro ActiveX v12.1.1\Bin



من توو این مسیر فقط اینارو دارم:
ResourceEditor.exe
CommandBarsDesigner.exe
Registrator.exe
و کلی دی ال ال بر فرض مثال مثل این:
Codejock.CommandBars.v13.4.0.Demo.ocx

همشونم پچ شدند و دیگه اون پیغام تریال نمیاد!

حالا این لایسنس کوو؟:گیج:

[look20]

با سلام خودتون دارید جواب خودتون رو میدید چرا میپرسید:متفکر::متعجب:


همشونم پچ شدند و دیگه اون پیغام تریال نمیاد!

حالا این لایسنس کوو؟:گیج:

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

[Dr.Bronx]

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


فایل های لایسنس داخل پوشه system32 قرار داره که به طور پیشفرض c:\windows\win32 هست

و پسوند اون ها lic هست . به عکس زیر توجه کنید


62876


موفق باشید ./

[shoeyb1990]

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

تو یکی از پست ها پرسیده بودن نحوه استفاده از close,Minimaiz,Maximaiz خود commandbar اما دقیق توضیح نداده بودن اگه امکان داره کامل توضیح بدین.

یه مشکل دیگه که هست من برای برنامه اسکین میزارم اما نمیگیره در واقع همون فرم vb رو نشون میده. با تشکر...............

[Restlesa]

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

مشکل 1 ) چه طوری می تونم گروهی کاملا شبیه به گروه File و Edit در عکسه ضمیه شده ایجاد کنم ؟
مشکل 2 ) چه طوری می تونم در قسمت ابزار کنار دکمه آفیس یک منوی باز شونده همراه با زیر منو ایجاد کنم ؟
مشکل 3 ) حالا چه طوری می تونم این منوی ساخته شده را با استفاده از یک خط از هم جداشون کنم و چند دسته بشن ؟؟؟

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

[shoeyb1990]

اقا کسی نیست یه جوابی به ما بده ...

[mahmood_s]

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

تو یکی از پست ها پرسیده بودن نحوه استفاده از close,Minimaiz,Maximaiz خود commandbar اما دقیق توضیح نداده بودن اگه امکان داره کامل توضیح بدین.

یه مشکل دیگه که هست من برای برنامه اسکین میزارم اما نمیگیره در واقع همون فرم vb رو نشون میده. با تشکر...............


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