Cómo crear un botón usando código en VB

Ideas

Dos formas:

1. Crear mediante botones dinámicos,

2: Crear mediante matrices de controles.

Personalmente, prefiero usar la matriz de control. Generalmente, las aplicaciones se crean con regularidad, por lo que es más apropiado utilizar una matriz de control.

Por ejemplo, primero agregue un botón estándar en el formulario

'En la ventana de propiedades, establezca su propiedad Índice en 0

'¿Cambiar el nombre a? cmdDynCmd? (También se aceptan otros nombres, preste atención a las instrucciones a continuación)

'¿Visible se puede configurar en?Falso

¿Opción?Explícito

Private?lCmdIndex?As?Long

Private?Sub?LoadCmdButton()

'Aquí es donde se cargan los botones dinámicos

Dim?iamp;

Para?i?=?0?A?NNN'Aquí NNN es igual al número de botones que necesitas menos 1, puedes usar variables

'Deberías poder pasar tu " base de datos" a "¿El número de elementos en el campo "nombre" de la tabla para determinar el valor?

'?***? ¿Tenga en cuenta que "cmdDynCmd" aquí es el nombre de la clave determinada durante el diseño? *** If?(lCmdIndex ?gt;?0)?Then?Load?cmdDynCmd(i) cmdDynCmd(i).Visible?=?True 'El atributo ?Caption? " tabla en su base de datos "El contenido del campo está asociado con cmdDynCmd(i).Caption?=?"Botón dinámico"?amp;?i? ?1 'Puede calcular cmdDynCmd(i) en función del valor de ?x e y? ? aquí. ¿Fin?Sub

'?Aquí está el código de evento del botón dinámico

'?¿Determinar qué botón activó el evento según el índice?

'? Ha sido diseñado con usted de antemano. La matriz de control se usa exactamente de la misma manera

'?*****?¡Atención! ! ! Tenga en cuenta que ?cmdDynCmd? aquí es el nombre del botón determinado durante el diseño

Private?Sub?cmdDynCmd_Click(Index?As?Integer)

MsgBox "¿En qué hizo clic?" amp;?Index? ?1?amp;?"Un botón dinámico.",?64

'Solo puedes escribir el código de evento específico tú mismo

End?Sub