ذخیره آیتم های کامبوباکس

[sagggad]

سلام دوستان.من درطول اجرای نرم افزار به وسیله ی یک کد آیتم هایی روبه کامبوباکس اضافه می کنم حالا میخوام وقتی از نرم افزار خارج میشی ودوباره واردنرم افزارمیشی اون آیتم ها سرجاش باشه وذخیره شه.لطفا اگه کسی راهش رومیدونه راهنماییم کنه!!یه چیزایی راجع بهSave settings شنیدم ولی راجع بهش چیزی نمیدونم اگه لطف کنین توضیح بدین ممنون میشم!!!:متفکر::متفکر::متفکر::م تفکر::تشویق::تشویق::تشویق::تش ویق::تشویق:

[abtinjon]

من توي يه برنامه از يه فايل متني استفاده كردم كه وقتي از برنامه خارج ميشه يا با زدن دكمه ي ذخيره آيتم ها توش ذخيره مي كنه و با لود شدن برنامه هم اطلاعات فايل رو به عنوان آيتم به كمبوباكس اضافه مي كنه. كد زير نوشتم برات امتحان كن:

Private Sub Btn_save_sharh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_save_sharh.Click
Try
Dim templateWriter As System.IO.StreamWriter = New System.IO.StreamWriter(".\dsc.txt", True, System.Text.Encoding.UTF8)
'----------------------نوشتن شرح چك----------------------
Dim i As Integer = 0

For i = 0 To ComboBox1.Items.Count
If ComboBox1.Items.Item(i).Tostring <> "" Then
templateWriter.WriteLine( ComboBox1.Items.Item(i))
templateWriter.Flush()
templateWriter.Close()
End If
Next
Catch ex As Exception
MessageBox.Show("خطا در ذخيره سازي شرح، خطاي :" & ex.Message, "پيام نرم افزار", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

و براي خوندن و اضافه كردن به ليست آيتم ها:

Dim dscreader As System.IO.StreamReader = New System.IO.StreamReader(".\dsc.txt", System.Text.Encoding.UTF8)
Do Until dscreader.EndOfStream
ComboBox1.Items.Add(dscreader.ReadLine.ToString)
Loop
dscreader.Close()

[sagggad]

من توي يه برنامه از يه فايل متني استفاده كردم كه وقتي از برنامه خارج ميشه يا با زدن دكمه ي ذخيره آيتم ها توش ذخيره مي كنه و با لود شدن برنامه هم اطلاعات فايل رو به عنوان آيتم به كمبوباكس اضافه مي كنه. كد زير نوشتم برات امتحان كن:

Private Sub Btn_save_sharh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_save_sharh.Click
Try
Dim templateWriter As System.IO.StreamWriter = New System.IO.StreamWriter(".\dsc.txt", True, System.Text.Encoding.UTF8)
'----------------------نوشتن شرح چك----------------------
Dim i As Integer = 0

For i = 0 To ComboBox1.Items.Count
If Tbx_dar_vajh.Text <> "" Then
templateWriter.WriteLine( ComboBox1.Items.Item(i))
templateWriter.Flush()
templateWriter.Close()
End If
Next
Catch ex As Exception
MessageBox.Show("خطا در ذخيره سازي شرح، خطاي :" & ex.Message, "پيام نرم افزار", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

و براي خوندن و اضافه كردن به ليست آيتم ها:

Dim dscreader As System.IO.StreamReader = New System.IO.StreamReader(".\dsc.txt", System.Text.Encoding.UTF8)
Do Until dscreader.EndOfStream
ComboBox1.Items.Add(dscreader.ReadLine.ToString)
Loop
dscreader.Close()
پس چرابرامن عمل نکرد؟؟

[abtinjon]

چه مشکلی داره؟ چه خطایی میده؟

[sagggad]

چه مشکلی داره؟ چه خطایی میده؟
خطا نمیده ولی اصلا عمل نمیکنه

[abtinjon]

اون تیکه کدی مربوط میشه رو بذار تا ببینم چه مشکلی داره، براخودم جواب میده! فقط یه نکته فکر کنم فایل dsc.txt رو مسیر bin\debug بسازی بهتره!