08-01-16, 09:15 PM
أخى العزيز
سلام الله عليكم ورحمته وبركاته.
سأفترض أن لديك اثنين تكست بوكس
سأقوم بمقارنه المدخلات ولا اسمح للمستخدم اطلاقا باستخدم الحروف الكتابيه فقط الارقام فقط
انظر فى المثال التالى
أرجو من الله سبحانه وتعالى ان يكون هذا ما تريدة
وان لم يكن
فمن فضلك ارفق مثال للتعديل عليه.
سلام الله عليكم ورحمته وبركاته.
سأفترض أن لديك اثنين تكست بوكس
سأقوم بمقارنه المدخلات ولا اسمح للمستخدم اطلاقا باستخدم الحروف الكتابيه فقط الارقام فقط
انظر فى المثال التالى
كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
Dim S As String
S = "1234567890." & vbBack
If InStr(S, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
On Error Resume Next
CausesValidation = True
S = "1234567890." & vbBack
If InStr(S, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
If Text1.Text < 0 Then
MsgBox "لقد ادخلت رقم اصغر من 0، يرجى تصحيح الرقم "
Text1.Text = ""
End If
If Text2.Text > 60 Then
MsgBox "لقد ادخلت رقم أكبر من النهايه العظمى (60)، يرجى تصحيح الرقم "
Text2.Text = ""
End If
End Subأرجو من الله سبحانه وتعالى ان يكون هذا ما تريدة
وان لم يكن
فمن فضلك ارفق مثال للتعديل عليه.
لا اله الا انت سبحانك انى كنت من الظالمين.
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم
اللهم انك عفو كريم حليم تحب العفو فاعفوا عنا.
اللّهُمَّ اغْفِرْ لِي وَلِوالِدَيَّ وَارْحَمْهُما كَما رَبَّيانِي صَغِيراً، اللَّهُمَّ اجْزِهِما بِالاِحْسانِ إِحْسانا وَبِالسَّيِّئاتِ غُفْرانا، اللَّهُمَّ اغْفِرْ لِلْمُؤْمِنينَ وَالمُؤْمِناتِ الاَحْياءِ مِنْهُمْ وَالاَمْواتِ.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر زنه عرشك ومداد كلماتك ورضاء نفسك وكما ينبغى لجلال شأنك وعظيم سلطانك وعدد ما كان وعدد ما سيكون وعدد الحركات و السكون وعدد ما نعلم وعدد مالانعلم وعدد كل شيئ احصيته بعلمك يا كريم