Printable View
با سلام
در windows application با .net چه طوری می شه textbox ی داشت که در آن وقتی عدد وارد می کنیم به صورت سه رقم سه رقم از سمت راست جدا کنه مثلا عدد 12548 را به صورت 12.548 نشان دهد .
با MaskedTextBox نمی خوام انکار و کنم چون اولا باید حداکثر طولش مشخص باشه بعدشم از سمت چپ این کارو می کنه
تویه vb6 اینجوری میتونی format(1113234567890,"##,0") ولی تویه .net نمیدونم
شاید بشه
موفق باشید
من این کار رو انجام دادم
درست کار می کنه ولی یه مشکلی هست مثلا عدد 123456 را به صورت 561و234 می نویسه
کدی که من نوشتم اینه
TextBox3.Text = Format(Int(TextBox3.Text), "##,0")
به این تاپیک هم یه سری بزن
https://barnamenevis.org/showth...AF%D8%A7%D8%AF
می تونی از این تابع استفاده کنی
(###,###,###)$format
باید کرسر رو بذاری سمت راست!نقل قول:
من این کار رو انجام دادم
درست کار می کنه ولی یه مشکلی هست مثلا عدد 123456 را به صورت 561و234 می نویسه
کدی که من نوشتم اینه
TextBox3.Text = Format(Int(TextBox3.Text), "##,0")
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "##,###")
Text1.SelStart = Len(Text1.Text)
End Sub
سلام ... این برنامه رو خودم نوشتم ... برنامه ای بدون استفاده از تابع Format واسه جداکردن اعداد ...
توجه : این برنامه بعضی از اعداد رو بعد از جدا کردن به صورت برعکس بشون می ده که با ساتفاده از تابع StrReverse قابل رفعه ( هر چند خودمم تو این برنامه ازش استفاده کردم )
با تشکر از همگی دوستان
با استفاده از این کد
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "##,###")
Text1.SelStart = Len(Text1.Text)
End Sub
مرسی اقا سیاوش
کد دقیقش و گذاشتم برای اونایی که مشکل منو داشتند توی .net
Private Sub deposit_TextChanged()
deposit.Text = Format(Int(deposit.Text), "##,0")
deposit.SelectionStart = Len(deposit.Text)
End Try
End Sub
در آخر این دستور اضافه شود.نقل قول:
نوشته شده توسط مبین رنجبر
If Val(St) > 6 Then
Text1.Text = St
Else
Text1.Text = StrReverse(St)
End If
:چشمک: