Parsi Coders

س !!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید !!!!!!!!!!!
سوال:
چه طور می شه تو VB6 تو یه Textbox شماره نوشت که فارسی باشه،البته فونتش هم Tahoma باشه؟

جواب:
خب فونتش رو Tahoma بزارید. بعد رایت تو لفت (Right To Left) رو برابر (True) کنید.
به همین راحتی !!!
یه کد جالب راجب همین چیزی که گفتم:!!!

یک Command و یک TextBox ایجاد کنید، سپس کدهای زیر را در قسمت General وارد کنید.

کد:
Option Explicit

Private Sub Command1_Click()

Select Case Text1.RightToLeft

Case True

Text1.RightToLeft = False

Command1.Caption = "فارسی"

Case False

Text1.RightToLeft = True

Command1.Caption = "English"

End Select

End Sub

Private Sub Form_Load()

With Text1

.FontName = "Tahoma"

.Text = "1377"

.ToolTipText = "Simple For English And Parsian Number In Vb6"

.RightToLeft = False

.Top = "120"

.Left = "120"

.Width = "2295"

.Height = "495"

End With

With Command1

.FontName = "Tahoma"

.Caption = "English"

.Default = True

.Top = "720"

.Left = "120"

.Width = "2295"

.Height = "375"

End With

With Me

.Caption = "TheWolf"

.Width = "2805"

.Height = "1800"

End With

End Sub

Thewolf