vbscript,Code片段,代码实例,代码示例,代码片段库

vbscript Combobox - getItemImage

注意：Для»»`DropDown`和`Gallery`аналогично！

Office XML_23

<comboBox 
 id="myComboBox" 
 label="My ComboBox:"
 getItemImage="CallbackCBGetItemImage" 
 imageMso="PictureEffectsGlowGallery" 
 onChange="MyComboBoxCallbackOnChange" 
 sizeString= "WWWWWWWWWWWWW">
</comboBox>

Office VBA_24

Sub CallbackCBGetItemImage(control As IRibbonControl, _
                            index As Integer, _
                            ByRef image)
    Select Case control.ID
        Case "myComboBox"
            Set image = LoadPicture(getAppPath & _
                        "Pictures\" & _
                        Format(index, "00") & ".JPG")
       'Case else 'Или – ImageMso 
           image = "HappyFace" 
    End Select
End Sub

vbscript Combobox - getItemID

注意：Для»»`DropDown`和`Gallery`аналогично！

Office XML_22

<comboBox 
 id="myComboBox" 
 label="My ComboBox:"
 getItemID="CallbackCBGetItemID" 
 imageMso="PictureEffectsGlowGallery" 
 onChange="MyComboBoxCallbackOnChange" 
 sizeString= "WWWWWWWWWWWWW">
</comboBox>

Office VBA_23

Sub CallbackCBGetItemID(control As IRibbonControl, _
                        index As Integer, _
                        ByRef itemID)
    itemID = Format(index, "00") & "a"
End Sub

vbscript Combobox - getItemCount

注意：Для»»`DropDown`和`Gallery`аналогично！

Office XML_21

<comboBox 
 id="myComboBox" 
 label="MyComboBox:"  
 getItemCount="CallbackCBGetItemCount" 
 imageMso="PictureEffectsGlowGallery" 
 onChange="MyComboBoxCallbackOnChange" 
 sizeString= "WWWWWWWWWWWWW">
</comboBox>

Office VBA_22

Sub CallbackCBGetItemCount(control As IRibbonControl, ByRef count)
    'Callback кол-во Items
    Select Case control.ID
        Case "myComboBox"
            count = 4
    End Select
End Sub

vbscript MenuSeparator - getTitle

Office XML_20

<menuSeparator 
 id="mySeparator2" 
 getTitle="CallbackGetTitle"/>

Office VBA_20

Sub CallbackGetTitle(control As IRibbonControl, ByRef title)
    Select Case control.ID
        Case "mySeparator2"
            title = "My Title"
    End Select
End Sub

vbscript EditBox - onChange

Office XML_19

<editBox 
 id="MyEditBox" 
 label="My EditBox: " 
 getText="MyEditBoxCallbackgetText" 
 onChange="MyEditBoxCallbackOnChange"/>

Office VBA_19

Sub MyEditBoxCallbackOnChange(control As IRibbonControl, strText As String)
    Select Case control.ID
        Case "MyEditBox"
                MsgBox "Значение “Editbox” : " & _
                       strText, vbInformation, "Это заголовок!"
    End Select
End Sub

vbscript 的getText

注意：В“Box”-сеужебудеттекст（смотреть»»EditBox - onChange）！ <br/>

Office XML_18

<editBox 
 id="MyEditBox" 
 label="My EditBox: " 
 getText="MyEditBoxCallbackgetText" 
 onChange="MyEditBoxCallbackOnChange"/>

Office VBA_18

Sub MyEditBoxCallbackgetText(control As IRibbonControl, ByRef strText)
    Select Case control.ID
        Case "MyEditBox"
            strText = "Hello World"
'            strText = "Cat""Lucky"""
'        Case Else
'Почему `Tag` не знаю, возможно используется в `XML`.
'           strText = getTheValue(control.Tag, "DefaultValue")
    End Select
End Sub

vbscript 的getSize

注意：Для»»`菜单`和`动态菜单`подходиттоже！

Office XML_17

<button 
 id="MyBtn1" 
 getSize="CallbackGetSize" 
 imageMso="BevelShapeGallery"
 onAction="MyButtonCallbackOnAction"/>
<button 
 id="MyBtn2" 
 getSize="CallbackGetSize" 
 imageMso="BevelShapeGallery"
 onAction="MyButtonCallbackOnAction"/>

Office VBA_16

Sub CallbackGetSize(control As IRibbonControl, ByRef size)
    ' Callback size
    ' 0 = normal
    ' 1 = large
    Select Case control.ID
        Case "myBtn1"
            size = 0
        Case "myBtn2"
            size = 1
    End Select
End Sub

vbscript getShowLabel

注意：Для»»`菜单`和`动态菜单`подходиттоже！

Office XML_16

<button 
 id="MyBtn1" 
 label="Button 1"
 imageMso="BevelShapeGallery"
 onAction="MyButtonCallbackOnAction"
 getShowLabel="MyButtonCallbackShowLabel"/>

Office VBA_15

Sub MyButtonCallbackShowLabel(control As IRibbonControl, ByRef showLabel)
    Select Case control.ID
        Case "MyBtn1"
            showLabel = False
    End Select
End Sub

vbscript getShowImage

注意：Для»»`菜单`和`动态菜单`подходиттоже！

Office XML_15

<button 
 id="MyBtn1" 
 label="Button 1" 
 imageMso="BevelShapeGallery"
 onAction="MyButtonCallbackOnAction"
 getShowImage="MyButtonCallbackShowImage"/>
<button 
 id="MyBtn2" 
 label="Button 2" 
 imageMso="BevelShapeGallery"
 onAction="MyButtonCallbackOnAction"
 getShowImage="MyButtonCallbackShowImage"/>

Office VBA_14

Sub MyButtonCallbackShowImage(control As IRibbonControl, ByRef showImage)      
    Select Case control.ID
        Case "MyBtn1"
'Можно ещё так »» showImage = 0; 1;
            showImage = False
        Case "MyBtn2"
            showImage = True
    End Select
End Sub

vbscript getKeytip

注意：Для»»`菜单`和`动态菜单`подходиттоже！

Office XML_14

<button 
 id="MyBtn1"
 imageMso="BevelShapeGallery"
 getKeytip="CallbackGetKeytip"
 onAction="MyButtonCallbackOnAction""/>
 <button 
 id="MyBtn2"
 imageMso="BevelShapeGallery"
 getKeytip="CallbackGetKeytip"
 onAction="MyButtonCallbackOnAction""/>

Office VBA_12

Sub CallbackGetKeytip(control As IRibbonControl, ByRef keytip)
    Select Case control.ID
        Case "MyBtn1"
            keytip = "Bt1"
        Case "MyBtn2"
            keytip = "Bt2"
    End Select
End Sub