كيفية تحديد محتويات مربع النص textbox باستخدام المفتاحين Ctrl + A
صفحة 1 من اصل 1 • شاطر
كيفية تحديد محتويات مربع النص textbox باستخدام المفتاحين Ctrl + A
بسم الله الرحمن الرحيم
من المعروف لدى الجميع إنه ليس من الممكن تحديد كافة النص من مربع النص مباشرة باستخدام مفاتيح التحكم 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
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
أمس في 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
أمس في 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد