Red de conocimiento informático - Material del sitio web - ¿Cómo modificar la lista desplegable del cuadro combinado con código?

¿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)

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)

'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

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"