PDA

View Full Version : سوال: پنجره فونت


agamin
چهارشنبه 22 خرداد 1387, 15:24 عصر
از كجا مي شود يك پنجره فونت پيدا كرد؟
مثل اين:
http://barnamenevis.org/forum/attachment.php?attachmentid=19008&stc=1&d=1213791741
.:KeihanCPU:.
چهارشنبه 22 خرداد 1387, 15:29 عصر
Crl + t رو بزن
6.00 Microsft CommonDialogControl رو Add کن

با این کد:

CommonDialog1.ShowFont
agamin
چهارشنبه 22 خرداد 1387, 15:54 عصر
این كارو قبلا كردم ولی ایراد می گیره كه:
there are no fonts installed. open the font folder from the control pannel to install font
در حالی كه فونت های نسب شده زیادی هم دارم!
.:KeihanCPU:.
چهارشنبه 22 خرداد 1387, 16:01 عصر
من اینکارو قبلا کردم ولی الا هرچی میکنم نمیشه صبر کنید تا پیداش کنم
agamin
چهارشنبه 22 خرداد 1387, 19:16 عصر
راه دیگری نداره؟
vbhamed
چهارشنبه 22 خرداد 1387, 19:55 عصر
این كارو قبلا كردم ولی ایراد می گیره كه:
there are no fonts installed. open the font folder from the control pannel to install font
در حالی كه فونت های نسب شده زیادی هم دارم!



سلام
اين دستور رو بنويسيد ديگه ايراد نمي گيره



With CommonDialog1
.Flags = 3
.ShowFont
End With
.:KeihanCPU:.
چهارشنبه 22 خرداد 1387, 20:16 عصر
اين دستور رو بنويسيد ديگه ايراد نمي گيره
چه طوری؟
نمیشه
vbhamed
پنج شنبه 23 خرداد 1387, 00:39 صبح
سلام
چطوري چيه ديگه
دو تا دستور ساده هست
بنويسيد
.:KeihanCPU:.
پنج شنبه 23 خرداد 1387, 00:44 صبح
اگه دستور دقیقا به همون شکل نوشته بشه ایراد داره
آیا With لازمه؟
AmirAmiri
پنج شنبه 23 خرداد 1387, 11:21 صبح
اگه دستور دقیقا به همون شکل نوشته بشه ایراد داره
آیا With لازمه؟
خب اینطوری بنویس دستوره به این آسونی که پرسیدن نداره دیگه... :اشتباه:


CommonDialog1.Flags = 3
CommonDialog1.ShowFont

:عصبانی++:
.:KeihanCPU:.
پنج شنبه 23 خرداد 1387, 11:39 صبح
مثل اینکه اشکال از سیستم منه هر کاری میکنم نمیشه
فکر کنم باید ویندوز عوض کنم
l3ai3ak
پنج شنبه 23 خرداد 1387, 12:31 عصر
احتمالاً شما مشکل اکسس پالیسی دارین سعی کنین یوزر Administrator رو هم آزمایش کنید .
agamin
پنج شنبه 23 خرداد 1387, 21:08 عصر
خاصيت flags چيست؟
لطفا توضيح بدين.
AmirAmiri
جمعه 24 خرداد 1387, 01:02 صبح
خاصيت flags چيست؟
لطفا توضيح بدين.

پراپرتی flags تعیین میکنه که پینجره CommonDialog حالا فرق نمیکنه کدوم قسمتش میخواد Font یا Color یا Open یا Printer باشه فرقی نداره. تعیین میکنه که چطوری نمایش داده بشه.
مثلا در مورد Color عدد 0 برای Flags باعث میشه که پنجره Color به صورت معمولی و تک پنلی باز بشه در حالیکه عدد 2 این پنجره رو به صورت کامل و با جعبه رنگ سمت راستش باز میکنه مثل فتوشاپ اما عدد 10 باعث میشه که همین پنجره به صورت کاملتر یعنی با یک دکمه Help باز بشه.

همینا در مورد Font هم صدق میکنه واسه منم زمانیکه 0 میزارم میگه هیچ فونتی وجود نداره اما وقتی 1 یا 2 یا 3 میزارم پنجره فونت باز میشه بدونه اینکه هیچ خطایی بده.

موفق باشید...
z_ajdeh
جمعه 24 خرداد 1387, 10:38 صبح
سلام
من همینی که واسه فونت گفتید نوشتم ولی وقتی نوع نوشته و اندازه اش و ... رو مشخص میکنیم هیچ تاثیری رو نوشته ها که بعدن مینویسیم نداره چرا؟
AmirAmiri
جمعه 24 خرداد 1387, 10:57 صبح
شما باید فونت CommonDialog رو به فونت کنترل مورد نظر نسبت بدید


CommonDialog1.ShowFont
Label1.FontName = CommonDialog1.FontName
Label1.FontSize = CommonDialog1.FontSize
Label1.FontBold = CommonDialog1.FontBold
Label1.FontItalic = CommonDialog1.FontItalic
Label1.FontUnderline = CommonDialog1.FontUnderline
Label1.FontStrikethru = CommonDialog1.FontStrikethru

موفق باشید...