كيفية تحديد محتويات مربع النص textbox باستخدام المفتاحين Ctrl + A

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيفية تحديد محتويات مربع النص textbox باستخدام المفتاحين Ctrl + A

مُساهمة من طرف أبوسجود في الأربعاء فبراير 13, 2013 7:14 am

بسم الله الرحمن الرحيم
من المعروف لدى الجميع إنه ليس من الممكن تحديد كافة النص من مربع النص مباشرة باستخدام مفاتيح التحكم Ctrl+A. ولكن يمكننا أن نفعل ذلك بسهولة باستخدام التعليمات البرمجية التالية .


1_ أولا : سنقوم بإنشاء وظيفة لتحديد النص على النحو التالى :



الرمز:


Public Function SelectAllText()
Dim obj
Set obj = Form1.ActiveControl
    If TypeOf obj Is TextBox Then
        obj.SelStart = 0
        obj.SelLength = Len(obj.Text)
    End If
End Function





3_ فى حدث التحميل للنافذة ....قم بكتابة الكود التالى :

الرمز:


Private Sub Form_Load()
    KeyPreview = True

End Sub


3_ فى حدث KeyPress لمربع النص textbox نقوم بالاتصال بالوظيفة أعلاه و ذلك لتحديد النص عند الضغط على Ctrl+A و ذلك على النحو التالى :


الرمز:


Private Sub Text1_KeyPress(KeyAscii As Integer)
Call SelectAllText
End Sub


4_ كما يمكنك استخدام الوظيفة السابقة لتحديد النص عن التركيز على النص و ذلك على النحو التالى :

الرمز:

Private Sub Text1_GotFocus()
Call SelectAllText
End Sub

أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى