[مصمم هاوي]

السلام عليكم
سؤال بسيط: كيف يمكن حفظ نص (Caption) لأداة (Option) في (Setting)
بحيث عندما أختار أي منهما يتم حفظ النص

العدد (2)
Option1(Index)

1: القاضي (0) Option1
2: القاضي المكلف (1) Option1

كود الحفظ

كود :

SaveSetting App.Title, "Setting", "A", TextA
SaveSetting App.Title, "Setting", "b", TextB
SaveSetting App.Title, "Setting", "C", TextC
SaveSetting App.Title, "Setting", "D", TextD

MsgBox "تم  إضافـة معلومـات المؤسسـة لـ : " & " " & TextA.Text & Chr(13) & "مكتب: " & TextB.Text & " * بنجــاح  " & "", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "إجــراء الحفـظ ..."

TextA.Locked = False
TextB.Locked = False
TextC.Locked = False
TextD.Locked = False

Call Form_Load

كود :

Private Sub Form_Load()
' ...............................................
TextA = GetSetting(App.Title, "Setting", "A", "")
TextB = GetSetting(App.Title, "Setting", "B", "")
TextC = GetSetting(App.Title, "Setting", "D", "")
TextD = GetSetting(App.Title, "Setting", "C", "")

End Sub

---

المرفقات معطلة, ولم يظهر لي المرفق؛ ولكنني عند إضافة الموضوع تفاجأتُ بأن المثال تم إرفاقه