rediffusion
7/30/2019 - 10:06 AM

Combobox - getItemScreenTip

NOTE: Для »» DropDown и Gallery аналогично!

<comboBox 
 id="myComboBox" 
 label="My ComboBox:"
 getItemScreentip="CallbackCBGetItemScreentip" 
 imageMso="PictureEffectsGlowGallery" 
 onChange="MyComboBoxCallbackOnChange" 
 sizeString= "WWWWWWWWWWWWW">
</comboBox>
Sub CallbackCBGetItemScreentip(control As IRibbonControl, _
                               index As Integer, _
                               ByRef screentip)
    Select Case control.ID
        Case "myComboBox"
            screentip = DLookup("txtName", "tblPictures", _
                                "txtPicName='" & _
                                Format(index, "00") & "'")
    End Select
End Sub