اكواد (زقزوق) السريعة و ألمفهومه
كيف يمكنك مليء القائمة المنسدلهcommbobox بجميع أنواع الخطوط fonts و إحجام الخطوط size
عمليه سهله وعبيطه جدا.
1- إنشاء عنصرين commbobox
2- اكتب الكود التالي في حدث تحميل النموذج form_load()
Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
cbofont.AddItem Screen.Fonts(i)
Next i
For i = 8 To 60 Step 2
Cbosize.AddItem i
Next i
End sub
نشرح الكود
Dim I as integer
حجز مكان في الذاكرة لمتغير رقمي i
For I = 0 to screen.fontcount-1
جملة تكرار من I = صفر إلى (عدد الخطوط الموجودة)
Cdofont.Additem screnn.Fonts(i)
اضف في القائمة المنسدله الخط اللي رقمه i
For I = 8 to 60 step 2
من i=8 إلى 60 step2 معناها خذ خطوه واترك خطوتين
اى i= (8,10,12,14,16,18,--> 60)
cbosize.additem i
القائمة cbosize = في كل مره تكرار تضيف قيمه i
بس خلاص
مع تحيات زقزوق
إذا كنت تريد الاستفسار عن اى شيء أو المساعدة
في عمل برنامج ما راسلني على pirooo1@hotmail.com