همه چیز فایل درشت کار می کند الا چک کردن 2 text box !!!! [بایگانی]

pesare_matin2005

شنبه 30 خرداد 1383, 22:22 عصر

من در خال نوشتن قسمت پسورد برنامه ام هستم تمام کدی که پایین نوشته ام درست کا میکند و حتی متن را از فایل می خواند و در یک Text1 box قرار می دهد فقط مشکل این است که متن text box ورودی از کاربر را با متن درون text1 box فایل چک نمکند شما خودتون نگاه کنید و ممنون می شم اشکال من را بر طرف کنید .

با تشکر از دوستان

pesare_matin2005

یک شنبه 31 خرداد 1383, 06:28 صبح

کدش این هستش . این کد برای دمستانی که مخواهند یک فایل را باز کرده و محتویات انرا در یک text box قرار دهند

Dim AllTheText As String
intfilenumber = FreeFile
Open "c:\password.dat" For Input As #intfilenumber
AllTheText = Input(LOF(1), #intfilenumber)
Close #intfilenumber
Text1.Text = AllTheText
a = Txt2pass_pass.Text
If (a = Text1.Text) Then
frmDataEnv.Show
Else: a = MsgBox(" ÑãÒ æÑæÏ ÇÔÊÈÇå ãíÈÇÔÏ áØÝÇ ÑãÒ ÑÇ ÏæÈÇÑå æÇÑÏ ˜äíÏ ", vbOKOnly + vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, " ÎØÇ ")
txt1username_pass.Text = ""
Txt2pass_pass.Text = ""
End If