کمک در مورد نوشتن یک برنامه

[bermoda_khatar69]

Private Sub cmdtest_Click
If txtPassword.Text = "sams" Then
Beep
Beep
imgPassword.Picture = LoadPicture("E:\Documents and Settings\bermoda_khatar\Desktop\rahesabzbarik")
ibiPrompt.Caption = "show me the money i"
Else
ibiPrompt.Caption = "worng password-try again"
textpassword.Text = ""
textpassword.setfocuse
End If
End Sub


این کد یه برنامه هست که رمز رو از کاربر میگیره اگر درست بود یه تصویر بهش نشون میده ولی تو خط 4 مشکل میگیره میگه که فایل رو پیدا نکردم اگر از دوستان کسی مشکل این برنامه رو می دونه به من کمک کنه یا اگر کد یه برنامه تقریبا ساده رو داشت برام بزاره ممنونش می شم

[MrGee]

خوب شما باید تو خط 4 به جای
E:\Documents and Settings\bermoda_khatar\Desktop\rahesabzbarik
آدرس یه فایل عکس رو بدید.

[bermoda_khatar69]

خوب من در این قسمت آدرس محل عکس رو زدم و تو قسمت آخر یعنی rahesabzbarik اسم عکس من هستش که می خوام نمایش بده ولی بازم پیغام خطا بهم می ده

[merlin001]

دوست عزیز آخرش فرمت فایلت رو بنویس
مثلا Pic1.JPG
مشکلت حل میشه

[saeedrasooly]

دوست عزیز کد شما چند غلط املایی و چند تا مشکل مربوط به نام دارد کد اصلی اینطور است


Option Explicit

Private Sub cmdtest_Click()
If txtpass.Text = "saeed" Then
Beep
Beep
imgPassword.Picture = LoadPicture("F:\asistasnt\pic\3.jpg")
lblprompt.Caption = "show me the money i"
Else
lblprompt.Caption = "worng password-try again"
txtpass.Text = ""
txtpass.SetFocus
End If

End Sub

[saeedrasooly]

شما چند تا غلط املایی داشتید و ودو غلط برای نام text box شما کد اصلی اینطور است




Option Explicit

Private Sub cmdtest_Click()
If txtpass.Text = "saeed" Then
Beep
Beep
imgPassword.Picture = LoadPicture("F:\asistasnt\pic\3.jpg")
lblprompt.Caption = "show me the money i"
Else
lblprompt.Caption = "worng password-try again"
txtpass.Text = ""
txtpass.SetFocus
End If

End Sub