Pokusavam da napravim svoj prvi projekat.
Formu za logovanje koja ce po odredjenom Username i Password otvarati odredjene forme.
Sada sam zaglavio kod coda za progressbar
Code (vbnet):
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = "User1" And TextBox2.Text = "Pas1" Or
TextBox1.Text = "User2" And TextBox2.Text = "pas2" Then
ProgressBar1.Maximum = 50
Timer1.Enabled = True
End If
Me.Hide()
MsgBox("Yu are In!")
Form2.Show()
Else
MsgBox("Wrong info!")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 50 Then
Timer1.Enabled = False
End If
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = "User1" And TextBox2.Text = "Pas1" Or
TextBox1.Text = "User2" And TextBox2.Text = "pas2" Then
ProgressBar1.Maximum = 50
Timer1.Enabled = True
End If
Me.Hide()
MsgBox("Yu are In!")
Form2.Show()
Else
MsgBox("Wrong info!")
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 50 Then
Timer1.Enabled = False
End If
End Sub
End Class
Dali neko moze da mi pomogne oko ovog problem?
Potrebno je da kada upisem Username i Password pre nego sto otvori Formu2 da saceka da se popuni progressbar do kraj pa tek onda da otvara formu.
Pokusavao sam na razne nacine ali mi ne polazi za rukom.
[Ovu poruku je menjao Shadowed dana 11.09.2010. u 23:53 GMT+1]
Dejan Ranisavljevic