منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حفظ Caption لأداة Option - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : حفظ Caption لأداة Option (/showthread.php?tid=42207)

حفظ Caption لأداة Option - مصمم هاوي - 20-08-22

السلام عليكم
سؤال بسيط: كيف يمكن حفظ نص (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
المرفقات معطلة, ولم يظهر لي المرفق؛ ولكنني عند إضافة الموضوع تفاجأتُ بأن المثال تم إرفاقه