مشكل جداكننده عددي در TextBox

[sahel65]

سلام دوستان؛
یه سوال داشتم(جدا کردن اعداد در textbox ) که اگه احیاناً قبلا جوابش داده شده پیشاپیش معذرت میخوام. ولی باور کنید دیروز کلی سرچ کردم و یه تاپیک دیدم که مربوط به vb.net بود و من برای VB میخوام. اینهم آدرس اون تاپیکی که گفتم

http://barnamenevis.org/forum/showthread.php?t=137875

سوال اصلی خودم: من میخوام توی textbox عدد رو که وارد می کنم سه رقم سه رقم با کاما از هم جدا بشه که برای تایپ کننده راحت و قابل خوندن باشه. چه جوری اینکار رو انجام بدم چونکه وقتی format رو Money هم کردم جواب نداد. ممنون از راهنماییهاتون.

[.:KeihanCPU:.]

یه نگاهی به این بنداز
26749

[sahel65]

ضمن تشکر از شما ، نمیشه یه جوری کرد که همزمان که توی text داره عدد رو میگیره همونجا با کاما از هم جدا بشن؟ یعنی در همون textbox وقتی که داره عدد تایپ می کنه بدون نیاز به command اعداد رو سه رقم سه رقم از هم جدا کنه.

[ƒxmahdi]

فقط کافیه روی TextBox دوبار کلیک کنی و دستور زیر را اضافه ! به عبارتی
از دستور زیر در رویداد Text1_Change استفاده کن!

Text1.Text = Format$(Text1.Text, "###,###")
SendKeys "{end}"

[ranasamaditabriz]

با سلام
وقتي من اين تكه رو به برنامه ام اضافه ميكنم در textboxاين عبارت وارد ميشه "###","###"
و هيچ يك از دستوراتي را كه قبلا اجرا مي كرد اجرا نميكنه.
چي كار كنم اين كد در برنامه منم كار كنه؟ البته مي خوام توي اين textboxعمليات copy ,pastنيز اجرا شود.

من پاسخ فوري مي خواهم البته اگه امكان داره.

[ranasamaditabriz]

كسي نيست جواب سوالمو بده؟

[kooroush]

این یک ocx شاید به کارت اومد ، یک تکر هم بفشاری بد نیست

[kooroush]

اینم یکی دیگه است ...

[ranasamaditabriz]

ضمن تشكر از شمامن نتونستم از اين فايلهاي ضميمه چيزي جور كنم در صورت امكان خود كد را بذارين

[kooroush]

یعنی چی چیزی جور کنین ؟> فقط کافیه ocx گذاشته شده رو دانلود کنید ، و تو برنامه تون استفاده کنین .
چند تا تکس باکس آماده با همون خاصیتهایی که می خواین .

[Samsam2010]

دوست عزیز کافی یه شمارنده بزاری هر وقت به رقم سه رسید یه Sendkeys بزنه "," همین

[ranasamaditabriz]

من برنامه رو دانلود كردم و extractهم كردم ولي محتوياتشو با هيچي باز نميشه.

[kooroush]

دوست عزیز این دو فایلی که گذاشتم برنامه نیست که بخوای بازش کنی !!!
باید تو قسمت کامپوننتهای ویبی اینها رو اضافه کنی که انوقت چند تا تکسکت باکس در همین زیمنه ای که می خواین به نوار ابزار وی بی اضافه می شه .

در قسمت ابزار وی بی راست کلیک کرده و آدرس فایلهای ضمیمه شده را بدهید .



و تشکر آفریده شد

[pooya1072]

دوست عزیز...
برنامه رو به صورت کد برات گذاشتم.بی عیب نیست ...ولی تقریبا چیزیه که می خوای
یه فرم بساز..یه textbox روش قرار بده ...کد زیر رو هم کپی کن...
سعی کن موفق باشی:چشمک:





Dim BStr As String
Dim Pos As Long
Dim Li As Double
Dim Hi As Double


Private Sub Form_Load()
Li = 100
Hi = 1000
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If

If (KeyAscii >= 48 And KeyAscii <= 57) Then
BStr = BStr & Chr(KeyAscii)
Text1.Text = Text1.Text & Chr(KeyAscii)
Pos = Pos + 4
Text1.SelStart = Pos
If Val(BStr) >= Li And Val(BStr) < Hi Then
Text1.Text = Text1.Text & ","
Pos = Pos + 4
Text1.SelStart = Pos
KeyAscii = 0
Li = Li * 1000
Hi = Hi * 1000
End If
KeyAscii = 0
End If
End Sub

[butterfly8528]

سلام .


Private Sub Text1_Change()
Text1.Text = Format$(Text1.Text, "###,###")
End Sub

موفق باشید .