راهنمایی برای جدا کردن اعداد؟!

[Heidari66]

سلام
دو سوال دارم

1- میخوام کدی بنویسم که وقتی داخل یه تکست باکس عددی مثلا 123456 وارد کردم
بعد از 123 اینو , بزاره
یعنی اینجوری 123,456

2- کدی که باعث بشه ووقتی داخل یه تکست باکس عددی وارد کردیم ، عدد وارد شده بدون زدن دکمه داخل یه لیبل نمایش داده بشه؟!

ممنون

[modirmasool]

از Microsoft masked edit controll استفاده کنین. توی کامپوننتها هستش.

[M.T.P]

سوال اول:

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

سوال دوم:


Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub

[Heidari66]

مشکل اینکه وقتی عددی وارد میکنم نامنظم مینویسه ، اینجوری:
از 1 تا 9 وارد میکنم اینجوری میشه:

895,671,234

چرا؟!

[modirmasool]

با چه روشی؟

[Heidari66]

فرقی نداره
در اصل روش شما و اون دوستمون یکیه
در هر دو مورد این مشکل رو دارم!!!

[ahmads]

برای سوال اولتون می تونید از تابع Formatnumber استفاده کنید


Text1 = FormatNumber(Text1)

سوال دومتون هم جواب داده شده

[Heidari66]

برای شما هم وقتی عددی از 1 تا 9 وارد میکنیم اینجری میشه: 895,672,341.00
:ناراحت:

[M.T.P]

برای شما هم وقتی عددی از 1 تا 9 وارد میکنیم اینجری میشه: 895,672,341.00
:ناراحت:

TextBoxی که گذاشتی و این مشکل رو داره حذف کن و یه TextBox از نوارابزار به فرمت اضافه کن و بدون مشکل توش تایپ کن ، اگه خواستی اعداد داخلش هر وقت مایل بودی 3 رقم 3 رقم جدا شه اون کدی که در پست 3 گذاشتم رو یه جایی غیر از رویداد Text_Change بنویس چون اگه اونجا بنویسی هرآن که متن داخل TextBox تغییر کنه اون خط کد خونده میشه و عددت 3رقم 3رقم جدا میشه.
اگه باز هم نتونستی پروژه رو ضمیمه کن.
:قلب:

[Heidari66]

هرکار میکنم وقتی اعداد رو وارد میکنم جابجا مینویسه!!!
یعنی مشکل میتونه از خود نرم افزار وی بی باشه؟!:متفکر:

[M.T.P]

هرکار میکنم وقتی اعداد رو وارد میکنم جابجا مینویسه!!!
یعنی مشکل میتونه از خود نرم افزار وی بی باشه؟!:متفکر:

نه. :متفکر:
یعنی اگه شما یه پروژه جدید هم ایجاد کنی و یه TextBox رو فرم بزاری و توش تایپ کنی این مشکل بازم هست یا فقط تو این پروژه ات اینطوریه؟
منظورت از مشکل تکس باکس Microsoft masked edit controll نیست که؟ چون این کنترل اصل موضوعش چیز دیگست.
DataFormat تکست باکس رو تغییر ندادی؟
کار مشکلی نیست ، موضوع رو بررسی من. :متفکر:

[modirmasool]

اینو امتحان کنین برای من که درسته. راستی قبلش کامپوننتش رو لود کنین.

[Heidari66]

پاک منو دیوونه کرده:عصبانی++:
یه پروژه جدید باز میکنم و یه تکست باکس میزارم توش و اون کد صفحه قبل رو وارد میکنم ولی وقتی برنامه رو اجراه میکنم و عدد میدم ، عدد درهم وارد میشه
از masked edit controll هم استفاده میکنم یا اصلا جواب نمیده یا بعضی اوقات جواب میده بازهم درهم هست
ولی اون پروژه ای که دوستمون گذاشت درست کار میکنه:متعجب::گیج:
آخه نه کدنویسی خاصی داره نه چیز خاصی که من اشتباه کنم ، احتمالا وی بی باگ داره :لبخند:
البته اینم بگم که من از ویندوز سون استفاده میکنم ، احتمالا بخاطر این هم هست

بازم ممنون از راهنماییون دوستان...:متفکر:

[M.T.P]

خب فهمیدم ایراد کار کجاست :اشتباه:
یه پروژه جدید ایجاد کن یه تکت باکس رو فرم بزار.
این کد تکس باکس:

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

:لبخندساده:

[Heidari66]

ممنون حالا شد این درسته:تشویق:
حالا یه سوال
چطور میتونم اینو تو قسمت کدنویسی فرم بزارم؟!
یعنی تو قسمت کدنویسی تکست باکس نذارم

ممنون

[modirmasool]

گرفتم شما از اون موقع کدهایی که میگفتیم رو توی Text1_Change() مینوشتین! کدی که آقای M.T.P گذاشتن مشکلتون رو حل میکنه.
من منظورتون رو از فرم نمیفهمم. ببینید اگه منظورتون اینه که خارج از تکست باکس باشه که به راحتی میتونین کدهای پست های قبل رو مثلا در یک دکمه یا تابعی چیزی بذارین وگرنه فکر کنم باید بیشتر توضیح بدین.

[Heidari66]

ممنون
چرا به فکر خودم نرسید
اینه:
((اگه منظورتون اینه که خارج از تکست باکس باشه که به راحتی میتونین کدهای پست های قبل رو مثلا در یک دکمه یا تابعی چیزی بذارین))