¿Cómo modificar la lista desplegable del cuadro combinado con código?
Utilice código para modificar los elementos de la lista en el ComboBox y modifique dinámicamente los elementos que se muestran en el cuadro de lista. El método de implementación es el siguiente:
(1) Organice los controles en Form1. , como se muestra en la siguiente figura
Modifique la propiedad Estilo de Combo1 a: 2 - DropDownList
(2) Código Form1 ¿Opción?Explícito
'?Personalizado tipo: elementos mostrados en el cuadro de lista
¿Privado?Tipo?Tipo de elemento
Nombre?As?Cadena?'Nombre
Categoría?As?Integer'Código de categoría
¿Fin? Escribe
'-------------------------------- -------- -------------
'?BuildComboItems
'?La subrutina BuildComboItems modifica dinámicamente el contenido que se mostrará en el cuadro de lista
'?Items()?As?ItemType?es para mostrar la matriz de contenido
'---------------- ---------- --------------------------
¿Privado?Sub?BuildComboItems(Artículos ()?As?ItemType) p>
Dim?i?As?Integer
Con?Combo1
'?Borrar el contenido original de Combo1
.Clear
'?Agregar cada elemento de la matriz de contenido Items a Combo1
For?i?=?LBound(Items)?To?UBound(Items) p>
'Mostrar en Combo1" Nombre"
.AddItem?Items(i).Name
'Los datos del artículo son el código de categoría del artículo
.ItemData(.NewIndex)?=? Artículos(i).Categoría
Siguiente
Si?.ListCount?gt;?0?Entonces
'El primer elemento está seleccionado de forma predeterminada
.ListIndex?=?0
End?If
End?With
End ?Sub
Privado?Sub?Combo1_Click ()
'Después de hacer clic en Combo1, Label1 muestra los resultados de la selección del usuario
Dim?description?As?String p>
Con?Combo1
descripción?=?"Nombre del producto:"?.Texto? ?"?Categoría: "?CStr(.ItemData(.ListIndex))
¿Fin?Con
Etiqueta1 .Caption?=?descripción
¿Fin?Sub
¿Privado?Sub?Command1_Click()
'?Crear una matriz de elementos "Fruta"
Dim?Fruits(1?To?4)?As?ItemType
Fruits(1).Name?=?"Apple"
Frutas(1).Categoría?=?1
Frutas(2).Nombre?=
?"Naranja"
Frutas(2).Categoría?=?2
Frutas(3).Nombre?=?"Plátano"
Frutas(3 ).Categoría?=?3
Frutas(4).Nombre?=?"Fresa"
Frutas(4).Categoría?=?4
'?Agregar dinámicamente elementos de frutas en Combo1
BuildComboItems?Fruits
End?Sub
Private?Sub?Command2_Click()
' ?Crear una serie de elementos de "alimentos básicos"
Dim?Food(1?To?4)?As?ItemType
Food(1).Name?=?"Rice"
Comida(1).Categoría?=?10
Comida(2).Nombre?=?"Fideos"
Comida(2).Categoría? =?11
Comida(3).Nombre?=?"Dumpling"
Comida(3).Categoría?=?12
Comida(4) .Name?=?"Baozi"
Comida(4).Categoría?=?13
'?Agregue dinámicamente el elemento "alimento básico" en Combo1
BuildComboItems?Comida
Fin?Sub
Privado?Sub?Form_Load()
Comando1.Caption?=?"Fruta"
Command2.Caption?=?"Comida básica"
Etiqueta1.Caption?=?""
Combo1.Clear
Fin?Sub
(3) Efecto de ejecución
Al inicio
Después de hacer clic en el botón de comando "Frutas"
Después de hacer clic en el botón de comando "Alimentos básicos" p>