[atefkhalf2004]

هذا ما فكرت فيه  لكن كله عيب
ارغب  في عند اضافة اي  مربغ نص  يتم عمل الدالة
شكرا

Public Function onlynumeric(ByVal e As String)
        If Not IsNumeric(e) Then
            e = ""
            MsgBox("Please enter numbers only.", vbInformation)

        End If
    End Function

[LoveVb]

تفضل

كود :

       Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.Handled = Char.IsLetter(e.KeyChar)
    End Sub

[atefkhalf2004]

هذا كود لمربغ نص محدد
انا ارغب في عمل دالة تصلح لاي مربع نص

[adel2012]

السلام عليكم ورحمة الله وبركاته
الكود

كود :

Public Function PressOnlyNumeric(ByVal intKeyValue As System.Windows.Forms.KeyPressEventArgs) ' Integer
       Dim chKiy As Char
       chKiy = intKeyValue.KeyChar
       If Not (Char.IsDigit(chKiy) Or chKiy = "." Or Char.IsControl(chKiy)) Then
           MsgBox("غير مسموح بإدخال الحرف .. فضلاً إدخل أرقام فقط", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Critical, "إدخال خاطئ")
           intKeyValue.Handled = True ' إلغاء الحرف المضغوط
       End If

  End Function

ولتنفيذ هضا الإجراء والإستفادة منه نكتب الكود التالي في حدث KeyPress لأي textbox ..


PressOnlyNumeric(e)   ' إدخال أرقام فقط




اقراء هذه الموضوع في هذا الرباط ستجد ما يفيدك في موضوعك
http://arabteam2000-forum.com/index.php?...%85%D8%A9/

[أبو عمر]

جرب هذا الكود لكن اي تكست على الفورم لا يقبل الا ارقاما فقط
وفي حال اردت ان تكتب في بعض مربعات النص عليك استصناءها

PHP كود :

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox And Not IsNumeric(ctrl.Text) Then
                ctrl.BackColor = Color.LightPink
                ctrl.Text = ""
                Exit For
            End If
        Next ctrl
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
    End Sub 


بالتوفيق

[atefkhalf2004]

thanks
شكرا لكم

[أبو عمر]

خليها Default = true
Private OnlyNumbers As Boolean = True