15-07-14, 02:46 PM
كتابة هذا الكود في حدث التحميل للفورم
Private Sub Form_Load()
Me.Text1.Text = GetSetting(App.Title, Me.Caption, "Text1", "")
End Sub
كوماند اغلاق الفورم
Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting(App.Title, Me.Caption, "Text1", Me.Text1.Text)
End Sub
Private Sub Form_Load()
Me.Text1.Text = GetSetting(App.Title, Me.Caption, "Text1", "")
End Sub
كوماند اغلاق الفورم
Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting(App.Title, Me.Caption, "Text1", Me.Text1.Text)
End Sub
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
