Formularios De Informatica

CLICK EN BOTON IMAGEN Y FORMULARIO


Primero se coloca un command y se agrega este codigo
Private Sub Command1_Click()
MsgBox "Sorpresa"
End Sub
Private Sub Form_Click()
MsgBox "Felicidades"
End Sub

Despues te vas a picture box colocas una imagen y pones este codigo.
Private Sub Image1_Click()
MsgBox "Te lo ganaste"
End Sub

Ejemplo:MOSTRAR Y OCULTAR FORMULARIO
En este trabajo se utilizaran 11 command.

El 1º command tendrá el siguiente código:
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub

El 2º command:
Private Sub Command2_Click()
MsgBox "Dispositivo electrónico de pequeño tamaño operable con la mano y mediante el cual se pueden darinstrucciones al ordenador para que lleve a cabo una determinada acción."
End Sub

El 3º command:
Private Sub Command3_Click()
MsgBox "Un periférico utilizado para la introducción de órdenes y datos en un ordenador "
End Sub

El 4º command:
Private Sub Command4_Click()
MsgBox "Unidad Central de Proceso a la unidad donde se ejecutan las instrucciones de los programas"
End Sub

El 5º command:Private Sub Command5_Click()
MsgBox "Dispositivo que reproduceel sonido que realiza la computadora"
End Sub

El 6º command:
Private Sub Command6_Click()
MsgBox "Es un periférico de ordenador cuya funcionalidad es transcribir/pasar un documento desde el ordenador"
End Sub

El 7º command:
Private Sub Command7_Click()
MsgBox "Un dispositivo destinado a la conversión de ondas sonoras enenergía mecánica"
End Sub

El 8º command:
Private Sub Command8_Click()
MsgBox "Pantalla similar a la de un televisor para salida de copia blanda en un sistema de computación."

El 9º command:
Private Sub Command9_Click()
MsgBox "Un periférico de digitalización de documentos , aunque también puede digitalizar objetos pequeños"
End Sub

El 10º command:
Private Sub Command10_Click()
MsgBox"Dispositivo que reproduce información digital en películas de diapositivas o transparencias encuadernado con tapas confeccionadas"
End Sub

El 11º command:
Private Sub Command11_Click()
MsgBox " unidad del cpu en la cual se pueden incertar discos y obcervar su contenido"
End Sub

Y este es un ejemplo de cómo quedara el trabajo

















Y este otro es un ejemplode cómo se vera al dar clic en cada una de las opciones de arriba.












BOTONES DE MENSAJE.


















BOTONES DE MENSAJE

En este trabajo se van a utilizar 7 command

En el 1º command se va a llamar n1y su cosido es:
Private Sub n1_Click()
MsgBox "Estas Fuera :("
End Sub

En el 2º command:
Private Sub n2_Click()
MsgBox "Perdiste"
End SubEn el 3º command:
Private Sub n3_Click()
MsgBox "Ganaste"
End Sub

En el 4º command:
Private Sub n4_Click()
MsgBox "No sirves"
End Sub

En el 5º command:
Private Sub n5_Click()
MsgBox "Felicidades"
End Sub

En el 6º command
Private Sub n6_Click()
MsgBox "Eres un burro"
End Sub

En el 7º command
Private Sub salir_Click()
End


[pic]













CONTRASEÑAEN EL SIGUIENTE TRABAJO SE UTILIZARAN 3 command borrar, aceptar y salir,1 label en el que ira la contraseña.

1º command
Private Sub aceptar_Click()
If A = "" Then
MsgBox "Escriba la contraseña"
Else
If A = "abanico" Then
Form2.Show
Else
MsgBox "Contraseña incorrecta"
End If
End If
End Sub
2º command
Private Sub borrar_Click()
A = ""
A.SetFocus
End Sub

3º command
PrivateSub salir_Click()
End
End Sub

Ejemplo de como quedara el trabajo:

[pic]













MENU DE OPERACIONES (SUMAR, RESTAR, MULTIPLICAR Y DIVIDIR)

En este trabajo se van a utilizar 6 command buttons, 3 labels y 2 textbox

Dim num1 As Integer

1º command :
Private Sub borrar_Click()
numero1.Text = ""
num2.Text = ""
resultado = ""
End Sub

2º command:
Private Sub...