مدیریت textbox و listbox

[44553507]

با سلام دوستان من یه فرم حاوی 2 textbox دارم . یکی user.text و دیگری pass.text.
یه listbox هم دارم که داخلش user و password ها بصورت user;password قرار داده شده.


میخوام وقتی یه نفر user.text و pass.text رو وارد میکنه و cmd1 رو میزنه این چک کنه با listbox که آیا صحت داره و اگه داشت form3.frm اجرا بشه

کسی میتونه کمکم کنه لطفا؟:ناراحت:

[niksalehi]

Dim x
For x = 0 To List1.ListCount
If user.Text & ":" & pass.Text = List1.List(x) Then
form3.Show
Else
MsgBox "Error!"
End If
Next

[miladatashin]

Dim x
For x = 0 To List1.ListCount
If user.Text & ":" & pass.Text = List1.List(x) Then
form3.Show
Else
MsgBox "Error!"
End If
Next


این کد چند تا ایراد داره
اول اینکه حلقه باید تا List1.ListCount-1 باشه
دوم اینکه اگر قراره پیغامی مبنی بر عدم وجود یوزر پس بده باید خارج حلقه باشه نه داخلش(اینجوری چندین بار پیغام مید)
سوم بهتره بعد از اولین باری که شرط درست بود از حلقه خارج بشه

[m.4.r.m]

معمولا user و password رو با فایل ، دیتابیس ، ریجیستری و ... چک می کنن نه لیست باکس . شما یکسری اطلاعات رو میاری تو لیست باکس بعدا دوباره می خوای با لیست باکس چک کنی یک کار اضافه که می تونی مستقیم چک کنی اطلاعات رو

[Mr'Jamshidy]

معمولا user و password رو با فایل ، دیتابیس ، ریجیستری و ... چک می کنن نه لیست باکس . شما یکسری اطلاعات رو میاری تو لیست باکس بعدا دوباره می خوای با لیست باکس چک کنی یک کار اضافه که می تونی مستقیم چک کنی اطلاعات رو

تایید میشه

و اما کد:
Private Sub cmd1_Click()
Dim Valid As Boolean
Dim i As Integer

For i = 0 To List1.ListCount - 1
If List1.List(i) = txtUser.Text & ":" & txtPassword.Text Then Valid = True: Exit For
Next

If Valid Then
Form3.Show
Else
MsgBox "Invalid Username Or Password!", vbCritical
End If
End Sub