سلام و درود به همه
امروز داشتم رو یه پروژه کار میکردم، نیاز داشتم تا ارقام رو سه رقم سه رقم جدا کنم تا مبلغ قابل خوندن باشه؛ هر چی سرچ کردم چیز خوبی گیر نیاوردم. یه کتابخونه 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
موفق باشید