منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

كيفية تحديد محتويات مربع النص textbox باستخدام المفتاحين Ctrl + A Empty كيفية تحديد محتويات مربع النص 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
avatar
أبوسجود
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس : ذكر

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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