کومبوباکس

با سلا م خدمت استاتید و دوستان محترم
یک سوال ؟
من دربر نامه خود یک کومبو باکس دارم که فرد مورد نظر در زمان اجرا می تواند گزینه دلخواه را را به آن اضا فه کند ولی به محض بسته شدن فرم ,اطلا عاتی که کاربر وارد کرد ه از بین می رود .
ممنون می شم در این زمینه من را راهنمایی کنید .

combobox.items .add (combobox.text)

سلام
خوب معلومه.
شما برنامه نویس هستید، تا وقتی کدی ننویسی که کاری انجام نمیشود.
شما باید اطلاعات کامبو باکس خود را به طریقی و در جایی ذخیره کنید.
مثلاً در یک فایل txt یا xml یا اگر برنامه تان دیتابیس دارد، در دیتابیس و...

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

سلام
ببخشید آقای h2 بازم شرمنده و مزاحم شما شدم طاعاتتون قبول .

سعی کردم خیلی هم سعی کردم ولی نتوانستم .آدمی زاد دیگه چه می شه بکنیم .
آقای H2 اگر کدش را بزارین به خدا دعاتون می کنم چون باید بر نامه را تا شنبه تحویل دهدم.التماس دعا

سلام

نقل قول:

---

طاعاتتون قبول

---

همچنین.

همانطور که گفتم راه های زیادی دارد. بستگی به نوع کار و استفاده و امنیت و... دارد.
میتوانید از Setting های پروزه هم استفاه کنید.

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

کد:

---

'Load....
FileLoad(Me.ComboBox1, "C:\file.txt")
 
'Save...
FileSave(Me.ComboBox1, "C:\file.txt")
 
 
'...
'...
'...
 
 
Private Shared Sub FileSave(ByVal list As System.Windows.Forms.ComboBox, ByVal file As String)
    If System.IO.File.Exists(file) Then System.IO.File.Delete(file)

    Using strm As New System.IO.StreamWriter(file, False, System.Text.Encoding.UTF8)
        For Each i As Object In list.Items
            strm.WriteLine(TryCast(i, String))
        Next
    End Using
End Sub

Private Shared Sub FileLoad(ByVal list As System.Windows.Forms.ComboBox, ByVal file As String)
    If Not System.IO.File.Exists(file) Then Return

    Using strm As New System.IO.StreamReader(file, True)
        If strm.EndOfStream Then Return
        Dim line As String

        With list.Items
            .Clear()
            Do
                line = strm.ReadLine
                If strm.EndOfStream Then Exit Do

                If (line IsNot Nothing) Then
                    line = line.Trim
                    If (Not String.IsNullOrEmpty(line)) Then .Add(line)
                End If
            Loop
        End With
    End Using
End Sub

---

تست نکردم، ولی گمانم ایرادی نداشته باشد.