تکست باکس برای نمایش واحد پول
| Private Sub Text1_LostFocus() If IsNumeric(Text1.Text) Then Text1.Text = Format(Text1.Text, "#,##0.00") Else MsgBox "Please enter a Numeric Value", vbInformation, "Unexcepted Value" Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub |
منبع:www.cesblog.ir
+ نوشته شده توسط CES در سه شنبه بیست و چهارم خرداد ۱۳۹۰ و ساعت
23:36 |