text box

سلام خدمت دوستان
يه سوال برام پيش اومده اگه ميشه جواب بدين
چطور ميشه محتويات يك Text Box رو با فرمت Currency چاپ كرد يعني ارقام رو سه رقم سه رقم جدا كنه

دوست عزیز این سوال قبلا مطرح شده یک بار search کنی پیدا میکنی .:biggrin: :biggrin: :biggrin:

بیایید افتخار ایران باشیم و به ایرانی بودن خود نیز افتخار کنیم



[SIZE="2"] [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] [/SIZE]

تابع ccur برای تبدیل متغییر عددی به متغییر Currency است. حالا 3 تا 3 تا جدا کنه یا نه نمی دونم
می تونی خودت از تابع Mid استفاده کنی و 3تا 3 تا جدا کنی

تابع format

کد:

---

Private Sub Text1_Change()
    If Text1.Text <> "" Then
        Text1.Text = Format(Text1.Text, "##,0")
        Text1.SelStart = Len(Text1.Text)
    End If
End Sub

---

بهتره بجاي استفاده از TextBox از MaskEdit استفاده كني

Enum FormatType
Standard = 0
Commas = 1
Dollars = 2
Unformat = 3
End Enum

Function FormatAnyNumber(ByVal cInputNum As String, nFormat As FormatType) As String
Dim cNewNum As String
Select Case nFormat
Case Standard
cNewNum = Format$(cInputNum, "Standard")
Case Commas
cNewNum = Format$(cInputNum, "###,###,###,###,##0.##########")
If Right$(cNewNum, 1) = "." Then
cNewNum = Left$(cNewNum, Len(cNewNum) - 1)
End If
Case Dollars
cNewNum = Format$(cInputNum, "Currency")
Case Unformat
If Len(cInputNum) Then
cNewNum = CDbl(cInputNum)
Else
cNewNum = ""
End If
Case Else
MsgBox "Unknown Number Format!", vbExclamation, "Format Any Number"
cNewNum = cInputNum
End Select
FormatAnyNumber = cNewNum
End Function

Private Sub Command1_Click()
Text1 = FormatAnyNumber(Text1, Commas)
End Sub

Private Sub Command2_Click()
Text1 = FormatAnyNumber(Text1, Dollars)
End Sub

Private Sub Command3_Click()
Text1 = FormatAnyNumber(Text1, Unformat)
End Sub

Private Sub Form_Load()
Command1.Caption = "&Add Commas"
Command2.Caption = "&Make Dollars"
Command3.Caption = "&Unformat"
Text1 = "123456789"
End Sub