Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Private c As New Conexion
- Public Sub _new()
- End
- Public Sub Form_Open()
- TextAreaDescripcionEstados.text &= c.imprimirEstado() & "\n"
- End
- Public Sub ButtonSalir_Click()
- Me.Close()
- End
- Public Sub ButtonEstadoConectar_Click()
- 'cambiamos de estado
- c = c.conectar()
- TextAreaDescripcionEstados.text &= c.imprimirEstado() & "\n"
- End
- Public Sub ButtonEstadoDesconectar_Click()
- 'cambiamos de estado
- c = c.desconectar()
- TextAreaDescripcionEstados.text &= c.imprimirEstado() & "\n"
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement