راهنمایی برای ایجاد تاریخچه برای تکست باکس...

[Heidari66]

سلام

میخواستم برای یه Textbox ، تاریخچه یا History ایجاد کنم که مثلا با وارد کردن اطلاعات یکجا ذخیره بشه و بعدا لود بشه...

[ROSTAM2]

خصوصیت AutoCompleteSource = CustomSource
خصوصیت AutoCompleteMode = Suggest/Append/SuggestAppend

بادادن مقادیر یک آرایه به خصوصیت AutoCompleteCustomSource می تونید آیتم های دلخواهتون رو داشته باشید

[NitroPlus]

سلام
آقا اتفاقا منم همچین سوالی دارم اما.....
پیشرفته تر از این رو می خوام یعنی تاریخچه لیست سایت های مورد علاقه مرتبط و لیتست موارد جستجو شده مرتبط با موضوع رو نمایش بده

[Heidari66]

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

[ROSTAM2]

خصوصیت AutoCompleteSource = CustomSource
خصوصیت AutoCompleteMode = Suggest/Append/SuggestAppend

بادادن مقادیر یک آرایه به خصوصیت AutoCompleteCustomSource می تونید آیتم های دلخواهتون رو داشته باشید

مثل اینکه همه اطلاعات از کل باید گفت؟؟؟؟؟؟؟؟ :لبخند:

این برای ذخیره اطلاعات وارد شده درون جعبه متن:


Sub SaveAddedItems(ByVal Box As TextBox, ByVal FilePath As String)
Dim spl As Array
Dim WFile As IO.StreamWriter, Text, RFile As String
If IO.File.Exists(Application.StartupPath + "\" + FilePath) = False Then
IO.File.Create(Application.StartupPath + "\" + FilePath)
End If
RFile = IO.File.ReadAllText(Application.StartupPath + "\" + FilePath)
If Len(RFile) > 0 Then
spl = Split(RFile, "|")
For I = 0 To UBound(spl)
If Box.Text = spl(I) Then
GoTo ExitLine
End If
Next
Text = RFile + "|" + Box.Text
Else
Text = Box.Text
End If
WFile = IO.File.CreateText(Application.StartupPath + "\" + FilePath)
WFile.Write(Text)
WFile.Close()
ExitLine:
End Sub


و اینم واسه بازخوانی اطلاعات بصورت تاریخچه:


Sub LoadAddedItems(ByVal Box As TextBox, ByVal FilePath As String)
Dim spl As Array
Dim Text As String = ""
Dim RFile As String = ""
If IO.File.Exists(Application.StartupPath + "\" + FilePath) = False Then
IO.File.Create(Application.StartupPath + "\" + FilePath)
End If
RFile = IO.File.ReadAllText(Application.StartupPath + "\" + FilePath)
If Len(RFile) > 0 Then
spl = Split(RFile, "|")
If UBound(spl) >= 0 Then

For u = 0 To UBound(spl)

For i = 0 To Box.AutoCompleteCustomSource.Count - 1
If spl(u) = Box.AutoCompleteCustomSource.Item(i) Then
GoTo nextline
End If
Next
Box.AutoCompleteCustomSource.Add(spl(u))
nextline:
Next

End If
End If

End Sub


برای یه برنامه پیشرفته برنامه نویس باید از ابتکار خودش استفاده کنه! منظورم اینه که فقط از خصوصیات برنامه بصورت ساده استفاده نکنه ... مثل همینی که دوستمون گفت:
یعنی خودمون مقادیر رو از قبل ندیم...

در ضمن در صورت نیاز اگه می خواستید برای ذخیره اطلاعات آیتمی که از قبل وارد شده وارد اطلاعات ذخیره سازی نشه باید ابتدا اطلاعات فایل رو خونده سپس با یه جستجو اگه آیتم مورد نظر وجود داشته باشه دیگه وارد اطلاعات جهت ذخیره نشه ...

این کدها بهینه نشده پس بهینه کردید دوباره بزارید اونایی که نیاز دارن استفاده کنند

[Heidari66]

ممنون دوست عزیز
من برنامه نویس حرفه ای نیستم...
البته این روش شما به ذهنم رسید ولی فکر کردم روش ساده تری هم هست که اومدم بپرسم...

ممنون

[NitroPlus]

دوست عزیز من هم سوالی مطرح کردم خوشحال میشم کمکم کنین!

[ROSTAM2]

دوست عزیز من هم سوالی مطرح کردم خوشحال میشم کمکم کنین!

دوست گرامی منظورتون از
لیست سایت های مورد علاقه مرتبط چیه ? اونهایی که Bookmark کردید یا ...

و این
لیتست موارد جستجو شده جستجو شده در کجا ؟ در ویندوز در Internet Explorer و یا یه مرورگر دیگه یا از برنامه ای که خودتون نوشتید؟

[NitroPlus]

اونهایی که Bookmark کردید
بله اونهایی که بوک مارک کردم هستش

جستجو شده در کجا ؟ در ویندوز در Internet Explorer و یا یه مرورگر دیگه یا از برنامه ای که خودتون نوشتید؟
ببینین منظورم اینه که می خوام بوک مارک های مرتبط (یعنی تمام یا بخشی از آدرس با آدرس وروی یکی باشه) و شمنا آدرس های سرچ شده توسط برنامه خودم رو تو یه و با هم نمایش بده!

[ROSTAM2]

اگه برای برنامه ای می سازید قراره Bookmark بسازید که ابتکار خودتنو لازم داره اگه به opera 11.61 دقت کنید می بینید تمامی Bookmark هاش گروهبندی می شه با پوشه و آیتم که می شه واسه اون از TreeView استفاده کرد واسه ذخیره اطلاعاتش هم می تونید از فایل xml استفاده کنید یا مثل خود opera از یه طرح متفاوت
opera bookmarks File Address: C:\Documents and Settings\ROSTAM\Application Data\Opera\Opera\bookmarks.adr

برای آدرس هایی که Navigate شده هم می تونید از روش opera استفاده کنید که توی فایل xml ذخیره می کنه از عنوان و یا توضیحات یک صفحه از قبل navigate شده که ذخیره شده کارکترها و کلمات تایپ شده توی Addressbar رو از بین اون اطلاعات جستجو می کنه و لیست می کنه

Opera History File Address: C:\Documents and Settings\ROSTAM\Application Data\Opera\Opera\typed_history.xml

[NitroPlus]

می تونی یه نمونه سورس کد برام بزاری؟