mi padre y yo

mi padre y yo
¡¡¡¡igualitos!!!!

Buscar este blog

viernes, 25 de junio de 2010

LA ANTERIOR IMAGEN CORRESPONDE A UN PROGRAMA CREADO A TRAVES DE VISUAL BASIC.
SE CREAN LOS SIGUIENTES BOTONES:
6 COMMANDBUTTON
1 LABEL

SE INTRODUCEN LAS OPCIONES NECESARIAS EN LOS COMMANDBUTTON.
POR EJEMPLO, ENEL BOTON VISIBLE SE INTRODUCEN LA OPCION QUE HARA QUE EL LABEL SE VEA O NO, ENE L COMMANDBUTTON HABILITAR SE INTRODUCEN LAS OPCIONES QUE ME PERMITIRAN TENER HABILITADO O NO EL LABEL.

los codigos que se introducen en los diferentes controles son los siguientes:


Haga doble clic sobre el botón CAPTION Y escriba:
Private Sub Command1_Click()
Dim texto As String
texto = InputBox("Escriba el texto a mostrar en el Label", "Ejemplo")
Label1.Caption = texto
End Sub
Haga doble clic sobre el botón BORDERSTYLE Y escriba:
Private Sub Command2_Click()
If Label1.BorderStyle = 0 Then
Label1.BorderStyle = 1
Else
Label1.BorderStyle = 0
End If
End Sub
Haga doble clic sobre el botón ENABLED Y escriba:
Private Sub Command3_Click()
Label1.Enabled = Not Label1.Enabled
End Sub
Haga doble clic sobre el botón TOOLTIPTEXT Y escriba:
Private Sub Command4_Click()
Dim texto As String
texto = InputBox("Escribi el texto que mostrará la propiedad " & "tooltiptext", "ejemplo")
Label1.ToolTipText = texto
MsgBox "pasá el mouse por encima del label"
End Sub
Haga doble clic sobre el botón VISIBLE Y escriba:
Private Sub Command5_Click()
Label1.Visible = Not Label1.Visible
End Sub
Escriba el código que debe llevar este botón para terminar la ejecución
Private Sub Command6_Click()

End Sub

Private Sub Form_Load()
Command1.Caption = "Cambiar texto"
Command2.Caption = "Cambiar borde"
Command3.Caption = "Habilitar"
Command4.Caption = "tooltiptext"
Command5.Caption = "Visible"

End Sub

No hay comentarios:

Publicar un comentario