حرفه ای: فونت هاي سيستم در يک Combo باکس [بایگانی]

MohammadGh2011

چهارشنبه 27 مهر 1390, 12:38 عصر

سلام عليکم
چگونه تمامي فونت هاي يک سيستم رو تو يک کمبوباکس اضافه کنم؟
لطفا سورس ضميمه نکنيد!کدها رو بزاريد و توضيح دهيد.با تشکر

M.T.P

چهارشنبه 27 مهر 1390, 15:52 عصر

فکر نکنم نیاز به توضیح باشه اما اگه نیاز بود سوال کنید.

Dim i As Integer
For i = 0 To Screen.FontCount
combo1.AddItem Screen.Fonts(i)
Next i

MohammadGh2011

چهارشنبه 27 مهر 1390, 19:42 عصر

سلام عليکم
ممنونم از شما
ولي فکر کنم برنامه خيلي سنگين ميشه چون موقعي که برنامه رو اجرا ميکنم بعد از چندثانيه برنامه اجرا ميشه.!ممنونم جناب M.T.P