ايران ويج

سلام دوستان
من یه برنامه ای برای جدا کننده ارقام نوشتم ولی متاسفانه درست کار نمی کنه یعنی مثلا اگر قراره در textbox عدد123456789 وارد شود با گذاشتن جدا کننده توسط برنامه به این صورت می شود 789,456,123 البته من نمی خوام از کامپوننت استفاده کنم
Text19.Text = Val(Text28.Text) - Val(Text21.Text)
If Len(Text21.Text) <> 0 Then
a = Mid$(Text21.Text, Len(Text21.Text), 1)
If a <> "," Then
If (Len(Text21.Text) - i) Mod 3 = 0 Then
Text21.Text = "," + Text21.Text
i = i + 1
End If
End If
End If

فکر کنم چون از len استفاده کردی اینجوری شده

نوشتنش به صرفه تر بود تا رفع اشکالش.
من یه تابع نوشتم که تکست باکست و کاراکتر جدا کننده رو باید براش بفرستی تا تغییرات رو اعمال کنه:

کد: 
Private Sub Sub1(TxtBox As Control, CH As String)

Dim i, j As Integer

TxtBox.Text = StrReverse(TxtBox.Text)

For i = 1 To Len(TxtBox.Text)

 If ((i Mod 3) = 0) And i <> Len(TxtBox) - j Then

 TxtBox.Text = Mid(TxtBox.Text, 1, i + j) & CH & Mid(TxtBox.Text, i + j + 1)

 j = j + 1

 End If

 Next i

 TxtBox.Text = StrReverse(TxtBox.Text)

End Sub

فرا خوانیش هم به این صورته :

کد: 
Sub1 Text1, ","

موفق باشی

آریایی

kimiafars

HoseinVig