Pasante
Subir
-------------------------------------------------
Principio del formulario
Buscar
Final del formulario
Explorar
* Registrarse
* |
* Acceder
Eventos enVisual Basic 6.0
Kazak_anjes Software Página 7
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)' Desactiva el color de fondo de las opciones'IfLabel3.BackStyle = 1 Then Label3.BackStyle = 0'If Label4.BackStyle = 1 Then Label4.BackStyle = 0'If Label5.BackStyle = 1 Then Label5.BackStyle = 0'If Label6.BackStyle = 1 Then Label6.BackStyle = 0'IfLabel7.BackStyle = 1 Then Label7.BackStyle = 0MoveCursor = TrueEnd SubPrivate Sub Label3_Click()FrmInscripcion.ShowEnd SubPrivate Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y AsSingle)If Label3.BackStyle = 0 ThenLabel3.BackStyle = 1 ' Permite que se establezca el color de fondoLabel3.BackColor = &H8000& ' Pone el color verde'Desactiva el color de fondo de las demásopcionesLabel4.BackStyle = 0Label5.BackStyle = 0Label6.BackStyle = 0Label7.BackStyle = 0End If End SubPrivate Sub Label4_Click()FrmTexto.Show
Eventos en Visual Basic 6.0Kazak_anjes Software Página 8
End SubPrivate Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Label4.BackStyle = 0 ThenLabel4.BackStyle = 1 ' Permite que se establezca el color defondoLabel4.BackColor = &H8000& ' Pone el color verde'Desactiva el color de fondo de las demás opcionesLabel3.BackStyle = 0Label5.BackStyle = 0Label6.BackStyle = 0Label7.BackStyle = 0End If EndSubPrivate Sub Label5_Click()FrmRegistro.ShowEnd SubPrivate Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Label5.BackStyle = 0 ThenLabel5.BackStyle = 1 ' Permite quese establezca el color de fondoLabel5.BackColor = &H8000& ' Pone el color verde'Desactiva el color de fondo de las demás opcionesLabel3.BackStyle = 0Label4.BackStyle = 0Label6.BackStyle...
Regístrate para leer el documento completo.