Programacion C
Enviado por kamp • 24 de Agosto de 2014 • 904 Palabras (4 Páginas) • 223 Visitas
“Private Sub Command1_Click()
'Utilizaremos el operador iF
If Text1.Text = "estrella0410" Then
Text1.Text = ""
Form2.Show
Else
N = MsgBox("Tu no estas autorizado", 0, "FUERA!")
End
End If
End Sub
Private Sub Command2_Click()
Text2.Text = "estrella0410"
Label2.Visible = True
Text2.Visible = True
End Sub
2. Private Sub Form_Load()
Form1.Hide
End Sub
Private Sub mnucafeteria_Click()
Form5.Show
Form2.Hide
End Sub
Private Sub mnucaja_Click()
Form9.Show
Form2.Hide
End Sub
Private Sub mnucasino_Click()
Form10.Show
Form2.Hide
End Sub
Private Sub mnudiscos_Click()
Form6.Show
Form2.Hide
End Sub
Private Sub mnuondez_Click()
Form1.Show
Form2.Hide
End Sub
Private Sub mnupeliculas_Click()
Form8.Show
Form2.Hide
End Sub
Private Sub mnuperfumes_Click()
Form7.Show
Form2.Hide
End Sub
Private Sub mnureloj_Click()
Form3.Show
Form1.Hide
Form2.Hide
End Sub
Private Sub mnusalir_Click()
End
End Sub
Private Sub mnutienda_Click()
Form4.Show
Form2.Hide
End Sub
3. Private Sub Command1_Click()
Form2.Show
Form3.Hide
End Sub
Private Sub Command2_Click()
Form4.Show
Form3.Hide
End Sub
Private Sub Command3_Click()
Fin = MsgBox("No te vayas", 0 Or vbQuestion, "SALIR")
End Sub
Private Sub Timer1_Timer()
Text1.Text = Date
Text2.Text = Time
End Sub
4. Private Sub Command1_Click()
Form2.Show
Form4.Hide
End Sub
Private Sub Command10_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Text2.Visible = False
Text3.Visible = False
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Form9.Show
Form4.Hide
End Sub
Private Sub Command3_Click()
Form5.Show
Form4.Hide
End Sub
Private Sub Command4_Click()
Form7.Show
Form4.Hide
End Sub
Private Sub Command5_Click()
Form6.Show
Form4.Hide
End Sub
Private Sub Command6_Click()
Form8.Show
Form4.Hide
End Sub
Private Sub Command7_Click()
Form10.Show
Form4.Hide
End Sub
Private Sub Command8_Click()
Form3.Show
Form4.Hide
End Sub
Private Sub Command9_Click()
If Text1.Text = 1 Then
Text3.Visible = True
Text2.Visible
...