شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts
صفحة 1 من اصل 1 • شاطر
شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts
بسم الله الرحمن الرحيم
أخوانى أعضاء وزوار منتدى مصر التقنى أهلا بكم فى درس جديد من دروس المنتدى ....اليوم راح نتكلم أن شاء الله تعالى عن كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts ....فهيا بنا :
1_ قم بأنشاء مشروع قياسى جديد
2_ قم بإضافة combo box
3 _ فى حدث التحميل للفورم ...قم بكتابة الكود التالى :
- الكود:
Dim I As Integer
For I = 1 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next
4_ قم بتشغيل برنامج ولاحظ النتيجة كما فى الصورة التالية :
اية رأيكم
م/موسي- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة :
الجنس :
رد: شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts
شكرا اخى ...معلومة جديدة
زهراء- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 438
النقاط : 769
التقيم : 67
الدولة :
الجنس :
رد: شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts
ازيدك من الشعر بيتا
------------------
فى تحميل الفوم
------------------
ثم نكتب فى شاشه كود الكومبو
--------------------------
وذلك للتحكم فى خط التكست من حيث نوع الخط
------------------
فى تحميل الفوم
- الكود:
Dim i As Integer
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next i
Combo1.Text = Combo1.List(0)
------------------
ثم نكتب فى شاشه كود الكومبو
- الكود:
Private Sub Combo1_Click()
On Error Resume Next
Text1.Font = Combo1
End Sub
--------------------------
وذلك للتحكم فى خط التكست من حيث نوع الخط
ahmedismayl- ..
- تاريخ التسجيل : 15/01/2014
المساهمات : 24
النقاط : 30
التقيم : 0
الدولة :
الجنس :
رد: شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts
جزاكم الله خيرا اخى احمد على معلوماتك المفيدة
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 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