شرح كيفية ملء مربع التحرير وسرد 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
المساهمات : 130
النقاط : 252
التقيم : 8
الدولة : تونس
الجنس : ذكر

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

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

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

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

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

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

رد: شرح كيفية ملء مربع التحرير وسرد 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
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

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

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


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