GHOST2010 كتب:ايوه ياX ياحبيبى ,, السطر اللى داخل الشرط هو اللى هيزيل عندك اللبس
e.Handled = True
يعنى الغى تأثير الزر المضغوط
اقرا تانى جملة الشرط كلها وانت تفهم بعد توضيح السطر ده :)
اهااااااا
أنا كنت فاكر e.Handled = True تعني تنفيذ تأثير الزر المضغوط! 
GHOST2010 كتب:X ,, لو عايز حاجة تانية اطلع لى بره :mad:
فين، في القلعة ؟ 
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
يا جماعة وجدت طريقة أخرى لكتابة الكود وهي تعمل وتختبف عن الأولى بأنها تسمح بادخال"-" أكثر من مرة
If Char.IsControl(e.KeyChar) = False And Char.IsDigit(e.KeyChar) = False And e.KeyChar <> "-" Then
e.KeyChar = Nothing
End IfZefri Yahya - ArabTeam 2000
لكن المنطقى أن مربع النص بما أنه مخصص للأرقام فلا يقبل الإشارة "-" أكثر من مرة
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
GHOST2010 كتب:لكن المنطقى أن مربع النص بما أنه مخصص للأرقام فلا يقبل الإشارة "-" أكثر من مرة
صحيح ... كما أن الاشارة يجب أن تكون دائما قبل الرقم وليس بعده اطلاقا الشيء الذي يوجد في الك;د الذي أعطيتني ولا في الخاص بي :ph34r:
تم تعديل هذه المشاركة بواسطة OricalcosZy في 16 أغسطس 2010 في 13:56
Zefri Yahya - ArabTeam 2000
GHOST2010 كتب:لكن المنطقى أن مربع النص بما أنه مخصص للأرقام فلا يقبل الإشارة "-" أكثر من مرة
ربما يكون مربع نص خاص بإدخال Serial number
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
Xacker كتب:ربما يكون مربع نص خاص بإدخال Serial number
هذا أيضا احتمال ممكن ولكنه ينفي في هذه الحالة فالتكستبوكس الذي استعملت فيه الكود خاص بادحال الاعداد الموجبة او السالبة فقط :P :)
Zefri Yahya - ArabTeam 2000
اخي الكريم ليش هذا التعقيد اليك الكود التالي بكل سهولة
في الحدث KeyPress
قيد إدخال الحروف فقط
If (Char.IsDigit(e.KeyChar)) Then e.Handled = True
-
------------------------------------------------------------------------------------------------------------------------------
قيد إدخال الأرقام فقط
Select Case Asc(e.KeyChar)
Case Asc("0") To Asc("9"), Asc(ControlChars.Back)
e.Handled = False
Case Else
e.Handled = True
End Select
End Selec
t
حسام القماطي