PDA

View Full Version : مشکل اساسی در texbox


hesamsalehnamadi
یک شنبه 23 دی 1386, 13:28 عصر
سلام دوستان . آقا من تو برنامم یه تکست باکس دارم که محتواش باید عدد باشه منتهی عدد ما به ریال هست.. حالا به فرض مثال میخوام 100000 رو وارد کنم میخوام وقتی وارد میکنم 3 تا 3 تا از آخر جدا کنه یعنی به شکل 1.000.000 در بیاد ..؟
من باید چی کار کنم؟؟؟؟؟
Nima_NF
یک شنبه 23 دی 1386, 14:02 عصر
شما باید یک تابع ساده بنویسید، به این شکل : هر مرتبه که فوکوس روی textbox هست و کاربر کلیدی را وارد می کند (با استفاده از پیام update شما editBox که همواره ارسال می شود) رشته ورودی و یا همان عدد را دریافت کند .
سپس رشته را به تابع ارسال می کنید و برای طول رشته بزرگتر یا مساوی 3 ، شروع به جدا کردن آن می کنید و آن را به همراه کاما های مورد نیاز در رشته دیگری کپی می کنید و آن را بر میگردانید تا در TextBox نمایش داده شود.

ضمنا قبلا این برنامه در همین بخش پیاده سازی شده است ، پس ابتدا جستجو کنید.
alivafadarpour
دوشنبه 24 دی 1386, 13:33 عصر
Private Sub Text1_Change()
If Text1.Text <> "" Then
(" Text1.Text = Format(Text1.Text, "##,0
(Text1.SelStart = Len(Text1.Text
End If
End Sub