کتابخونه ShFormatText جدا کردن سه رقم سه رقم اعداد در یک خط

[Salar82 901]

 سلام و درود به همه

امروز داشتم رو یه پروژه کار می‌کردم، نیاز داشتم تا ارقام رو سه رقم سه رقم جدا کنم تا مبلغ قابل خوندن باشه؛  هر چی سرچ کردم چیز خوبی گیر نیاوردم. یه کتابخونه MaskedEditText بود که اونم باگ داشت.

تصمیم گرفتم خودم کدش رو بنویسم.😎 بعد از یک ساعت، آماده شد. (اقتصاد مقاومتی)

حیفم اومد کتابخونش رو نذارم براتون.

 

نحوه استفاده:

اول تعریفش می‌کنیم و اینیشیالایز:

Dim Format As ShFormatText
Format.Initialize

 

• اگر برای EditText می‌خواین استفاده کنید، تو رویداد TextChanged، کد زیر رو می‌نویسیم:

Private Sub ET1_TextChanged (Old As String, New As String)
	Format.EditTextFormat(ET1, Old, New)
End Sub

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

 

• اگر برای لیبل قصد استفاده دارین، کافیه موقع لود کردن لیبل بنویسید:

Format.LabelFormat(Label1)

همین

 

• اگر هم می‌خواید خود متن فرمت شده رو بگیرید و بعدا ازش استفاده کنید، با کد زیر خیلی ساده میشه انجامش داد:

Dim Str as String = Format.FormateText("1000") ' return 1,000

 

• اگر هم متن فرمت شده دارین می‌خواید بکنیدش عدد، به شکل زیر قابل انجامه:

Dim Number As Int = Format.Convert2Number("123,456") 'return 123456

 

 

هزینه استفاده هم سه صلوات برای سلامتی همه شیعیان بالاخص آقا صاحب الزمان (عج)

 

دانلود کتابخونه (اختصاصی انجمن AnswerCenter):

Lib_V1.zip

 

رمز فایل : AnswerCenter.ir

 

موفق باشید