یک سوال خواهشا جواب بدهید

[Rishter]

من میخواهم که کاربر فونت Textbox رو خودش تغییر بده . همین لطفا جواب بدهید . با تشکر .

[MrGee]

کاری نداره که
کافیه از یه common dilog استفاده کنی

[8086]

با سلام

mcd1.ShowFont
If Text1.Text <> "" Then
Text1.Font = mcd1.FontName
End If

با تشكر

---------- Post added at 06:35 PM ---------- Previous post was at 06:34 PM ----------

با سلام
منظور از mcd1 همون microsoft common dialog ميباشد.
با تشكر

[Rishter]

با تشکر فراوان از شما عزیزان .

اقای 8086 من از کد شما استفاده کردم ولی این ارور ظاهر شد :

باز هم تشکر .

[MrGee]

متن ارور اینه که شما فونتی نصب نکردید.

[8086]

با سلام
براي استفاده از اين كادر محاوره اي ابتدا بايد مقدار متغيير flags را تعيين نمود.
در بخش خصوصيات(properties) كنترل commondialog مقدار flags را تغيير دهيد.
اين متغيير سه مقدار ميپذيرد كه به شرح زير است:

1- مقدار "1" كه مجموعه قلم هاي صفحه نمايش است.
2- مقدار "2" كه مجموعه قلم هاي چاپگر ميباشد.
3- مقدار "3" كه مجموعه قلم هاي هر دو مجموعه ي قبلي است.

كه پيشنهاد ميكنم عدد 3 را انتخاب كنيد.

با تشكر

[Rishter]

با تشکر فراوان از دوست خوبم آقای 8086 .

من اون کارو کردم بخش فونت رو هم آورد ولی فونت نوشته رو تغییر نمیده . مشکل از کجاست .

بازم ممنون .

[8086]

با سلام
ببخشيد من دستور قبل رو اشتباه نوشته بودم.

از دستور زير استفاده كنيد:

براي تغيير فونت:

CommonDialog1.ShowFont
Text1.Font = CommonDialog1.FontName

براي تغيير ضخامت:
CommonDialog1.ShowFont
Text1.FontBold = CommonDialog1.FontBold

براي تغيير سايز:
CommonDialog1.ShowFont
Text1.FontSize = CommonDialog1.FontSize

براي Italic كردن:
CommonDialog1.ShowFont
Text1.FontItalic = CommonDialog1.FontItalic

براي كشيدن خط در وسط فونت:
CommonDialog1.ShowFont
Text1.FontStrikethru = CommonDialog1.FontStrikethru

براي كشيدن خط زير:
CommonDialog1.ShowFont
Text1.FontUnderline = CommonDialog1.FontUnderline

شرمنده كه كدهاي قبلي اشتباه بود.
با تشكر

[Rishter]

این حرفا چیه ارادت . خیلی ازت ممنونم .

[Rishter]

يه سوال ديگه دارم چه طور ميتونم كاري كنم كه برنامم توTaskbar نشون داده شود ؟ كه با بالا آمدن ويندوز نرم افزار

ظاهر شود؟ بازم ممنون