[Problem] Problem z kodem MsgBox("Zalogowany")

[Vilche]

Witam!

 

Mam problem!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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
            Label3.Text = "Zalogowany!"
        End If
        Label4.Text = ProgressBar1.Value & (" %")
    End Sub
End Class

Czy da się zmienić Ten kod

Label3.Text = "Zalogowany!"

Na taki

MsgBox("Zalogowany", MsgBoxStyle.OkOnly)

? Bo coś mi nie wychodzi zamieniam to i zanim progressbar zapełni się to wyskakuje parę okienek "zalogowany" jak mam zrobić to aby utrzymać taki efekt że jak pasek doleci do 100 % to wtedy pojawia się kolejne małe okienko "zalogowany" i jak się kliknie "ok" to wyskakuje 2 forma programu?

 

A teraz mam jeszcze jeden problem, połączyłem 1 formę z drugą

ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then Form2.Show()

I Jak mam zrobić żeby po uruchomieniu 2 formy i po kliknięciu na buttona pojawiło się 3 forma?

Bo jak w drugiej formie kliknę na buttona z codem takim :

Me.Close()

to pojawia się parę razy i nie mogę przejść do 3 formy.

 

Pomoże ktoś?

[Vilche]

REF@ Za jjutro

 

Specjalnie dałem refa, bo nigdy bym się nie doprosił o odpisanie, a chciałem szybko dostać odp.

[Gość]

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

Label3.Text = "Zalogowany!"

End If

Label4.Text = ProgressBar1.Value & (" %")

End Sub

na

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

MessageBox.Show("zalogowany")

Form2.Show()

Timer1.Stop()

End If

Label4.Text = ProgressBar1.Value & (" %")

End Sub

[Vilche]

Nadal się otwiera pare naście okienek z napisem "zalogowany"

[Gość]

Nadal się otwiera pare naście okienek z napisem "zalogowany"

No to

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
          Timer1.Stop()
          MessageBox.Show("zalogowany")
          Form2.Show()
        End If
        Label4.Text = ProgressBar1.Value & (" %")        
    End Sub

[Vilche]

Dobra poradziłem sobie

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
            Form2.Show()
            Timer1.Stop()
        End If
        Label4.Text = ProgressBar1.Value & (" %")
    End Sub

A w 2 formie

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Form3.Show()
        Timer1.Stop()
    End Sub

A to co ty mi podałeś

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
          Timer1.Stop()
          MessageBox.Show("zalogowany")
          Form2.Show()
        End If
        Label4.Text = ProgressBar1.Value & (" %")        
    End Sub

Działa ale jak klikam wyłączam ten napis "zalogowany" to nie pojawia się trzecia forma czym skutkuje że wszystko bardziej się komplikuje, o rany rany, a możesz mi powiedzieć jaki jest kod na to aby uruchamiał dany plik podając ścieżkę?

Np (co tu mam wpisać aby uruchomiło to) C:\Program Files (x86)\Microsoft Visual Studio 10.0\Common7\IDE\vbexpress.exe

[SamWieszKto1231]

If Msgbox.show then form3.show