• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

0x1d

ProgressBar

2 mensagens neste tópico

Boas pessoal,

tenho um trabalho para entregar com urgencia mas tenhu um pequeno problema.

Tive de fazer um programa para enviar email para grupos de pessoas e agr o meu problema é

que tenho de controlar uma progressbar.

For x = 0 To dt.Tables(0).Rows.Count - 1
      Dim contador As Integer = x
      Dim final As Integer = dt.Tables(0).Rows.Count - 1
      Dim xMensagem As New MailMessage
      If RadioButtonHtml.Checked Then
           xMensagem = Mensagem(TextFrom.Text, dt.Tables(0).Rows(x).Item("Email").ToString, TextBoxHTML.Text, True)
       ElseIf RadioButtonBody.Checked Then
           xMensagem = Mensagem(TextFrom.Text, dt.Tables(0).Rows(x).Item("Email").ToString, TextBoxHTML.Text, False)
        End If
        
        Dim xResult As Boolean = False
        xResult = Envio("mail.novis.pt", xMensagem)
Next

tenho de fazer com que a barra vá até ao numero de registos que dps volte a ficar invisivel

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Colocas a progressbar no form e defines antes do loop o maximum = dt.Tables(0).Rows.Count  e o minimum = 0

Depois, no final do ciclo (antes do next), fazes apenas:

Me.ProgressBar1.Value = x

Me.ProgressBar1.Update()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora