Make your own free website on Tripod.com
2dos.
Volver a Objetos y Propiedades de los Objetos ir al índice ir a Cuadros de Mensajes (MsgBox)
Nombre=N
Cuadro de texto
Text= " "
Name= btnSalir
Botón de comando
Botón de comando
Caption=Salir
Evento
Private Sub btnsalir_Click()
End
End Sub
Name:Btnsaludar
Caption=Saludar
Evento:
Sub saludar_Click( )
Print "Hola " & N. Text
End Sub
Mediante el botón de comando "btnsaludar" imprimimos "hola" y le agregamos lo que haya escrito en el cruadro de textos N. El otro botón de comando "btnsalir" cierra el formulario (tiempo de ejecución)

Otra forma: Si en lugar de imprimir el saludo en el mismo formulario deseamos que aparezca en otra caja (tipo caja de mensaje de Windows) escribiríamos así:

Evento:
Sub saludar_Click( )
msgbox ("Hola " & N.Text)
'MsgBox es quien genera la caja
End sub

El evento del otro botón no varía
Sub salir_ Click( )
End
End Sub

Formulario con casilla de verificación. De acuerdo al botón sobre el que se actúe, aparecerá tildada la casilla de verificación correspondiente.
chk:Hombre
chk:Mujer
Casilla de
Verificación
Casilla
de Verificación
Caption:Hombre
Caption:Mujer
Botón de Comando
Botón de Comando
Nombre:BtnMujer
Caption:Mujer

Nombre: BtnHombre
Caption:Hombre

Evento:
Sub btnhombre_Click( )
chkhombre.Value = 1
chkmujer.Value = 0
End Sub
Evento
Sub btnmujer_Click( )
chkmujer.Value = 1
chkhombre.Value = 0
End Sub

El botón "Subir" y el botón "Bajar" nos permitirán agregar o sacar respectivamente valor al número ubicado en la caja de texto "N".
TextBox (Caja de Texto)
Nombre=N
Text= 0
Nombre:btnbajar
Caption:Bajar
Evento
Nombre:btnsubir
Caption:Subir
Evento
Botón
de comando
Botón
de comand
o
Private Sub btnbajar_Click()
N.Text = Val(N.Text) - 1
End Sub
Private Sub btnsubir_Click()
N.Text = Val(N.Text) + 1
End Sub
La funcion "Val" recibe como dato una cadena (texto) y lo transforma en su equivalente numérico. Veamos algunos ejemplos:
Val("12")----->12
Print "12 + 1"----->121
Print Val(12) + Val(1)------>13
Sigamos con los ejercicios....
ir al índice
Volver arriba Volver a Objetos y Propiedades de los Objetos ir a Cuadros de Mensajes (MsgBox)