با سلام خدمت دوستان
در چند بخش اطلاعاتی در موردCommand bars تقدیم میکنم امیدوارم مفید باشه
1-نحوه ساختن Command bar
به طور کلی در مجموعه نرم افزار های آفیس به دو شیوه می توان به شخصی سازی Toolbar پرداخت :
الف: استفاده از Customize dialog box
ب: Microsoft® Visual Basic® for Applications (VBA) code
در نرم افزار Access شما قادر هستید از روش الف منو ها و pop-up منو ها(منوهای جهنده) را تولید نمایید ،اما در سایر نرم افزار های مجموعه افیس می بایست از VBA برای توسعه منو ها و pop-up منو ها استفاده نمایید.
جهت ساخت command bar یا همان منو های شخصی مجموعه ای از روش ها(method) گرد آوری شده است.
برای ساخت toolbar , menu bar,و pop-menu bar می بایست از متد msoBarMenuBar یا msoBarPopup استفاده نمود.
در زیر نمونه ای جهت ایجاد موارد فوق مشاهده می کنید:
[align=left]
کد PHP:
Sub Create_Menu()
Dim MyBar As CommandBar
Dim MyPopup As CommandBarPopup
Dim MyButton As CommandBarButton
Delete_Menu
Set MyBar = CommandBars.Add(Name:="My Menu", _
Position:=msoBarFloating, temporary:=True)
With MyBar
.Top = 125
.Left = 850
Set MyPopup = .Controls.Add(Type:=msoControlPopup)
With MyPopup
.Caption = "Popup 1"
.BeginGroup = True
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Button 1a"
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "Macro1a"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Button 1b"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Macro1b"
End With
End With
Set MyPopup = .Controls.Add(Type:=msoControlPopup)
With MyPopup
.Caption = "Popup 2"
.BeginGroup = False
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Button 2a"
.Style = msoButtonCaption
.BeginGroup = True
.OnAction = "Macro2a"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Button 2b"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Macro2b"
End With
End With
.Width = 100
.Visible = True
End With
End Sub
[/align]
علاقه مندی ها (Bookmarks)