مشاهده نسخه کامل
: sama_65
05-01-2007, 18:42
سلام به اهالی خوب پی سی ورلد
من یه برنامه ی ساده دفتر چه تلفن نوشتم با وی بی که امکان جستجو از طریق شماره تلفن رو داشته باشه.
حالا میخوام یه جوری بشه که این امکان جستجو از طریق دیگر گزینه های اون یعنی : اسم، فامیل، آدرس وجود داشته باشه
ممنون میشم سریعتر کمکم کنین
کد برنامه برای کلید جستجو :
Private Sub Command3_Click()
Open "D:\test.txt" For Input As #1
Do While Not EOF(1)
Input #1, a, b, c
If c = "" & Text3.Text & "" Then
Text1.Text = a
Text2.Text = b
Exit Do
End If
Loop
Close
End Sub
کد برنامه برای کلید ثبت :
Private Sub Command1_Click()
Open "D:\test.txt" For Append As #1
Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text
Close #1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
من یه برنامه ی ساده دفتر چه تلفن نوشتم با وی بی که امکان جستجو از طریق شماره تلفن رو داشته باشه.
حالا میخوام یه جوری بشه که این امکان جستجو از طریق دیگر گزینه های اون یعنی : اسم، فامیل، آدرس وجود داشته باشه
ممنون میشم سریعتر کمکم کنین
کد برنامه برای کلید جستجو :
Private Sub Command3_Click()
Open "D:\test.txt" For Input As #1
Do While Not EOF(1)
Input #1, a, b, c
If c = "" & Text3.Text & "" Then
Text1.Text = a
Text2.Text = b
Exit Do
End If
Loop
Close
End Sub
کد برنامه برای کلید ثبت :
Private Sub Command1_Click()
Open "D:\test.txt" For Append As #1
Write #1, Text1.Text, Text2.Text, Text3.Text, Text4.Text
Close #1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub