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

  • 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!


    terça-feira, 3 de novembro de 2015 21:06

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
    quarta-feira, 4 de novembro de 2015 00:24

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
    quarta-feira, 4 de novembro de 2015 00:24
  • 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
    quarta-feira, 4 de novembro de 2015 03:04
  • Valeu Rafael, ajudou muito. Nem sabia que era tão simples assim, valeu mesmo cara!
    quarta-feira, 4 de novembro de 2015 19:34
  • Valeu pela resposta amigo, mas já está resolvido. Obrigado pela atenção! 
    quarta-feira, 4 de novembro de 2015 19:35