كيفية تحديد محتويات مربع النص 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 12:41 am من طرف marketing118
» شركة تنظيف ستائر بالرياض
الأحد مارس 17, 2024 10:46 pm من طرف moslema_r
» خيام ملكيه من الداخل
الأحد مارس 17, 2024 8:13 pm من طرف marketing118
» شركة نقل عفش بالطائف
الأحد مارس 17, 2024 6:34 pm من طرف marketing118
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد