• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Use of ImageCombo control

Use of ImageCombo control

Use of ImageCombo control

API Declarations


Dim item As String
Dim i As Integer
Dim st(4) As String




Rate Use of ImageCombo control

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

st(0) = "Red"
st(1) = "Green"
st(2) = "Blue"
st(3) = "Pink"
st(4) = "Violet"

For i = 0 To 4
   objNewItem = ImageCombo1.ComboItems.Add(i + 1, "r" & i, st(i))

   ImageCombo1.ToolTipText = st(i)
   ImageCombo1.ComboItems("r" & i).Image = i + 1
Next
   
End Sub