Usando o controle ImageCombo

Você sabia que o VB6 possui um controle chamado imagecombo que funciona como uma combobox com a vantagem que podemos exibir imagens relacionadas aos itens presente na caixa de combinação .

O controle imageCombo fornece um objeto e uma coleção baseada em um controle de lista onde cada item da list é um objeto ComboItem distinto . Juntando todos os itens forma-se a coleção ComboItems . Com isto fica fácil definir propriedades tais como : tag , Tooltip , Key etc.

Para poder usar o controle ImageCombo você tem que incluir a ocx MSCOMCTL no seu projeto . Ao distribuir sua aplicação esta ocx deverá ser instalada no diretório System ou System32 do Windows.

1- Inicie um novo projeto no VB 6 e inclua o componente MSCOMCTL.OCX no seu projet conforme acima

2- Inclua um controle ImageCombo e um controle ImageList conforme a figura abaixo:

3- A seguir inclua algumas imagens no controle ImageList ; e no evento Load do formulário digite o código abaixo :

Private Sub Form_Load()
Dim i As Integer

' vincula o controle ImageCombo ao controle imagelist
Set ImageCombo1.ImageList = ImageList1

' cria alguns itens com as imagens incluidas
For i = 1 To ImageList1.ListImages.Count
   ImageCombo1.ComboItems.Add , , ImageList1.ListImages(i).Key, i
Next i

' Seleciona o primeiro item
Set ImageCombo1.SelectedItem = ImageCombo1.ComboItems(1)
End Sub

4- Pronto , agora é só rodar e ver a lista de itens associado as imagens que você incluiu no ImageList.

Legal , não é mesmo , básico e simples ... Até a próxima dica

Jose Carlos Macoratti