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