منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر

هذا الكود يقوم بوضع قيد على التيكست بوكس بحيث يسمح بأدخال الحروف فقط ولكن هناك مشكله في وضع مساحه بين النص اي ان مفتاح السبيس او المسافه لا يعمل

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

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 

شكرا لك اخي الكريم ونسأل الله ان تكون في ميزان حسناتك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

معتز الجازوي

amgad525

معتز الجازوي