sahand100
پنج شنبه 12 مرداد 1391, 11:01 صبح
برای اینکار شما به دو textbox و 2 errorprovater و 1 buttons و 2 label نیاز دارید>
اسم ها به این صورت باشند:
همشون همون اسم های اولی
یکی از label ها را خاصیت تکسش را بکنید username
بعدی را بکنید password
خب بعد یکم desgin بدید و تو دکمه این کد ها را بنویسید و خودتون می فهمید چی شد !
من username را زدم :sahand و پسوردو : 123698745
میتونید عوضش کنید راستی به یک فرم دیگر به نام form2 نیاز است:
If TextBox1.Text = "sahand" And TextBox2.Text = "123698745" Then
MessageBox.Show("Welcome " & TextBox1.Text & " To the System", "Welcome", MessageBoxButtons.OK)
MessageBox.Show("Your System OS Is : " + My.Computer.Info.OSVersion + " " + My.Computer.Info.OSFullName, "Version")
Form2.Show()
Me.Hide()
Else
MessageBox.Show("Ivaid Username or Password", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
If TextBox1.Text = "" Then
ErrorProvider1.SetError(TextBox1, "Its Empty")
ElseIf TextBox2.Text = "" Then
ErrorProvider2.SetError(TextBox2, "Its Empty")
ElseIf TextBox2.Text = "" And TextBox1.Text = "" Then
ErrorProvider2.SetError(TextBox2, "Its Empty")
ErrorProvider1.SetError(TextBox1, "Its Empty")
End If
End If
اسم ها به این صورت باشند:
همشون همون اسم های اولی
یکی از label ها را خاصیت تکسش را بکنید username
بعدی را بکنید password
خب بعد یکم desgin بدید و تو دکمه این کد ها را بنویسید و خودتون می فهمید چی شد !
من username را زدم :sahand و پسوردو : 123698745
میتونید عوضش کنید راستی به یک فرم دیگر به نام form2 نیاز است:
If TextBox1.Text = "sahand" And TextBox2.Text = "123698745" Then
MessageBox.Show("Welcome " & TextBox1.Text & " To the System", "Welcome", MessageBoxButtons.OK)
MessageBox.Show("Your System OS Is : " + My.Computer.Info.OSVersion + " " + My.Computer.Info.OSFullName, "Version")
Form2.Show()
Me.Hide()
Else
MessageBox.Show("Ivaid Username or Password", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
If TextBox1.Text = "" Then
ErrorProvider1.SetError(TextBox1, "Its Empty")
ElseIf TextBox2.Text = "" Then
ErrorProvider2.SetError(TextBox2, "Its Empty")
ElseIf TextBox2.Text = "" And TextBox1.Text = "" Then
ErrorProvider2.SetError(TextBox2, "Its Empty")
ErrorProvider1.SetError(TextBox1, "Its Empty")
End If
End If