این جناب جستجو رو دیدم گفت یک سلامی برسونم به شما . البته نگفت چرا
اما گفت که بهتون بگم vb رو با Run as administrator باز کنید .
موفق باشید ./
Printable View
این جناب جستجو رو دیدم گفت یک سلامی برسونم به شما . البته نگفت چرا
اما گفت که بهتون بگم vb رو با Run as administrator باز کنید .
موفق باشید ./
سلام
دوستاني كه از ورژن 13.0.0 به بالا استفاده ميكنن با اين كد ميتونن استايل خودشون را مثل آفيس 2010 كنن
کد HTML:
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
سلام به همه ی دوستان.
من در ویندوز7 وقتی کد نویسی می کنم با commandbar با پیغام زیر مواجه می شم. کسی میدونه دلیلش چیه؟
https://barnamenevis.org/attach...1&d=1257486425
ممنونم
یا حق
@amir200h
مشکل از vb هست . ربطی به codejock نداره .
دوباره نصب کنید vb رو حل میشه .
موفق باشید ./
باسلام خدمت اساتید گرامیضمن تشکر از جناب Hosna.Soft عزیز سه سئوال از codejock داشتم که میخواستم در اینجا مطرحشون کنم»
1- مثلاً فرض کنید که شما میخواهید یه دکمه درست کنید با اسم "گزارش پیشرفت"
زمانیکه با commandbardesigner این دکمه رو ایجاد میکنیم کپشن دکمه رو دوخطی میندازه ولو اینکه عرض دکمه هر چقدر بزرگ باشه
اما این مسئله در منویی که با کدنویسی بوجود اومده نیست
اینم راه حل داره که کپشن ها بصورت wrap نیفته؟
خواهشاً اگر مقدوره نمونه پیوستی رو اصلاح بفرمائید
2- من چطور میتونم دکمه های group و زیر مجموعه در منوی زیر درست کنم(از طریق کدنویسی)
3- از طریق کد نویسی زمانیکه یک تکست باکس در یک گروپ ایجاد میکنم چطور میتونم اندازه این تکست باکس رو از طریق کدنویسی تنظیم کنم(مثلاً ایجاد یک تکست باکس 5 سانتی جهت گرفتن آدرس دیتابیس ) و چطور میتونم یک دکمه درست در مقابل این تکست باکس قرار بدم (یک دکمه با کپشن ... جهت فراخوانی دیتابیس)
ممنون و متشکر از لطف شما
1- من اصلا با designer کار نکردم و نخواهم کرد . کاملا دست آدم بسته میشه و از خیلی از کارهای دیگه می مونه . شما هم با کد درست کنید و خودتون رو از این مشکلات خلاص کنید .
2- اولا که توصیه می کنم نمونه های خود codejock رو حتما نگاه کنید . الان من همون کد ها رو اینجا کپی می کنم یا هم شما می تونید داخل نمونه خودش دنبال
Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Preview and print the document")
بگردید و کدهای اونجارو بررسی کنید . اما کدهاش اینهاست ( البته اضافه زیاد داره )
Set ControlPrint = .Add(xtpControlSplitButtonPopup, ID_FILE_PRINT, "&Print")
ControlPrint.BeginGroup = True
Set PopupBar = CommandBars.CreateCommandBar("CXTPRibbonSystemPopu pBarPage")
Set ControlPrint.CommandBar = PopupBar
Set Control = PopupBar.Controls.Add(xtpControlLabel, 0, "Preview and print the document")
Control.Width = 296
Control.DefaultItem = True
Control.Style = xtpButtonCaption
PopupBar.DefaultButtonStyle = xtpButtonCaptionAndDescription
PopupBar.SetIconSize 32, 32
PopupBar.ShowGripper = False
PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT, "Print Pre&view"
PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_SETUP, "Pr&int Setup..."
PopupBar.Controls.Add xtpControlButton, ID_FILE_PRINT_PREVIEW, "Print Pre&view"
3-کنترل کردن width
بعد از اینکه کنترل رو ایجاد کردید .
control.width = 15
برای ایجاد کردن یک دکمه جلوی تکست باکس بعد ازایجاد تکست باکس و کلید بنویسید
Control.Flags = xtpFlagWrapRow
موفق باشید ./
با سلام
تو ورژن Commandbar 13.4 منو شناور Quick Access کار نمیکنه؟
سلام
جناب hosna.soft عزیز ممنون از راهنماییتون
موارد بالا رو در فایلم اعمال کردم ولی نتیجه نگرفتمنقل قول:
بعد از اینکه کنترل رو ایجاد کردید .
control.width = 15
برای ایجاد کردن یک دکمه جلوی تکست باکس بعد ازایجاد تکست باکس و کلید بنویسید
Control.Flags = xtpFlagWrapRow
اندازه textbox تغییر نمیکنه ، یا اگر هم تغییر کنه از اندازه group بیرون میزنه
دکمه مورد نظر هم بتبع جلوی تکست باکس قرار نمیگیره
زمانی هم که منوی اصلی سیستم رو میسازم با اینکه ایکون ها رو 32*32 در نظر میگیرم ، منتها زمانیکه منو ایجاد میشه از 32*32 کوچکتر نشونش میده
فایل نمونه رو جهت اصلاح خدمتون آپلود کردم
ممنون و متشکر از لطف شما
سلام ؛
برای اینکه کمی هم کنجکاو بشید نمیگم چه کار کردم .
خودتون با قبلی بررسی کنید ببینید چه فرقی کرده :لبخند:
http://www.barnamenevis.org/at...1&d=1263409735
موفق باشید ./
سلام
جناب hosna.soft ممنون از اینکه نمونه رو اصلاح فرمودید
مشکلم حل شد
در نمونه پیوستی زمانیکه بر روی دکمه ... کلیک میکنید پنجره commondiablog گشوده میشود
چطور میتونم بعد از انتخاب فایل مقدار تکست ایجاد شده در ribbon را مساوی با CommonDialog1.FileName قرار دهم؟
یا مثلاً هنگام لود شدن فرمم مقدار تکست را مساوی با تاریخ جاری سیستم قرار دهم
در ویدئوی آموزشیتون که لطف کرده بودید بعد از وارد کردن دستی مقدار در تکست باکس اکشن مد نظر انجام میشد
اما در اینجا من میخوام با کد مقداری را به این تکست نسبت دهم
ممنون ومتشکر از لطف شما
یاعلی
سلام
چرا تب Tray Icon در Suite Controls Sample توی ویستا کار نمیکنه ؟؟؟
کلا تمام برنامه هایی که نوشتم و یه بالون کنار ساعت روی آیکون برنامه باز میکردن توی ویستا این کارو نمیکنند ؟؟؟
چرا ؟
سلام به همه ی دوستان.
می شه کاری کرد که وقتی روی دکمه ی دایره ای کلیک کریم به جای یک منو زیر هم 2 یا چند منو کنار هم باز بشه؟
ممنونم. یا حق
سلام ميشه يكم بيشتر در اين مورد توضيح بديننقل قول:
نوشته شده توسط skh1300
ممنون
سلام دوست من.
کد بالا به جای اینکه اون دکمه ی دایره ای رو نشون بده بچاش یک دکمه مثل تب با رنگ آبی ایچاد می کنه که همون کارو می کنه. نمونه شو می تونی تو ویندوز7 در برنامه paint یا office2010 ببینی.
درست.
انوقت اين كد ها رو تو ريبون بنويسيم ديگه؟
سلام دوست من.
بله. من تو انتهای ریبون نوشتم جواب داد.
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
یا حق
سلام به همه ی دوستان.
دو تا نکته رو من خودم جدیدن یاد گرفتم گفتم با شما هم در میونش بزارم.
سورسشو تو ضمینه گذاشتم همراه با توضیحات فارسی.
https://barnamenevis.org/attach...1&d=1258333895
============================
اینو قبلا دوستان گذاشته بودن ولی توضیحی برای اینکه چطوری دستور روش بزارن نه.
https://barnamenevis.org/attach...1&d=1258333895
امیدوارم تکراری نباشه
سلام به همه ی دوستان.
این هم کد ساخت statusbar
https://barnamenevis.org/attach...1&d=1258346578
امیدوارم تکراری نباشه
سلام خدمت دوستان و سلام خدمت آقای mahmood_s . میخواستم خواهش کنم شما که از codejock v13.4 استفاده میکنید یه کمکی به من بکنید که بتونم منم ازش استفاده کنم یعنی کامپوننت های من trial هستن و نمی دونم چه طوری باید مشکلشون رو حل کنم . اگه امکان داره راهنماییم کنید تا مشکلم حل شه .
ممنون .
سلام به همه دوستان.
اینم واسه کسایی که می خوان یه چیزی شبیه شکل زیر داشته باشن.
با توضیحات فارسی
https://barnamenevis.org/attach...1&d=1258400371
امیدوارم تکراری نباشه
سلام amir200h عزیز
ممنون از آموزشهای عالی و کاربردیت
موفق باشی
دوستان میشه یه کمکی به من بکنید ؟ :گریه:نقل قول:
نوشته شده توسط AmirPasha_vb
این گزینه توی ویستا برای من کار نمیکنه ؟ برای شما هم همین جوریه ؟
توی عکس مشخص کردم ...
https://barnamenevis.org/attach...1&d=1287767396
تاپیک جدا هم زدم Tooltip Ballon در ویستا
سلام به همه دوستان.
https://barnamenevis.org/attach...1&d=1258527702
اگه می خواین یه چیزی تو مایه های شکل بالا داشته باشین که وقتی روی چک باکس کلیک کردید آیتم مورد نظر اضافه یا حذف بشه فقط کافیه کد زیر را وارد کنید
ribbonbar.QuickAccessControls.CreateOriginalContro lsامیدوارم تکراری نباشه.
موفق باشین. یا حق
سلام به همه ی دوستان.
توی آفیس وقتی موس را روی یک دکمه می بریم یه چیزی تو مایه های زیر نمایش میده.
https://barnamenevis.org/attach...1&d=1258577833
براتون سورسشو آماده کردم.
همراه با توضیحات فارسی.
https://barnamenevis.org/attach...1&d=1258577833
امیدوارم تکراری نباشه.
موفق باشید. یا حق
نقل قول:
نوشته شده توسط REZADG
سلام
بالاخره پیداش کردم.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
سلام ، دوستان 2 سوال دارم
1.اگه با Taskdialog کار کرده باشید وقتی یک پیغام رو نمایش میده و شما بخواهید بگید فوکوس رو به یک کنترل دیگه انتقال بدید پیغام خطای 5 رو نمایش میده ، به نظر شما این یه باگه یا مشکل خود وی بیه
2.اگه تو سمپلهای سایت codjock رو دیده باشید یه سمپل به نام انیمیشن گذاشتن که خیلی جالبه، میخوام بدون این سمپل با کدوم یکی از ابزارش تهیه شده
ممنون
با عرض سلام خدمت دوستان ، ببخشید میشه راهنماییم کنید که چه طوری از رنگ LightBlue در استایل office2007.cjstyles در برنامه ام استفاده کنم . ( اگه اشتباه نکنم در یکی از سورس های خودش از این خاصیت به نام schema نام برده بود ) .
__________________________________________________ _____________________________________
در طوفان های زندگی با خدا بودن بهتر از ناخدا بودن است .
سلام به همه ی دوستان.
من از ورژن 13.2.1 استفاده می کنم ولی به هیچ عنوان این ابزار تو وییندوز7 اجرا نمی شه. کسی دلیلشو نمیدونه؟
ممنونم.
یا حق
سلام من هم از این ورژن استفاده میکردم اما در سون مشکل خطای حافظه را داشت و ترجیح دادم از ورژن پایینتر استفاده کنم.هر کاری کردم مشکل را نفهمیدم
تنها دلیلی که این ابزار در ویندوز سون مشکل داره اینه که شما برنامه رو run as administrator رو اجرا نمی کنید .
موفق باشید ./
سلام به همه ی دوستان.
من از طریق run as adminitrator اجرا کرده بودم در دو نسخه home و ultimate
در نسخه ی home پیغام run time C++ رو میداد
الان تو نسخه ی ultimate اصلا پیغام خطا هم نمیده.
از ورژن پایین تر هم استفاده کردم جواب نداد.
به چند نفر از دوستان هم که داده بودم اونها هم همین مشکلاتو داشتن.
سلام به همه دوستان منجمله دوست گرامی جناب آقای Hosna.Soft
همینطور که دوستان می دونند هنگامی که بر روی RibbonBar راست کلیک می کنیم یک منویی به زبان انگلیسی ظاهر می شه با عناوین زیر
Add to Quick Access Toolbar
___________________________________
Customize Quick Access Toolbar
Show Quick Access Toolbar Below The Ribbon
__________________________________
Minimize the Ribbon
آیا راهی برای فارسی کردن آیتم های منویی که ذکر کردم هست؟ پیشاپیش از همه دوستانم ممنونم.
سلام دوست من.
نه امکانش نیست که با این ابزار بتونی اینکارو کنی ولی یه ابزار دیگه هست که خیلی قوی تر از این ابزاره به نام DevExpress.XtraBars.v8.1 که می تونی دانلود کنی.
البته برای visual studio 2010 و چند زبان دیگه است. نمی دونم که تو ویژوال بیسیک6 اجرا می شه یا نه
سلام به همه ی دوستان.
از اونجایی که موقع استفاده از این ابزار منوهای فورم نمایش داده نمی شه تصمیم گرفتم با یه ترفند ساده خودم یه منو طراحی کردم. سورسشو براتون میزارم با توضیحات فارسی. امیدوارم به کارتون بیاد.
شرمنده اگه تکراری بود.
https://barnamenevis.org/attach...1&d=1260837881
با سلام خدمت دوستان
جواب سوالی رو که مطرح کردم پیدا کردم
برای تغییر متون انگلیسی منویی که بعد از راست کلیک بر روی ریبون ظاهر می شه
در انتهای سابروتین تعریف ریبون و بعد از درج کلیه دستورات ، کد های زیر را هم به شکل زیر اضافه کنید :
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
برای نمایش منوی سفارشی سازی و فارسی کردن آیتم های منوی گفته شده به صورت بالا عمل کنید
تصاویر ضمیمه پست را ببینید
با سلام
اگه قصد دارید که با راست کلیک بر روی ریبون اصلا منویی ظاهر نشه اول این دو خط کد رو
که تو پست قبل گفته بودم باید مقدارشون True باشه رو False می کنید و سابروتین زیر رو به پروژه خودتون اضافه می کنید
RibbonBar.ControlQuickAccess.Visible = False
RibbonBar.AllowQuickAccessCustomization = False
Private Sub CommandBars_ToolBarContextMenu(ByVal ToolBar As XtremeCommandBars.ICommandBar, ByVal ContextMenu As XtremeCommandBars.ICommandBar)
ContextMenu.Controls.DeleteAll
End Sub
تو ورژن 13.4 Quick Access Toolbar کار نمیکنه
من استفاده کردم
عالیه.
ولی وقتی میبرم توو یه سیستم دیگه،برنامه ران نیمشه
و میگه
barname.exe occured with problem.....
یا همچین چیزی!
برنامه رو در دو حالت تریال و کرک شده تست کردم
جفتش نشد!!!!!!!!!!!!
ولی وقتی میرم توو سیستم دوم Codejock رو نصب میکنم،میشه!
دی ال ال ها هم کنار اگزه هستن!:متعجب:
با سلام از هر ocx ی از Code Jock استفاده می کنید باید فایل های .License آنها رو هم در کنار ocx ها قرار بدید یا در sytem32 کپی کنید
و یا در ماژول کد اولین فرم پروژه ، سابروتین زیر را ساخته و به شکل زیر عمل کنید
Private Sub Form_Initialize()
Call CodeJock_Lic
End Sub
Private Sub CodeJock_Lic()
SkinFrameworkGlobalSettings.License = "فایل .License را با نوت پد باز و متن موجود در آن را ،فقط پاراگراف اول را در اینجا وارد کنید"
End Sub
دوست عزیز این ورژن از کنترل با سون مشکل داره داخل تمام نسخه های سون امتحان کردم و همینجور که دوستمون گفت ارور run time C++ میده من خودم از ورژن پایینتر استفاده میکنمنقل قول:
نوشته شده توسط Hosna.Soft
موفق باشی یا علی