در رابطه با combobox عاجزانه خیلی فوری

[zarrin_306]

کد زیر برای یک combobox بخوبی کار میده اما اگر بیشتر از یک combobox باشد چه


Private Sub btn_Click(...) Handles btn.Click
If txt.Text.Trim <> "" Then lst.Items.Add(txt.Text.Trim)
End Sub

Private Sub Form1_Load(...) Handles MyBase.Load
Dim Num As Integer = GetSetting(Application.ExecutablePath, "List Box (It can be anything else)", _
"List Box Count (It can be anything else)", 0)
For i As Integer = 0 To Num - 1
lst.Items.Add(GetSetting(Application.ExecutablePat h, "List Box Items (It can be anything else)", _
"Item " & i, 0))
Next
End Sub

Private Sub Form1_Closed(...) Handles MyBase.Closed
'Saving the number of Items in the List box :
SaveSetting(Application.ExecutablePath, "List Box (It can be anything else)", _
"List Box Count (It can be anything else)", lst.Items.Count)
'Saving each item :
For i As Integer = 0 To lst.Items.Count - 1
SaveSetting(Application.ExecutablePath, "List Box Items (It can be anything else)", _
"Item " & i, lst.Items.Item(i))
Next
End Sub
:گریه:

[vbapr2005]

Private Sub btn_Click(...) Handles btn.Click
If txt.Text.Trim <> "" Then lst.Items.Add(txt.Text.Trim)
End Sub

Private Sub Form1_Load(...) Handles MyBase.Load
Dim Num As Integer = GetSetting(Application.ExecutablePath, "List Box (It can be anything else)", _
"List Box Count (It can be anything else)", 0)
For i As Integer = 0 To Num - 1
lst.Items.Add(GetSetting(Application.ExecutablePat h, "List Box Items (It can be anything else)", _
"Item " & i, 0))
Next
End Sub

Private Sub Form1_Closed(...) Handles MyBase.Closed
'Saving the number of Items in the List box :
SaveSetting(Application.ExecutablePath, "List Box (It can be anything else)", _
"List Box Count (It can be anything else)", lst.Items.Count)
'Saving each item :
For i As Integer = 0 To lst.Items.Count - 1
SaveSetting(Application.ExecutablePath, "List Box Items (It can be anything else)", _
"Item " & i, lst.Items.Item(i))
Next
End Sub
زرین عزیز همیشه از این روش برای نوشتن کد استفاده کن.
سعیم رو می کنم قشنگ بخونم و تا 2، 3 ساعت دیگه بهت جواب بدم (اگه بلد بودم)

[amohammadi]

شاید این به دردت بخوره

[zarrin_306]

اگر بدون بانک اطلاعاتی بخوام بنویسم چی

[zarrin_306]

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

[vbapr2005]

زرین عزیز، این که مشکلی نداره برادر :لبخند:
نگاه کن
تا اونجایی که بنده ی حقیر می دونم شما به وسیله ی SaveSetting اطلاعاتی رو که میخوای توی یه قسمت خاصی از رجیستری ویندوز قرار می دی. و به وسیله ی GetSetting هم اونا رو از رجیستری می گیری.
حالا قسمت های مختلف این دستور رو می گم:


SaveSetting AppName,Section,Key,Setting

AppName As String: که اسم پروژه ی ماهستش

Section As String: همونطوری که می دونی section یعنی گروه، قسمت. یعنی شما می آی و یه گروه جدید می سازی حالا اسمش هر چیزی می تونه باشه اصلا اسمشو بذار "چقندر"! ، اما بهتر یه اسم مربوطی باشه مثلا الان که میخوای اطلاعات لیست باکس ها رو توش بذاری اسمشو بذار "List Box Items". (یا هر چیز دیگه)

Key As String: این هم اسم زیرگروهیه که اون اطلاعات میخواد توش قرار بگیره یعنی مثلا فرض کن که AppName اسم درایو باشه، Section اسم فولدر باشه و Key هم اسم اون فایلی باشه که تو باعهاش کار داری.

Setting As String: این ستینگ هم اسم اون چیزیه که باید توی اون Key ذخیره بشه (دقیقا مثل اطلاعاتی که باید توی یه فایل گذاشته بشه)

خب، حالا فهمیدی که الان که شما دوتا لیست باکس داری، می تونی دوتا گروه مختلف درست کنی (انگار دوتا فولدر مختلف گذاشتی تو یه درایو)
پس برای حل مشکلت اطلاعات لیست باکس اولی رو توی ListBox1 Items ذخیره کن و اطلاعات دومی رو هم توی ListBox2 Items.
امیدوارم مشکلت برای همیشه حل بشه :چشمک: