| Prioridades |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
 Ejercicio Nº 3: Crear controles. |
| |
|
|
Ahora Visual Basic nos permite, crear controles en tiempo de ejecución sin necesidad de hacerlo dentro de un array, a partir del primero creado en tiempo de diseño. |
|
El código es:
Private WithEvents cmdmiboton As CommandButton
Private Sub cmdmiboton_Click()
cmdmiboton.Caption = "¡Me hiciste Clic!"
End Sub
Private Sub Label2_Click()
Set cmdmiboton = Controls.Add("VB.commandbutton", "Button")
With cmdmiboton
.Visible = True
.Width = 3000
.Caption = "¡¡Qué Sorpresa!!"
.Top = 3000
.Left = 1000
End With
Label2.Enabled = False
End Sub
Primero hacemos Click en la Label que crea el botón y luego con el Click del botón cambiamos su propiedad Caption.
|
|
|
|
|
|
|
| |
Hoy habia 56 visitantes (67 clics a subpáginas) ¡Aqui en esta página! |
|
|
|
|
|
|
|
