Usuário com melhor resposta
Cancelar processo se o usuário estiver sem conexão com a internet.

Pergunta
-
Estou criando um programa com o ProgressBar "falso", e coloquei um código pra verificar se o usuário está com internet ou não, quando ele está com internet aparece o seguinte: "Você tem conexão com a internet, o processo será realizado." E quando ele não tem aparece: "Sem conexão com a internet, impossível realizar o processo." Mas mesmo com essa segunda mensagem o ProgressBar em seguida carrega, quero saber como cancelar o carregamento do ProgressBar através quando o usuário estiver sem internet.
OBS: O usuário clica em um botão para poder carregar o ProgressBar, então o código tem que ser para o botão.
Código da verificação da internet:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If My.Computer.Network.IsAvailable Then
MsgBox("Você tem conexão com a internet, o processo será realizado.")
Else
MsgBox("Sem conexão com a internet, impossível realizar o processo.")
End If
Obrigado pela atenção amigos, espero que entendam!
Respostas
-
Boa noite.
Tente isso (não tenho certeza que em VB funcione, sei que em C# funcionaria):
If My.Computer.Network.IsAvailable Then MsgBox("Você tem conexão com a internet, o processo será realizado.") Else MsgBox("Sem conexão com a internet, impossível realizar o processo.") Return End If
Att., Rafael Simor
- Marcado como Resposta Matheus Lacerda quarta-feira, 4 de novembro de 2015 19:34
Todas as Respostas
-
Boa noite.
Tente isso (não tenho certeza que em VB funcione, sei que em C# funcionaria):
If My.Computer.Network.IsAvailable Then MsgBox("Você tem conexão com a internet, o processo será realizado.") Else MsgBox("Sem conexão com a internet, impossível realizar o processo.") Return End If
Att., Rafael Simor
- Marcado como Resposta Matheus Lacerda quarta-feira, 4 de novembro de 2015 19:34
-
Oi amigo bom poderia postar o codigo da parte que a ProgressBar começa a carregar para que possamos te ajudar melhor para sera a ProgressBar e assim
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.ProgressBar1.Value += 10 '= 10
If My.Computer.Network.IsAvailable Then
MsgBox("Você tem conexão com a internet, o processo será realizado.")
'tem internet continue
Me.ProgressBar1.Value += 10 ' = 20
Else
Me.ProgressBar1.Value = 0 ' = nada
Me.ProgressBar1.Value = Nothing ' = nada
MsgBox("Sem conexão com a internet, impossível realizar o processo.")
End If
End Sub
End Class -
-