[Thewolf]

س !!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید !!!!!!!!!!!
سوال:
چه طور می شه تو 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