۰۷-تير-۱۳۹۰, ۲۰:۴۱:۰۸
من یه دفترچه تلفن با فایل ترتیبی مینویسم که توسط چندا تکست باکس نام ، نام خانوادگی و.....را دریافت میکنه
با کد زیر
و برای نمایش اطلاعات ذخیره شده در فایل دوباره چند تا تکست باکس گذاشتم که نمایش بده و یه دکمه نکست که با آن بتوان یکی یکی اطلاعات و شماره را دید ولی بلد نیستم چطور کدش رو بنویسم که وقتی نکست رو میزنم اسم و فامیلیو... بعدی نشان داده بشه فقط بلدم یه دونه رو نشون بدم
لطفا راهنماییم کنید من زیاد کار با فایل هارو بلد نیستم تازه باید edit و search هم بذارم
با کد زیر
کد:
Open "c:\NumberPhone.txt" For Append As #1
Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text, Text5.Text
MsgBox "Write information"
Close #1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""کد:
Private Sub cmdveiw_Click()
Dim strName As String
Dim strLastName As String
Dim strtel As String
Dim strmob As String
Dim strAddress As String
Open "c:\NumberPhone.txt " For Input As #1
Input #1, strName, strLastName, strtel, strmob, strAddress
Close #1
Text1.Text = strName
Text2.Text = strLastName
Text3.Text = strtel
Text4.Text = strmob
Text5.Text = strAddress
End Sub