textbox

سلام
من يك textbox دارم كه مي خوام فقط اعداد و نقطه و backspace را بتوان در آن وارد كرد و اعداد هم بصورت هزار جدا شوند و بتوان اعداد را بصورت اعشاري هم وارد نمود . كد زير را نوشتم ولي اشكال دارد . لطفا راهنمايي كنيد . (از vb6 استفاده مي كنم )

کد:

---

()Private Sub Text1_Change
  If Text1.Text <> "" Then
("Text1.Text = Format(Text1.Text, "##,##0.00
( Text1.SelStart = Len(Text1.Text
End If
End Sub
(Private Sub Text1_KeyPress(KeyAscii As Integer
  If Not (KeyAscii = vbKeyBack Or KeyAscii = 46) Then
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
  End If
End Sub

---

وقتي از ويژوال بيسيك كد را paste كردم فونت ها به هم ريخت . به پرانتزها دقت نكنيد .

سلام
اینو دانلود کن ببین کارتو راه میندازه؟

نقل قول:

---

کد:

---

http://javadraoufdanger.parsaspace.com/vb/vb2.rar

---

---

خیلی جالبه از سوالی که تو پرسیدی من جوابی که می خواستم براش تاپیک بزنم رو گرفتم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
به این می گن مبادله کالا به کالا [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ممنونم

خيلي خوب بود . فقط نميشه تغييرات در همون textbox اول اعمال بشه .( يعني موقع نوشتن .) در ضمن اگر چند نقطه بنويسيم برنامه هيچ اروري نميده . مثل 1234.123.154

كسي نيست برنامه ي ديگه اي داشته باشه ؟

سلام!

کلش اینه: (برو حالشو ببر :31:)

کد:

---

Private Sub Text1_Change()
  Dim tmp As String
 
 
  If InStr(1, Text1.Text, ".") Then
    tmp = Replace(Text1.Text, ",", "")
    Text1.Text = Format$(tmp, "###,###,###,##0.###")
  Else
    tmp = Replace(Text1.Text, ",", "")
    Text1.Text = Format$(tmp, "###,###,###,##0")
  End If
 
  Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case Chr$(KeyAscii)
    Case ".": If InStr(1, Text1.Text, ".") Then KeyAscii = 0
    Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, Chr$(vbKeyBack)
    Case Else: KeyAscii = 0
  End Select
End Sub

---

فقط اگه خواستی تعداد اعشاری که نشون میده بیشتر باشه کافیه توی خطی که با سبز مشخص کردم بعد از آخرین کاراکتر # بازهم کاراکتر # اضافه کنی...

به همین سادگی :11:

سلام میشه درباره کدت توضیح بدی

سلام بهرام جان!

توضیح؟ منو توضیح؟ اصلا به من میخوره چیزی رو توضیح بدم؟ :18:

باشه حالا اصرار میکنی باشه! :27:

ببین -- ما در رویداد text_change :
1- یک متغیر به نام tmp (همون temp) از نوع string تعریفیدیم!
2- شرط اینکه اگر در تکست ما کاراکتر نقطه وجود داشت فرمت به صورت اعشاری نشان دهد - در غیر اینصورت معمولی.
3- tmp را برابر فرمت اصلی تکست قرار دادیم. یعنی تکست را گرفتیم و کاراکترهای , را از میان برداشتیم که در هنگام فرمت تکست مشکل بوجود نیاید (بهم نریزه!).
4- نشانگر چشمکزن را به آخرین کاراکتر بردیم.

نکته: نیازی به وجود text2 نیست زیرا ما اصل تکست را توسط خودش برگرداندیم و دوباره به فرمت دلخواه دراوردیم.

در رویداد text_keypress :
1- با استفاده از Select :
- در صورتی که کلید زده شده کاراکتر نقطه بود : اگر یک نقطه در تکست وجود داشت کلید رد شود. (جلوگیری از وجود دو نقطه)
- در صورتی که اعداد و کلید BackSpace بود کاری باهاشون نداریم!
- در صورتی که هر چیزی غیر از اینا بود کلید را رد میکنیم.
-

به همین سادگی! (البته توضیحش خیلی سخت بود!)

ببخشید اگه بد توضیح دادم!

سوالی بود بپرسید :11:

نقل قول:

---

ببخشید اگه بد توضیح دادم!

---

نه متوجه شدم
مرسی از توضیحت
مشکل من اعشارش بود که نمی تونستم روی یک تکست عملیات رو انجام بدم

نقل قول:

---

نوشته شده توسط Smafias [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام!

کلش اینه: (برو حالشو ببر :31:)

کد:

---

Private Sub Text1_Change()
  Dim tmp As String
 
 
  If InStr(1, Text1.Text, ".") Then
    tmp = Replace(Text1.Text, ",", "")
  Text1.Text = Format$(tmp, "###,###,###,##0.###")
  Else
    tmp = Replace(Text1.Text, ",", "")
    Text1.Text = Format$(tmp, "###,###,###,##0")
  End If
 
  Text1.SelStart = Len(Text1.Text)
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case Chr$(KeyAscii)
    Case ".": If InStr(1, Text1.Text, ".") Then KeyAscii = 0
    Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, Chr$(vbKeyBack)
    Case Else: KeyAscii = 0
  End Select
End Sub

---

فقط اگه خواستی تعداد اعشاری که نشون میده بیشتر باشه کافیه توی خطی که با سبز مشخص کردم بعد از آخرین کاراکتر # بازهم کاراکتر # اضافه کنی...

به همین سادگی :11:

---

مرسی ولی مشکل من با کلیدهای چپ و راست هست . مثلا وقتی کلید چپو میزنم و میرم وسط عدد یک کاراکتر اضافه می کنم اضافه نمیشه .