کمک به مبتدی برای جستجو

[maryam_en]

سلام دوستان عزیز،می خوام تو قطعه کد زیر براساس عنوان سرچ کنم.کل کارم برای سرچ اینه:



Public Class Form2




()Sub data_loader
Dim a, b, c As String
Dim i, j, k As Integer


'--------------------------------------------------تعداد کل یادداشت هارو در فایلی به نام total ذخیره کردم--------


a = Application.StartupPath + "\data\docs\total.txt"
()i = FreeFile
( FileOpen(i, a, OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Default, 250
(FileGet(i, b, 1
(j = Val(b
()FileClose




'-----------------------------------برای هر یادداشت یک فایل هم نام با شماره همون یادداشت درست کردم و در خط 1 این فایل عنوان یادداشت و در خط 2 تاریخ رو ذخیره کردم----
For k = 1 To j
a = Application.StartupPath + "\data\docs\" + k.ToString + ".txt"
()i = FreeFile
( FileOpen(i, a, OpenMode.Random, OpenAccess.ReadWrite, OpenShare.Default, 250
(FileGet(i, b, 1




(FileGet(i, c, 2
()FileClose


'----------------در لیست باکس اول عناوین یادداشت هارو وارد کردم------
(Me.ListBox1.Items.Add(b


'---------------------------در لیست دوم شماره یادداشت ها رو-------
(Me.ListBox2.Items.Add(k.ToString


'-------------------------- در لیست سوم تاریخ یادداشت ها---------




( Me.ListBox3.Items.Add(c
Next
End Sub


Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
()data_loader
End Sub


'----------------------در این sub با انتخاب هر ایتمی از لیست اول شماره و تاریخ اون ایتم هم انتخاب می شود و سپس محتوای اون یادداشت که در فایل rtf نگهداری می شود در یم richbox نمایش می شود------
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
Me.ListBox2.SelectedIndex = Me.ListBox1.SelectedIndex
Me.ListBox3.SelectedIndex = Me.ListBox1.SelectedIndex




Dim a As String
a = Application.StartupPath + "\data\docs\" + Me.ListBox2.Text + ".rtf"
Me.RichTextBox1.LoadFile(a)




Me.Label3.Text = Me.ListBox3.Text
End Sub




'----------در پایان هم sub جستجو که حتما باید براساس عنوان یادداشت باشد-----
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Integer
(i = Me.ListBox1.FindString(Me.TextBox1.Text
ListBox1.SelectedIndex = i


End Sub




End Class




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