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

نسخة كاملة : ممكن المساعده انا بحاجه الى كود على vb6 عندما اكتب على text تبقى
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ....... ممكن المساعده
انا بحاجه الى كود على vb6 عندما اكتب على text تبقى الكتابة كماهي لاتتغير عند اغلاق البرنامج او الحاسوب
.....

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