كيف اضلل النص المكتوب في text عند إدخل الموشر دخل text ؟؟

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

كيف اضلل النص المكتوب في text عند إدخل الموشر دخل text ؟؟

مُساهمة من طرف Microformt في الثلاثاء مارس 04, 2014 3:06 pm

الاخوه الكرام
 السلام عليكم ورحمة وبركاته
 كيف اضلل النص المكتوب في text عند إدخل الموشر دخل text ؟؟
 نامل من الله المساعده
 والله يحفظكم ويرعاكم
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

رد: كيف اضلل النص المكتوب في text عند إدخل الموشر دخل text ؟؟

مُساهمة من طرف أحمد مناع في الثلاثاء مارس 04, 2014 3:28 pm


الجواب هنا اخى الكريم

http://egy-tech.forumegypt.net/t400-topic

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

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

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

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

رد: كيف اضلل النص المكتوب في text عند إدخل الموشر دخل text ؟؟

مُساهمة من طرف Microformt في الثلاثاء مارس 04, 2014 6:38 pm

أحمد مناع كتب:
الجواب هنا اخى الكريم

http://egy-tech.forumegypt.net/t400-topic
اخي العزيز احمد مناع
 السلام عليكم ورحمة وبركاته
 ممكن ذلك على ذلك حتى افهم اكثر عليك ؟؟
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

رد: كيف اضلل النص المكتوب في text عند إدخل الموشر دخل text ؟؟

مُساهمة من طرف أحمد مناع في الثلاثاء مارس 04, 2014 7:40 pm

أخى الكريم كل ما عليك فعلة هو كتابة الكود التالى فى اى مكان فى صفحة كتابة الكود
الكود:

Sub SelectAllText(tb As TextBox)
  tb.SelStart = 0
  tb.SelLength = Len(tb.Text)
End Sub

بعد ذلك حدد مربع النص المراد تحديد نصه عند تركيز المؤشر علية وفى حدث التركيز GotFocus أكتب الكود التالى :

الكود:
 SelectAllText Text1

ليصبح الكود كما يلى :

الكود:
Private Sub Text1_GotFocus()
  SelectAllText Text1
End Sub

حيث أن Text1 هو مربع النص المراد تظليل النص الموجود به

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

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

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

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

رد: كيف اضلل النص المكتوب في text عند إدخل الموشر دخل text ؟؟

مُساهمة من طرف Microformt في الأربعاء مارس 05, 2014 7:49 am

أحمد مناع كتب:أخى الكريم كل ما عليك فعلة هو كتابة الكود التالى  فى اى مكان فى صفحة كتابة الكود
الكود:

Sub SelectAllText(tb As TextBox)
 tb.SelStart = 0
  tb.SelLength = Len(tb.Text)
End Sub

بعد ذلك حدد مربع النص المراد تحديد نصه عند تركيز المؤشر علية وفى حدث التركيز GotFocus أكتب الكود التالى :

الكود:
 SelectAllText Text1

ليصبح الكود كما يلى :

الكود:
Private Sub Text1_GotFocus()
 SelectAllText Text1
End Sub

حيث أن Text1 هو مربع النص المراد تظليل النص الموجود به
اخي العزيز : احمد مناع
 السلام عليكم ورحمة وبركاته
 لك مني جزيل الشكر والتقدير على ما تقدمه لنا من دعم فني والله يحفظكم ويرعاكم
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

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


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