PDA

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


bastakboys
یک شنبه 11 بهمن 1388, 08:42 صبح
دوستان من می خواهم با یک فونت در تیبل بنویسم اما اون کلمات را برعکس مینویسد:
http://img.majidonline.com/pic/262520/b1.JPG
و در ورد ( به تصاویر توجه کنید)
http://img.majidonline.com/pic/262521/b2.JPG
-------------------------
http://img.majidonline.com/pic/262524/b3.JPG

حالا من در برنامه باید چکار کنم تا درست بشه؟
Computer.Programmer
یک شنبه 11 بهمن 1388, 10:13 صبح
دوست گرامی مشکلی که شما دارید احتمالا مربوط میشه یا به تنظیمات ویندوزتون یا هم اینکه باید کدها تونو بررسی کنید چون من با اینکه مطمئن بودم همچین مشکلی وجود نداره بازم تست گرفتم و مطمئن شدم. نمونه تصویر رو هم گذاشتم می تونی ببینی هیچ مشکلی توی راست به چپ وحود نداره. در ضمن من از کد زیر استفاده کردم.





Dim grp As Graphics = Me.CreateGraphics
grp.DrawString(" ", New Font("IranNastaliq", 80), Brushes.Black, 10, 10)





شما هم بهتره کدتونو بذارید تا با هم بررسیش کنیم.

البته اگر برای نوشتن متنت داری از کلاس Graphics استفاده می کنی می تونی از StringFormat هم استفاده کنی و فرمت اونو به راست به چپ تغییر بدی. مثل کد زیر:




Dim grp As Graphics = Me.CreateGraphics
grp.DrawString(" ", New Font("IranNastaliq", 80), Brushes.Black, 10, 10, New StringFormat(StringFormatFlags.DirectionRightToLef t))



موفق باشید
bastakboys
یک شنبه 11 بهمن 1388, 11:04 صبح
دوست گرامی
من یک فایل ورد را دارم که قرآن را با فونت عثمان طه نوشته که در ورد به خوبی هست اما وقتی من یکی از آیه ها را در پروپرتی تکست لیبل کپی میکنم و فونتم را برابر با همان فونت (عثمان طه ) قرار میدم اینجوریه و راست به چپ هم هیچ تاثیری نداره.
Computer.Programmer
یک شنبه 11 بهمن 1388, 15:37 عصر
دوست گرامی
من یک فایل ورد را دارم که قرآن را با فونت عثمان طه نوشته که در ورد به خوبی هست اما وقتی من یکی از آیه ها را در پروپرتی تکست لیبل کپی میکنم و فونتم را برابر با همان فونت (عثمان طه ) قرار میدم اینجوریه و راست به چپ هم هیچ تاثیری نداره.


حالا بیا این کارو با همون کلاس Graphics انجام بده ببین درست نمیشه.
bastakboys
یک شنبه 11 بهمن 1388, 16:35 عصر
درست نشد
بیا اینم فونت و فایل ورد خودت امتحان کن
Computer.Programmer
یک شنبه 11 بهمن 1388, 19:13 عصر
درست نشد
بیا اینم فونت و فایل ورد خودت امتحان کن


دوست عزیز من فونت رو نصب کردم ولی ظاهرا فونت مربوط به XP میشه و توی ویستا جواب نمی ده. ولی از ظاهر کاراکترهای چاپ شده اینجوری برمیاد که داره درست چاپ می کنه. عکسش هم به صورت زیر شده. من فکر می کنم اگه با کلاس Graphics کار کنی مشکلت حل میشه.
bastakboys
دوشنبه 12 بهمن 1388, 07:41 صبح
فکر نکنم فونت xp باشه آخه ویندوز من سون
شما یک آیه از اون فایل وردی که همراهش است رو در خواصیت تکست لیبل کپی کنید درست می شه.
و فونت لیبل را برابر با Msh Quraan1 قرار بدید
bastakboys
سه شنبه 13 بهمن 1388, 11:24 صبح
دوست عزیز میشه با اون فونتکی که گفتم از کلاس گرافیک استفاده کرد؟
اگه لطف کنی یک پروژه کوچک برای این کار بنویسی ممنون می شم
Computer.Programmer
سه شنبه 13 بهمن 1388, 12:02 عصر
دوست عزیز میشه با اون فونتکی که گفتم از کلاس گرافیک استفاده کرد؟
اگه لطف کنی یک پروژه کوچک برای این کار بنویسی ممنون می شم

اره با کلاس گرافیک میشه با هر فونتی متن چاپ کرد به این صورت باید عمل کنی:




Dim grp As Graphics = Me.CreateGraphics
Dim fnt As New Font("Tahoma", 20)
grp.DrawString("My String", fnt, Brushes.Black, 10, 10)



به جای Tahoma که اسم فونت هست اسم فونت مدنظرتو بنویس و به جای My String هم رشته مورد نظر رو بنویس.

موفق باشی