Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
'allow only number accept
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> ControlChars.Cr AndAlso e.KeyChar <> "." Then
Beep()
e.Handled = True
End If
End Sub
أخي الكريم: الأرقام تتغير بحسب قيمة الخاصية RightToLeft، فإن كانت False ظهرت الأرقام عربية وإن كانت True ظهرت الأرقام هندية وأنت كما يظهر واضحا من الصورة المرفقة أنك قمت بتغيير قيمة الخاصية إلى True ولهذا السبب ظهرت الأرقام هندية... حسنا، عرفنا السبب فما هو الحل؟! الحل ببساطة أن تقوم بتغيير قيمة الخاصية للـ TextBox فقط إلى False ... ستلاحظ أن الأرقام ظهرت عربية ولكنها في الجهة اليسرى... بعد ذلك قم بتغيير قيمة الخاصية TextAlign إلى Right ... الآن الأرقام عربية وموجودة في الجهة اليمنى... وهذا هو المطلوب...