+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: قرار دادن شماره فارسی در Textbox (/showthread.php?tid=2560)
قرار دادن شماره فارسی در Textbox - Thewolf - 07-11-2012
س !!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید !!!!!!!!!!!
سوال:
چه طور می شه تو 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