Código de implementación del control del cuadro combinado VB

Atenuar i como entero, S como cadena

Para i = 0 a Combo1.ListCount - 1

Si InStr(1, Combo1 .List(i), Combo1 .Text, vbTextCompare) > 0 Entonces 'Si la letra ya existe en el cuadro combinado

MsgBox "¡La letra ya existe!, "Preguntar"

Salir de Sub

Si

Siguiente

Combo1.AddItem Combo1.Text 'De lo contrario, agregue los datos a Combo1.Text 'De lo contrario, agregue los datos a la lista.

End Sub

'O: El código para extraer los datos uno a uno de la lista del combo box es el siguiente:

'De la lista de el cuadro combinado uno por uno El código para extraer datos es el siguiente:

'El código para extraer datos uno por uno de la lista es el siguiente:

El código para extraer datos uno por uno de la lista de cuadros combinados es el siguiente:

Dim i As Integer, S As String

For i = 0 To Combo1.ListCount - 1

s= Combo1.List(i)

msgbox "El primer registro " & i & "es:" s

Finalizar si

Siguiente