DOCUMENT:Q186896  11-AUG-1998  [vbwin]
TITLE   :HOWTO: Use the ImageCombo Control with Visual Basic 6.0
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:
OPER/SYS:WINDOWS
KEYWORDS:

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Learning, Professional, and Enterprise Editions
   for Windows, version 6.0
---------------------------------------------------------------------

SUMMARY
=======

The ImageCombo Control is a picture-enabled version of the standard Windows
combo box. Each item in the list portion of the control can have a picture
assigned to it.

MORE INFORMATION
================

The ImageCombo provides an object with a collection-based list control.
Each item in the list portion of the control is a distinct ComboItem
object, and together the items in the list make up the ComboItems
collection. This makes it easy to specify properties such as Tag, Text,
Image, and so forth, on an item-by-item basis.

Step-by-Step Example
--------------------

1. Create a new standard EXE project.

2. From the Project menu select Components. On the Controls Tab,
   select Microsoft Windows Common Controls 6.0 and click OK.

3. Add an ImageCombo control and an ImageList control to the form.

4. Add four images to the ImageList control.

5. Add two Command Buttons and a Textbox to the form.

6. Add four OptionButtons to the form and set the Style to 1 - Graphical
   for all four OptionButtons.

7. Add the following code to the form:

      '** Start Code **
      Private Sub Command1_Click()
      'Add a new ComboItem to the ImageCombo
         Dim sItemKey As String
         Dim sText As String
         Dim i As Integer
         Static iCount As Integer
         sText = InputBox("Enter Text for new ComboItem")
         If Len(sText) > 0 Then
            iCount = iCount + 1
            sItemKey = "I00" & Str(iCount)
            'If you don't have a selected image you will not see an
            'image when the item is selected.
            'Get the image you want to use.
            i = SelectPic
            ImageCombo1.ComboItems.Add , sItemKey, sText, _
             i, i, Val(Text1.Text)
            'Make the ComboItem you just added the selected item.
            ImageCombo1.SelectedItem = ImageCombo1.ComboItems(sItemKey)
            'Make sure the Remove button is enabled.
            Command2.Enabled = True
         End If
      End Sub

      Private Sub Command2_Click()
      'Remove the selected ComboItem.
         Dim i As Integer
         i = ImageCombo1.SelectedItem.Index
         ImageCombo1.ComboItems.Remove i
         'Make the first ComboItem the select item if there is one.
         If ImageCombo1.ComboItems.Count > 0 Then
           ImageCombo1.SelectedItem = ImageCombo1.ComboItems(1)
         Else
           ImageCombo1.Text = ""
           ImageCombo1.Refresh 'clear the image
           Command2.Enabled = False
         End If
      End Sub

      Private Sub Form_Load()
        ImageCombo1.ImageList = ImageList1
        Command1.Caption = "Add"
        Command2.Caption = "Remove"
        Option1.Caption = ""
        Option2.Caption = ""
        Option3.Caption = ""
        Option4.Caption = ""
        Option1.Picture = ImageList1.ListImages(1).Picture
        Option2.Picture = ImageList1.ListImages(2).Picture
        Option3.Picture = ImageList1.ListImages(3).Picture
        Option4.Picture = ImageList1.ListImages(4).Picture
        Text1.Text = 1
        ImageCombo1.Text = ""
        Command2.Enabled = False
        Option1.Value = True
      End Sub

      Private Function SelectPic() As Integer
      'Find out which OptionButton is selected and use that
      'image in the ImageCombo that you are adding.
        Dim i As Integer
        Dim b As Boolean
        b = True
        Select Case b
          Case Option1.Value
            i = 1
          Case Option2.Value
            i = 2
          Case Option3.Value
            i = 3
          Case Option4.Value
            i = 4
        End Select
        SelectPic = i
      End Function
      '** End Code **

8. Save and run the form. When you click Add, a ComboItem is added to the
   ImageCombo control. When the ComboItem is added, the image from the
   selected OptionButton is used. Also, the ComboItem is indented by the
   amount you enter in to Text1. You can remove a ComboItem by clicking the
   Remove button.

(c) Microsoft Corporation 1998, All Rights Reserved. Contributions by
Brian Combs, Microsoft Corporation

Additional query words: kbDSupport kbDSD kbCtrl kbUsage kbVBp600 kbVBp
======================================================================
Platform          : WINDOWS
Issue type        : kbhowto

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1998.