سوال در مورد فرم ورود کاربر(یوزر و پسورد)

[Zeinab_liver]

سلام
چطوری میشه یه فرم طراحی کرد که کاربر اگه سه بار یوزر و پسورد اشتباه وارد کرد از فرم خارج بشه؟؟
کدشو می خوام.لطفا!!!

[amirsajjadi]

با سلام

Dim Pass_Error As Byte = 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "A"AndAlso TextBox2.Text <> "S"Then
If Pass_Error = 4 Then
MsgBox("Sorry")
Me.Dispose()
Else
MsgBox("Pass Error = " + CStr(Pass_Error))
Pass_Error += 1
End If
Else
MsgBox("OK")
End If
EndSub

[Zeinab_liver]

با سلام

Dim Pass_Error As Byte = 1

If Pass_Error = 4 Then



میشه بگین این 4 و 1 برایpass_error چیه؟
dispose چی کار می کنه؟

[ir_programmer]

میشه بگین این 4 و 1 برایpass_error چیه؟
dispose چی کار می کنه؟

:متفکر: شما برنامه نویسین؟

[amirsajjadi]

برای اینه که وقتی کاربر 3 بار پسورد و یوزر رو اشتباه بده از فرم خارج بشه

[Zeinab_liver]

سوال بچه گانه ای پرسیده بودم!! اصلا حواسم نبود!!
برنامه شما کامل بود ولی کاربر اگه یوزر رو هم درست وارد می کرد وارد برنامه میشد!!من یه ک.چولو اصلاحش کردم!
به هر حال ممنون از لطفتون:لبخندساده:




PrivateSub Btn_Signin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Signin.Click
If (usernameTextbox.Text = "project") And (passwordTextBox.Text = "final") Then

MsgBox("خوش آمدید", MsgBoxStyle.OkOnly, "correct")
Me.Hide()
Form2.Show()
Else

If pass_error = 0 Then

MsgBox("شما نمی توانید وارد سیستم شوید", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "incorrect!!")
Me.Dispose()
Else

MsgBox(" شما تنها برای " + CStr(pass_error) + "دفعه دیگر فرصت دارید", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "Error")
pass_error -= 1
EndIf

EndIf

EndSub