[Pytanie] Button przekierwoanie na strone

[ssijfalusa]

Siema

Wiecie może jak zrobić w VB taki patent że po "progresbarze 100%" wyskakuje komunikat np "siijfalusa" z buttonem "OK" wciskam i przekierowuje na strone np "Allegro.pl".

[Maciek2699]

If ProgressBar1.Value = ProgressBar1.Maximum Then

If MsgBox("ssijfallusa", MsgBoxStyle.OkCancel) = vbOK Then

Process.Start("http://allegro.pl")

End If

End If

[ssijfalusa]

 

If ProgressBar1.Value = ProgressBar1.Maximum Then

If MsgBox("ssijfallusa", MsgBoxStyle.OkCancel) = vbOK Then

Process.Start("http://allegro.pl")

End If

End If

Wszystko niby okej ale dochodzi do końca nie wyskakuje Komunikat dopiero wtedy jak klikne na progressbar

[Sunnyline2]

Wszystko niby okej ale dochodzi do końca nie wyskakuje Komunikat dopiero wtedy jak klikne na progressbar

Dodaj do tej funkcji która obsługuje progresbar (ze lecą procenty)..

[ssijfalusa]

Dodaj do tej funkcji która obsługuje progresbar (ze lecą procenty)..

 

 

  Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Label1.Text = ("DONE")
        End If
        Label2.Text = ProgressBar1.Value & ("%")
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            If MsgBox("ssijfallusa", MsgBoxStyle.OkCancel) = vbOK Then
                Process.Start("http://allegro.pl")
            End If
        End If
    End Sub
End Class
 

No oczywiście że mam ale dalej to samo

[Sunnyline2]

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Sama nazwa wsazuje progressbar click (klikniecie w progressbar)..

Dodaj to do timera..