Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
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 (/Forum-Off-Topic-9)
+--- Dział: Kosz/Spam/Archiwum (/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 17:35

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 12:39

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 14:28

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 08:51

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.