[sami8151]

السلام عليكم ....... ممكن المساعده
انا بحاجه الى كود على vb6 عندما اكتب على text تبقى الكتابة كماهي لاتتغير عند اغلاق البرنامج او الحاسوب

[vbnet]

.....

كود :

' تحميل الفورم
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