منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
سؤال بسيط: كيف يمكن حفظ نص (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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مصمم هاوي