ايران ويج

سلام بر همه برنامه نویسان
دوستان من یه تازه کارم و دارم یه برنامه دفتر خاطرات خصوصی مینویسم.
البته یه جاهایی گیر دارم.ولی تا اینجا بد نبوده.
حالا یه کمک میخواستم .
برنامه ای که من دارم مینویسم دارای دو فرم هستش .یکی فرم رمز عبور و یکی فرم اصلی که متن ها در اون نوشته میشه.
من کد های مربوط به فرم رمز عبور رو نوشتم و تو فرم اصلی گیر کردم.
اگر بخوایید کد هایی رو که نوشتم میزارم تا ایراداتم رو بهم بگید.

ممنون میشم.

بازم سلام خدمت اساتید
من این کدها رو برای فرم welcomeنوشتم ولی موقع اجرای اصلا پیغامی مبنی بر اشتباه بودن رمز عبور نمیده
میشه کمکم کنید

Private Sub cmdOk_Click()
Dim strmsg As String
'holds message box return value
If ((txtUser.UBound = "101") And (txtPassword.UBound = "000")) Then
strmsg = MsgBox("نام کاربر یا کلمه عبور اشتباه است ،تکرار نمایید")
size]ElseIf (txtPassword = "000") Then
frmwelcome.Hide
frmDiary.Show
End If
End Sub
Private Sub Form_Load()
'clear alone of the txtpassword
End Sub
Private Sub cmdExit_Click()
'stop the program
End
End Sub

نمونه کدی برای رمز گذاشتن روی برنامه برات نوشتم استفاده کن.

دانلود

کد: 
If Text1.Text = "test" And Text2.Text = "123" Then

    Form1.Hide

    Form2.Show

Else

    msg = MsgBox("password is incorrect!", vbCritical + vbOKOnly, "Error")

End If

سلام دوست عزیز من نمونه برنامه با رمز عبور رو برات گذاشتم که دانلود کنی. مشکلات دیگه ی برنامه تون چیه؟

سلام
ممنونم از این نمونه .
یک سوال دارم در این جور موارد نیازی نیست که برای کد آرگومان تعریف کنیم.
و یه سوال دیگه.
این که اگر بخواهیم چندین یوزر و پسورد برای چند کاربر مختلف رو بهش بدیم چگونه باید عمل کرد.

سلام دوست عزیز اینو دانلود کن
تمام چیزی که میخوای رو برات نوشتم.

کد: 
Dim strUsername(1 To 5) As String

Dim strPassword(1 To 5) As String

Private Sub cmdEnter_Click()

For i = 1 To UBound(strUsername)

    If (txtUsername.Text = strUsername(i)) And (txtPassword.Text = strPassword(i)) Then

        frmLogin.Hide

        frmWelcome.Show

        Exit Sub

    End If

Next i

msg = MsgBox("Username or Password is incorrect!", vbCritical + vbOKOnly, "Error")

End Sub

Private Sub Form_Load()

'Bejaye user1 va password1 mitoni har user passi entekhab koni ke mishe hamon account haye barnamat.

'Baraye kam o ziad kardane account ha ham mitoni araye ro kam o ziad koni.

  strUsername(1) = "user1": strPassword(1) = "password1"

  strUsername(2) = "user2": strPassword(2) = "password2"

  strUsername(3) = "user3": strPassword(3) = "password3"

  strUsername(4) = "user4": strPassword(4) = "password4"

  strUsername(5) = "user5": strPassword(5) = "password5"

End Sub

Private Sub Form_Unload(Cancel As Integer)

  Unload frmLogin

  Unload frmWelcome

End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)

  If KeyAscii = 13 Then Call cmdEnter_Click

End Sub

Private Sub txtUsername_KeyPress(KeyAscii As Integer)

  If KeyAscii = 13 Then Call cmdEnter_Click

End Sub

تازه کار

تازه کار

HamedFaa

HamedFaa

تازه کار

HamedFaa