zarrin_306
دوشنبه 18 مهر 1384, 14:55 عصر
کد زیر برای یک 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
:گریه:
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
:گریه: