Praca w domu - Dodatkowa Praca - Zarabianie przez Internet
[Problem] VB Button przenoszenie na strone reput + 1FG - Wersja do druku

+- Praca w domu - Dodatkowa Praca - Zarabianie przez Internet (https://zarabiam.com)
+-- Dział: Off-Topic (https://zarabiam.com/Forum-Off-Topic-9)
+--- Dział: Kosz/Spam/Archiwum (https://zarabiam.com/Forum-Kosz-Spam-Archiwum-11)
+--- Wątek: [Problem] VB Button przenoszenie na strone reput + 1FG (/Temat-Problem-VB-Button-przenoszenie-na-strone-reput-1FG-72415)



[Problem] VB Button przenoszenie na strone reput + 1FG - afghan - 08-07-2013

Siemanko
Mam mały problem z komunikatem. O co chodzi wiec tak po "progresbar 100%"
chce aby wyskoczył mi komunikat przekierowujący na stronę. Kod mam ale coś jest nie tak bo jak dochodzi "progresbar 100%" nie wyskakuje komunikat dopiero jak kliknę raz na progresbar to wyskakuje mi komunikat. Jak by ktoś się znał to mógł by mi to ktoś poprawić. Bo na pewno jest to banalne a ja już nie wiem co ja sknociłem.

Kod:
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 End Sub Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click If ProgressBar1.Value = ProgressBar1.Maximum Then If MsgBox("wejdź", MsgBoxStyle.OkCancel) = vbOK Then Process.Start("http://allegro.pl") End If End If End Sub End Class



RE: [Problem] VB Button przenoszenie na strone reput + 1FG - Coristo - 09-07-2013

Cytat: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")
MsgBox("odpalam allegro", MsgBoxStyle.Information)
If MsgBoxResult.Ok Then
Process.Start("http://allegro.pl")
End If

End If
End Sub
End Class



[Problem] VB Button przenoszenie na strone reput + 1FG - Coristo - 09-07-2013

Wątek zostaje zamknięty, ponieważ moderator uznał że temat został wyczerpany bądź rozwiązany. Jeśli posiadasz nowe pytania prosimy o założenie kolejnego tematu.


[Problem] VB Button przenoszenie na strone reput + 1FG - Admin - 27-07-2013

Wątek został przeniesiony do kosza.
Prawdopodobne przyczyny :

1. Temat jest niezgodny z regulaminem.
2. Podobny temat znajduje się już na forum.
3. Wątek nie jest już aktulany.
4. Autor prosił o jego przeniesienie.
5. Temat został wyczerpany bądź rozwiązany.

Pozdrawiamy
Administracja Forum.