سلام به دوستان عزیز.
من می خوام یه TextBox درست کنم وبه کاربر امکان تغییر فونت اون برنامه رو بدم اگه میشه منو راهنمایی کنید.
و همون طور که گفتم می خوام یه کاری کنم که کاربر بتونه فونت اون متنی رو که در تکست باکس نوشته رو تغییر بده و در یه جا Save کنه.
تو قسمت فونتش مشکل دارم.
اگه میشه سورس کامل بزارید. مرسی.
----------------------------------------------------
موضوع تاپیک رو درست انتخاب کنید
ابتدا شما شیء Microsift CommonDialog1 را به برنامه اضافه و بعد از کد زیر استفاده نمایید
CommonDialog1.Flags = 2
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
مرسی از کدی که دادید. کار کرد ولی من میخوام یه Combobox باز شه و تمام فونت هارو اونجا نوشته باشه و کاربر با انتخاب یکی از اونها بتونه فونت text رو مشخص کنه و نمی خوام یه صفحه ی جدیدی باز شه.
مرسی.
سلام
با این کد لیست فونت ها رو دریافت کن
کد:
Dim RJ As Integer
For RJ = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(RJ)
Next
با این هم فونت رو ست کن با شی مورد نظر
کد:
Label1.FontName = Combo1.List(Combo1.ListIndex)
موفق باشی
مرسی دوست عزیز کارت حرف نداشت.
مشکلم حل شد مرسی.
سلام ببخشید که دوباره مزاحمتون میشم.
ببخشید من یه کد هم برای تایین اندازه ی فونت می خوام. یعنی به کاربر اجازه بده که اندازه ی فونتش (Font Size ) رو معین کنه ( اگه میشه دوباره ی از روش Combobox )
اگه هم قابلیت Bold و Italic و .... رو داشت چه بهتر اگه نداشتم اشکالی نداره.
مرسی.
سلام.
دوست عزیز لطفا خودتون هم کمی تلاش کنید.
برای تنظیم اندازه متن، Label1.FontSize رو به مقدار کومبوباکس تنظیم کنید.
Label1.FontBold
Label1.FontItalic
Label1.FontUnderline
هم برای فونت های بولد، ایتالیک و زیرخط دار استفاده می شه که می تونی با یه شرط و چک کردن مقدار داخل کومبوباکس، اونا رو True یا False کنی.