Funciones de Visual Basic.

Enviado por Kate • 14 de Abril de 2018 • 924 Palabras (4 Páginas) • 510 Visitas

Página 1 de 4

...

End Sub

Private Sub Option3_Click()

Label2.Visible = True

Label1.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

Label6.Visible = False

End Sub

Private Sub Option4_Click()

Label3.Visible = True

Label2.Visible = False

Label1.Visible = False

Label4.Visible = False

Label5.Visible = False

Label6.Visible = False

End Sub

Private Sub Option5_Click()

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = True

Label5.Visible = True

Label6.Visible = True

End Sub

Private Sub Option6_Click()

Form2.Hide

Form1.Show

WindowsMediaPlayer1.Close

End Sub

Form 3:

Private Sub Check3_Click()

Label2.Visible = True

Label1.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

End Sub

Private Sub Check4_Click()

Label3.Visible = True

Label2.Visible = False

Label1.Visible = False

Label4.Visible = False

Label5.Visible = False

End Sub

Private Sub Check6_Click()

Label4.Visible = True

Label5.Visible = True

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

End Sub

Private Sub Check7_Click()

Form1.Show

Form3.Hide

WindowsMediaPlayer1.Close

End Sub

Private Sub Check8_Click()

Label1.Visible = True

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

End Sub

Private Sub Form_Load()

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

End Sub

Form 4:

Private Sub Form_Load()

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

Label5.Visible = False

End Sub

Private Sub Option2_Click()

Label5.Visible = True

Image6.Visible = False

Label1.Visible = False

Image5.Visible = True

Image7.Visible = True

Image4.Visible = True

Label3.Visible = False

Image2.Visible = True

Image3.Visible = True

Label3.Visible = False

Label4.Visible = False

Label2.Visible = False

End Sub

Private Sub Option3_Click()

End

End Sub

Private Sub Option4_Click()

Image5.Visible = False

Image7.Visible = True

Image4.Visible = True

Image2.Visible = True

Image6.Visible = True

Label1.Visible = True

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

Image3.Visible = True

Label5.Visible = False

...

Descargar como txt (9.2 Kb) pdf (63 Kb) docx (21.3 Kb)

Leer 3 páginas más »

Leer documento completo Guardar

Disponible sólo en Essays.club