سوال درباره فونت

[arsanhacker]

سلام به دوستان عزیز.

من می خوام یه TextBox درست کنم وبه کاربر امکان تغییر فونت اون برنامه رو بدم اگه میشه منو راهنمایی کنید.

و همون طور که گفتم می خوام یه کاری کنم که کاربر بتونه فونت اون متنی رو که در تکست باکس نوشته رو تغییر بده و در یه جا Save کنه.

تو قسمت فونتش مشکل دارم.

اگه میشه سورس کامل بزارید. مرسی.
----------------------------------------------------
موضوع تاپیک رو درست انتخاب کنید

[ƒxmahdi]

ابتدا شما شیء Microsift CommonDialog1 را به برنامه اضافه و بعد از کد زیر استفاده نمایید
CommonDialog1.Flags = 2
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName

[arsanhacker]

مرسی از کدی که دادید. کار کرد ولی من میخوام یه Combobox باز شه و تمام فونت هارو اونجا نوشته باشه و کاربر با انتخاب یکی از اونها بتونه فونت text رو مشخص کنه و نمی خوام یه صفحه ی جدیدی باز شه.
مرسی.

[arashrj]

سلام
با این کد لیست فونت ها رو دریافت کن

کد:

Dim RJ As Integer
For RJ = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(RJ)
Next

با این هم فونت رو ست کن با شی مورد نظر

کد:

Label1.FontName = Combo1.List(Combo1.ListIndex)

موفق باشی

[arsanhacker]

مرسی دوست عزیز کارت حرف نداشت.

مشکلم حل شد مرسی.

[arsanhacker]

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

ببخشید من یه کد هم برای تایین اندازه ی فونت می خوام. یعنی به کاربر اجازه بده که اندازه ی فونتش (Font Size ) رو معین کنه ( اگه میشه دوباره ی از روش Combobox )

اگه هم قابلیت Bold و Italic و .... رو داشت چه بهتر اگه نداشتم اشکالی نداره.

مرسی.

[mbza11]

سلام.
دوست عزیز لطفا خودتون هم کمی تلاش کنید.
برای تنظیم اندازه متن، Label1.FontSize رو به مقدار کومبوباکس تنظیم کنید.
Label1.FontBold
Label1.FontItalic
Label1.FontUnderline
هم برای فونت های بولد، ایتالیک و زیرخط دار استفاده می شه که می تونی با یه شرط و چک کردن مقدار داخل کومبوباکس، اونا رو True یا False کنی.