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

Question

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!

Answer 1

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

Answer 2

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

Answer 3

Valeu Rafael, ajudou muito. Nem sabia que era tão simples assim, valeu mesmo cara!

Answer 4

Valeu pela resposta amigo, mas já está resolvido. Obrigado pela atenção!