You are here: Combobox - getItemSuperTip
Combobox - getItemSuperTip
Sets the Enhanced SuperTip for a specific item.
Sample Ribbon XML file:
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="CallbackOnLoad"> <ribbon startFromScratch="false"> <tabs> <tab id="MyTab" label="Sample ComboBox"> <group id="MyGroup" label="Sample ComboBox"> <labelControl id="myLabel1" label="Sample:" /> <labelControl id="myLabel2" label="ComboBox" /> <comboBox id="myComboBox" label="My ComboBox:" showLabel="true" getItemImage="CallbackCBGetItemImage" getItemCount="CallbackCBGetItemCount" getItemLabel="CallbackCBGetItemLabel" getItemScreentip="CallbackCBGetItemScreentip" getItemSupertip="CallbackCBGetItemSupertip" getItemID="CallbackCBGetItemID" imageMso="PictureEffectsGlowGallery" onChange="MyComboBoxCallbackOnChange" sizeString= "WWWWWWWWWWWWW" getText="CallbackCBGetText"> </comboBox> </group> </tab> </tabs> </ribbon> </customUI>
Function to be copied to a standard module:
Sub CallbackCBGetItemSupertip(control As IRibbonControl, _ index As Integer, _ ByRef supertip) ' Callback getItemSupertip Select Case control.ID Case "myComboBox" supertip = Nz(DLookup("txtSubName", "tblPictures", _ "txtPicName='" & _ Format(index, "00") & "'"), " ") End Select End Sub
You can find this sample in Sample DB 2