¿Dónde configurar el número de índice de la matriz de control de VB?

El número de índice de la matriz de control VB6.0 se establece en la propiedad Índice de la ventana de propiedades del espacio.

Propiedad de índice (matriz de control), devuelve o establece el número que identifica de forma única un control en la matriz de control. Válido sólo si el control es un elemento de una matriz de controles.

Aunque de forma predeterminada Visual Basic asigna el siguiente entero disponible como valor de índice para un nuevo control en la matriz de controles, puede cambiar esta asignación y omitir algunos números. También puede establecer un número entero distinto de cero para el

índice del primer control de la matriz. Si hace referencia a un valor de índice en el código sin el control identificado en la matriz de controles, se producirá un error de tiempo de ejecución de Visual Basic.

La propiedad Índice distingue elementos en la matriz de control. Cuando un control de la matriz reconoce un evento, Visual Basic llama al procedimiento de evento público y pasa un parámetro (el valor de la propiedad Índice) para identificar qué control reconoció el evento.

Por ejemplo, la primera línea de código en el procedimiento del evento Number_Click es la siguiente:

Subprivado Number_Click (Index As Integer)

If Number(0 ) identifica el evento, Visual Basic pasa 0 como parámetro de índice y, si Número(1) reconoce el evento, Visual Basic pasa 1 como parámetro de índice.

Ejemplo de propiedad de índice

Este ejemplo comienza con dos controles OptionButton y agrega un nuevo OptionButton al formulario cada vez que se hace clic en el control CommandButton. Cuando se hace clic en un botón de opción, se establece la propiedad FillStyle

y se dibuja un nuevo círculo. Para probar este ejemplo, pegue el siguiente código en la sección de declaraciones de un formulario que tenga dos controles OptionButton, un CommandButton y un control PictureBox

grande. Establezca la propiedad Nombre de ambos controles OptionButton en Opción1

para crear una matriz de controles.

Subopción privada1_Click(Indexar como entero)

Dim H, W ? 'Declarar la variable.

Imagen1.Cls ? 'Borrar imágenes.

Imagen1.FillStyle = Índice ?

W = Picture1.ScaleWidth / 2 ? 'Obtiene el tamaño del círculo.

H = Imagen1.ScaleHeight/2

Imagen1.Circle (W, H), W/2?

End Sub

Private Sub Command1_Click()

Static MaxIdx ? 'El valor de índice máximo en la matriz.

Si MaxIdx = 0 Entonces MaxIdx = 1 ?

MaxIdx = MaxIdx 1 ? 'Aumenta el valor del índice en 1.

Si MaxIdx gt; 7 ¿Entonces salir de Sub? 'Coloque ocho botones en el formulario.

¿Cargar Opción1(MaxIdx)? 'Crear un nuevo elemento en la matriz.

'Establece la posición del nuevo botón de opción debajo del botón anterior.

Option1(MaxIdx).Top = Option1(MaxIdx - 1).Top 360

Option1(MaxIdx).Visible = True ?

Fin del subtítulo