[kslawy]

بسم الله الرحمن الرحيم

حدد علي أداة الـ comboBox بالماوس ثم اذهب إلي أو خاصية من خصائصها وهي خاصية ApplicationSettings تجد بجانبها علامة (+) اضغط عليها ستظهر خاصية أخرى اسمها PropertyBinding اضغط عليها بالماوس سيظهر أمامها زر به ثلاثة نقاط (...) اضغط عليه سيظهر مربع حوار توجد به خصائص الأداة ابحث فيها عن الخاصية Text افتراضيا تكون قيمتها (none) اضغط عليها ستظهر قائمة اضغط منها علي ...New سيظهر مربع حوار آخر عدل فيه فقط الخاصية Name اكتب بها مثلا MyVal هذه الخاصية ستحفظ حالة الـ Text تبع أداة الـ comboBox .

لإسناد قيمة المتغير MyVal لأداتنا في حدث الـ FormLoad نضع :

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           Me.ComboBox1.Text = My.Settings.myval
    End Sub

عند إغلاق البرنامج نسند قيمة أداتنا للمتغير MyVal وذلك في حدث الـ FormClosing :

كود :

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.Myval = Me.ComboBox1.Text
        My.Settings.Save()
    End Sub

هذا هو المطلوب أليس كذلك ؟

****
***
**
*