فرمت تکست باکس [بایگانی]

فاطمه وطن دوست

یک شنبه 26 خرداد 1387, 21:37 عصر

سلام

من فرمت تکست باکسمو ، تا دورقم اعشار گذاشتم چرا اعمال نمیشه ؟

reza_optical

یک شنبه 26 خرداد 1387, 21:59 عصر

سلام
چرا از maskEdit استفاده نمی کنید
این به درد تون میخوره
Text1.Text = Format(Text1.Text, "###.##")
Text1.SelStart = Len(Text1.Text)

فاطمه وطن دوست

یک شنبه 26 خرداد 1387, 22:11 عصر

سلام

دلیلش چیه ، تو سیستم شما هم همینطوریه ؟

UpgradeVB6Code

یک شنبه 26 خرداد 1387, 22:18 عصر

سلام

دلیلش چیه ، تو سیستم شما هم همینطوریه ؟
کد مشکلی نداره
به این شکل بنویس

Private Sub Command1_Click()
Text1.Text = Format(Text1.Text, "#.##")
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
End Sub

فاطمه وطن دوست

یک شنبه 26 خرداد 1387, 22:45 عصر

Returns/sets the starting point of text selected.

این تو ضیح مربوط به selstart حالا چرا این خطو نوشتین ؟

Text1.SelStart = Len(Text1.Text)

مهران رسا

یک شنبه 26 خرداد 1387, 23:06 عصر

Returns/sets the starting point of text selected.

این تو ضیح مربوط به selstart حالا چرا این خطو نوشتین ؟

Text1.SelStart = Len(Text1.Text)

برای اینکه نشانگر در آخره آخرین کلمه تایپ در Textbox نمایش داده بشه .
متد SelStart نشانگر موجود در Textbox رو به مکانی که مد نظرمون هست میبره .

تابع Len هم طول یک رشته رو به دست میاره ...

ali_habibi1384

سه شنبه 28 خرداد 1387, 05:37 صبح

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

reza_optical

سه شنبه 28 خرداد 1387, 13:57 عصر

سلام
خانم وطن دوست سعی کنید واسه اینجور داده ها که میخواین از کابر بگیرید از MaskEdit استفاده کنید