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

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

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

a = Application.StartupPath + "datadocstotal.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 + "datadocs" + 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 + "datadocs" + 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