PDA

View Full Version : درخواست. چطور اعداد داخل Text رو سه به سه ممیز بزنه ؟


tumrus
شنبه 28 شهریور 1394, 13:05 عصر
با سلام
دوستان من قصد دارم مبلغی رو داخل Text بنویسم و خودکار به صورت سه رقم به سه رقم ممیز بزنه تا تو محاسبه من مشکلی پیش نیاد
مثل 300/000 تومان منظور از ممیز این هست
با تشکر
alirezabahrami
شنبه 28 شهریور 1394, 16:15 عصر
سلام
در ایونت change تکست باکس کد زیر را وارد کن !



Text1 = Format(Text1, "#,###")
Text1.SelStart = Len(Text1.Text)


و در رویداد LostFocus تکست باکس میتوانید کد زیر را وارد کنید :


Text1 = Replace(Text1, ",", "/")

یا علی
tumrus
شنبه 28 شهریور 1394, 20:07 عصر
با تشکر
من وقتی 1000 رو مینویسم اینطوری درج میکنه 1,000 درست اما وقتی میریم رو Text دیگر این اعداد رو 1 میکنه مشکل از کجاست
pbm_soy
شنبه 28 شهریور 1394, 21:04 عصر
برای اینکار بهتر است از maskeditbox استفاده کنید که کلا کارش دریافت و نمایش مقادیر بیصورت قالب خاص میباشد
این کنترل را از پنجره کامپوننت باید به جعبه ابزار vb6 اضافه کنید