المشاركات : 1,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
هذا ما فكرت فيه لكن كله عيب
ارغب في عند اضافة اي مربغ نص يتم عمل الدالة
شكرا
Public Function onlynumeric(ByVal e As String)
If Not IsNumeric(e) Then
e = ""
MsgBox("Please enter numbers only.", vbInformation)
End If
End Function
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
تفضل
كود :
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
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 1,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
هذا كود لمربغ نص محدد
انا ارغب في عمل دالة تصلح لاي مربع نص
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
خليها Default = true
Private OnlyNumbers As Boolean = True
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات