+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استعمال key press بدل الباتون (/showthread.php?tid=27970)
استعمال key press بدل الباتون - محمد خيري - 20-12-18
السلام عليكم.اخواني بهذا الفورم salses كيف يمكن حذف الباتون buttonsa و لما ادخل الباركود بالتاكست الاخضر و اضغط enter ينضاف الصنف للداتاجريد .ما اريد اضغط عل الباتون.بارك الله فيكم
RE: استعمال key press بدل الباتون - elgokr - 20-12-18
وعليكم اسلام ورحمة الله وبركاته
ستحتاج الى استخدام حدث KeyUp بدلاً من KeyPress
ليصبح الكود كاملاً بهذا الشكلكود :
Private Sub TxTBarCode_KeyUp(sender As Object, e As KeyEventArgs) Handles TxTBarCode.KeyUp
If e.KeyCode = Keys.Enter Then
' نذ الكود المطلوب استخدامه
End If
End Subبدلاً من سطر الوصف / الشرح
م بادراج الكود المطلوب تنفيذه اذا كان ادراج او استعلام
كما لو تقوم بادراج الكود دحل الزر
تحياتى لك
وتمنياتى لك التوفيق
RE: استعمال key press بدل الباتون - محمد خيري - 21-12-18
اخ algokr بارك الله فيك انا اخذت الكود يلي كان باباتون buttonsa و حطيتو ب keypress ما ضبطت.الان عملت زي ما قلت استعملت key uy لكن المشكلة حتى لو ضغطت و تاكست البركود فاضية ما فيها اي رقم ينضاف الفارغ الى الداتاجريد.الرجاء اخي النظر بالملف الله يسهل امورك
RE: استعمال key press بدل الباتون - elgokr - 21-12-18
عند مراجعة المرفق
كا الاستخدم للكود بطريقة صحيحة الا بنقطة بسيطة فقط وهو التالى
كود :
Private Sub TxTBarCode_KeyUp(sender As Object, e As KeyEventArgs) Handles TxTBarCode.KeyUp
If e.KeyCode = Keys.Enter Then
If CheckBox1.Checked = True Or TxTBarCode.Text = "" Then
Exit Sub
End If
Timer1.Enabled = True
SearchMaterials()
End If
End Subوكل الامر هو تنشيط كود التحقق ليعمل قبل تنفيذ الاضافة
كل الامر يتم ازالة علامة '
وبكده سيكون الامور معك بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
RE: استعمال key press بدل الباتون - محمد خيري - 21-12-18
تسلم اخ elgokr و ربنا يبارك فيك الان يشتغل عشرة على عشرة جزاك خير كل خير
RE: استعمال key press بدل الباتون - elgokr - 21-12-18
تقبل الله منك الدعاء ولنا جميعاً امر الله
تحياتى لك
وتمنياتى لك التوفيق