• 0
mkyh86

جعل صندوق القرأة inputbox يستقبل ارقام فقط

سؤال

السلام عليكم

 

ممكن طريقة تجعل الصندوق القرأة يستقبل ارقام فقط

 

k=inputbox("ادخل الرقم")

 

مع التقدير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

السلام عليكم 

 

تفضل يالغالي

    Private Sub TextNO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextNO.KeyPress        'كود ادخل ارقام فقط         If Char.IsControl(e.KeyChar) = False Then            If Char.IsDigit(e.KeyChar) Then            Else                e.Handled = True                MsgBox(" يقبل قيمة رقمية فقط ", MsgBoxStyle.Information, "تنبيه")            End If        End If    End Sub
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 

السلام عليكم 

 

تفضل يالغالي

    Private Sub TextNO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextNO.KeyPress        'كود ادخل ارقام فقط         If Char.IsControl(e.KeyChar) = False Then            If Char.IsDigit(e.KeyChar) Then            Else                e.Handled = True                MsgBox(" يقبل قيمة رقمية فقط ", MsgBoxStyle.Information, "تنبيه")            End If        End If    End Sub

مشكور حبيبي 

بس انا قصدي من استخدم الدالة التي تظهر لي صندوق القراءة inputbox

مـــــــــــــــــــــــــــــع الشكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .