+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر (/showthread.php?tid=18178)
مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر - معتز الجازوي - 28-11-16
هذا الكود يقوم بوضع قيد على التيكست بوكس بحيث يسمح بأدخال الحروف فقط ولكن هناك مشكله في وضع مساحه بين النص اي ان مفتاح السبيس او المسافه لا يعمل
If Char.IsLetter(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then e.Handled = True
وهذا الكود ايظا يقوم بوضع قيد علي التيكست بوكس بحيث يسمح بأدخال الارقام فقط ويسمح بالفاصله العشريه ولكن اريد ان اعدل فيه بحيث يسمح برقمين فقط بعد الفاصله العشريه
If Char.IsNumber(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then If e.KeyChar = CChar(".") Then e.Handled = False Else e.Handled = True
RE: مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر - amgad525 - 28-11-16
PHP كود :
Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not (Char.IsControl(e.KeyChar) Or Char.IsLetter(e.KeyChar) Or Char.IsWhiteSpace(e.KeyChar)) Then e.Handled = True
End Sub
PHP كود :
Private Sub TextBox2_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim dec As Integer = 2
If Not (Char.IsControl(e.KeyChar) Or Char.IsDigit(e.KeyChar) Or e.KeyChar = ".") Then e.Handled = True
If (e.KeyChar = "." And sender.Text.Contains(".")) Then e.Handled = True
If sender.Text.Contains(".") And Char.IsDigit(e.KeyChar) Then
If sender.Text.ToString.Split(".")(1).Count = dec And sender.SelectionStart > sender.Text.IndexOf(".") Then e.Handled = True
End If
End Sub
RE: مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر - معتز الجازوي - 28-11-16
شكرا لك اخي الكريم ونسأل الله ان تكون في ميزان حسناتك