منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ممكن المساعده انا بحاجه الى كود على vb6 عندما اكتب على text تبقى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [سؤال] ممكن المساعده انا بحاجه الى كود على vb6 عندما اكتب على text تبقى (/showthread.php?tid=3430)

ممكن المساعده انا بحاجه الى كود على vb6 عندما اكتب على text تبقى - sami8151 - 10-07-14

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

RE: ممكن المساعده انا بحاجه الى كود على vb6 عندما اكتب على text تبقى - vbnet - 10-07-14

.....

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

.....

RE: ممكن المساعده انا بحاجه الى كود على vb6 عندما اكتب على text تبقى - علاء الدين - 15-07-14

كتابة هذا الكود في حدث التحميل للفورم
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