Public Sub HayConexion()
If Not Desktop.NetworkAvailable Then
LabEstado.Text = "Conexión no disponible"
txtFiltro.Enabled = False
btnBuscar.Enabled = False
Timer1.Start
Timer2.Stop
Return
Else
LabEstado.Text = ""
txtFiltro.Enabled = True
btnBuscar.Enabled = True
Timer1.Stop
Timer2.Start
Endif
End
Public Sub Form_Activate()
HayConexion()
End
Public Sub Timer1_Timer()
HayConexion()
End
Public Sub Timer2_Timer()
If Not Desktop.NetworkAvailable Then Timer1.Start
End
If Not Desktop.NetworkAvailable Then
LabEstado.Text = "Conexión no disponible"
txtFiltro.Enabled = False
btnBuscar.Enabled = False
Timer1.Start
Timer2.Stop
Return
Else
LabEstado.Text = ""
txtFiltro.Enabled = True
btnBuscar.Enabled = True
Timer1.Stop
Timer2.Start
Endif
End
Public Sub Form_Activate()
HayConexion()
End
Public Sub Timer1_Timer()
HayConexion()
End
Public Sub Timer2_Timer()
If Not Desktop.NetworkAvailable Then Timer1.Start
End