Unicode Controls & Classes for VB6 - Version 4

ctlUniComboImageXP Control

Unicode Combo ListBox with optional images
Check common properties here

Name Description
Name Description
MouseWheel Raised when the mouse wheel scrolls
OnOwnerDraw Raised when an item is about to be drawn. Change properties of this event for translating items
at runtime or assign icons to items. This event is called the first time for measuring the item
then every time the item needs to be refreshed
BeforeDropDown Raised before dropping down the list
AfterDropDown Raised before closing the drop down list
ItemSelecting Raised when selecting an item in the drop down list
Name Type Description
AllowImages (Boolean) Gets or sets the ability to use images in the combo
BackColor (OLE_COLOR) Gets or sets the Background color of the control
BackColorOut (OLE_COLOR) Gets or sets the Color of the area out of the border (when using Rounded Borders in a non WindowLess control)
Leave -1& for automatic management
BorderColor (OLE_COLOR) Gets or sets the Border color
ButtonBackColor (OLE_COLOR) Gets or sets the button background color
ButtonForeColor (OLE_COLOR) Gets or sets the button foreground color
ButtonStyle (eCtlButtonStyle) Gets or sets the style of the combobox
DropDownOnTextClick (Boolean) Gets or sets the ability to show the combo list when a user click on the control with the mouse
DropDownWidth (Long) Gets or sets the width of the drop down list
Enabled (Boolean) Enables or disables the control
Font (Font) Gets or sets the font used for text in the control, check the [ApplyFontChanges] for details
ForeColor (OLE_COLOR) Gets or sets the text color
HScroll (Boolean) Gets or sets the ability to use a horizontal scrollbar on the popup list
IconDim (Integer) Gets or sets the default size of item images
ItemData (Long) Gets or sets the [ListTag] but limited to be a number
List (String) Gets or Sets the item at a certain index
ListCount (Long) Returns the number of items in the list
ListIndex (Long) Gets or sets the current element
ListTag (Variant) Gets or sets the Tag associated with a certain list item
MouseIcon (Picture) Gets or sets the MouseIcon for the control
MousePointer (VBRUN.MousePointerConstants) Gets or sets the MousePointer for the control
OLEDropMode (eCtlOLEDropMode) Gets or sets the OleDropMode for the control
OwnerDrawState (eOwnerDrawState) Gets the OwnerDraw status, by checking this flag you can load items (icons or images) only when needed
RightToLeft (Boolean) Gets or sets the ability to show bidirectional text on the control
RoundedBorders (Boolean) Gets or sets Rounded borders
RoundSelector (Boolean) Gets or sets the ability to use rounded borders for the list item selector
SelBackColor (OLE_COLOR) Gets or sets the background color of the list item selector
SelectorStyle (eCtlButtonStyle) Gets or sets the style of the list selector
SelForeColor (OLE_COLOR) Gets or sets the foreground color of the list item selector
Sorted (Boolean) Gets or sets the ability to sort items alphabetically
Text (String) Gets or sets the text of the control
Tip (String) Gets or sets the Unicode Tooltip for the control
UseRoundRegions (Boolean) Gets or sets the ability to use Round Regions for round borders instead of using the [BackColorOut] property;
Name Type Description
AddItem (Long) Adds a new item in the combobox list and returns the index
ApplyFontChanges When setting a new font on the control you need to call this function in order to refresh the interface
BeginUpdate Permits you to start a long-time update on the control (for example by adding 1000 elements) without sending out many and many events. So it is faster!
Use un conjunction with [EndUpdate]
Clear Clears the list combo
CloneFrom Clones data from another control
DropDown Opens or Closes the dropdown list
EndUpdate Terminates a [BeginUpdate] reactivating the control after a long-time update
ForceLostFocus Forces the control to lose the keyboard focus
hWnd (Long) Retuns the handle associated with the control
IsDroppedDown (Boolean) Returns True if the combo list is dropped down
newIndex (Long) Returns the index of the latest item added
OLEDrag Starts an OLEDrag operation
RemoveItem Removes the item at a certain position
How to use the control:
Load items using the [AddItem] method; you can specify an additional Tag to each item (for example you can specify an item picture)
Then manage the [OnOwnerDraw] event and set images to items when needed.

Private Sub Form_Load()
With ctlUniComboImageXP1
.AddItem "1st element", , MDIForm1.puGetPic(egii_help) 'Save the picture in the tag
.AddItem "&2nd element", , MDIForm1.puGetPic(egii_x) 'Save the picture in the tag
.AddItem oIni.ReadString("test", "arabic", "arabic"), , MDIForm1.puGetPic(egii_help)
.AddItem oIni.ReadString("test", "arabic1", "arabic1"), , MDIForm1.puGetPic(egii_big)
.AddItem oIni.ReadString("test", "arabic2", "arabic2")
.ListIndex = 2
End With
End Sub
Private Sub ctlUniComboImageXP1_OnOwnerDraw(ByVal lItemIndex As Long, sItemText As String, _
oItemPic As stdole.Picture, iItemPicWidth As Integer, iItemPicHeight As Integer, bItemPicTransp As Boolean)

'Only if the Tag has an object value
If IsObject(ctlUniComboImageXP1.ListTag(lItemIndex)) Then
Set oItemPic = ctlUniComboImageXP1.ListTag(lItemIndex)
End If

End Sub