شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts

إرسال مساهمة في موضوع

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

شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts

مُساهمة من طرف م/موسي في الأربعاء نوفمبر 14, 2012 9:00 am

بسم الله الرحمن الرحيم


أخوانى أعضاء وزوار منتدى مصر التقنى أهلا بكم فى درس جديد من دروس المنتدى ....اليوم راح نتكلم أن شاء الله تعالى عن كيفية ملء مربع التحرير وسرد 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_ قم بتشغيل برنامج ولاحظ النتيجة كما فى الصورة التالية :





اية رأيكم
avatar
م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 152
النقاط : 305
التقيم : 11
الدولة : تونس
الجنس : ذكر

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

رد: شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts

مُساهمة من طرف زهراء في السبت نوفمبر 17, 2012 7:30 pm

شكرا اخى ...معلومة جديدة
avatar
زهراء
........
........

تاريخ التسجيل : 18/02/2011
المساهمات : 344
النقاط : 566
التقيم : 38
الدولة : مصر
الجنس : انثى

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

رد: شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts

مُساهمة من طرف ahmedismayl في الأحد يناير 19, 2014 6:50 pm

ازيدك من الشعر بيتا
------------------
فى تحميل الفوم

الكود:

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


--------------------------
وذلك للتحكم فى خط التكست من حيث نوع الخط
avatar
ahmedismayl
..
..

تاريخ التسجيل : 15/01/2014
المساهمات : 24
النقاط : 30
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

رد: شرح كيفية ملء مربع التحرير وسرد combo box بخطوط النظام system fonts

مُساهمة من طرف NEXT في الإثنين يناير 20, 2014 6:59 am


جزاكم الله خيرا اخى احمد على معلوماتك المفيدة

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 325
النقاط : 200481
التقيم : 10
الدولة : مصر
الجنس : ذكر

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

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

ََ

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


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