20-12-18, 10:19 PM
السلام عليكم.اخواني بهذا الفورم salses كيف يمكن حذف الباتون buttonsa و لما ادخل الباركود بالتاكست الاخضر و اضغط enter ينضاف الصنف للداتاجريد .ما اريد اضغط عل الباتون.بارك الله فيكم
20-12-18, 10:19 PM
20-12-18, 11:33 PM
وعليكم اسلام ورحمة الله وبركاته
ستحتاج الى استخدام حدث 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بدلاً من سطر الوصف / الشرح
م بادراج الكود المطلوب تنفيذه اذا كان ادراج او استعلام
كما لو تقوم بادراج الكود دحل الزر
تحياتى لك
وتمنياتى لك التوفيق
21-12-18, 12:05 AM
اخ algokr بارك الله فيك انا اخذت الكود يلي كان باباتون buttonsa و حطيتو ب keypress ما ضبطت.الان عملت زي ما قلت استعملت key uy لكن المشكلة حتى لو ضغطت و تاكست البركود فاضية ما فيها اي رقم ينضاف الفارغ الى الداتاجريد.الرجاء اخي النظر بالملف الله يسهل امورك
21-12-18, 12:21 AM
عند مراجعة المرفق
كا الاستخدم للكود بطريقة صحيحة الا بنقطة بسيطة فقط وهو التالى
كود :
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وكل الامر هو تنشيط كود التحقق ليعمل قبل تنفيذ الاضافة
كل الامر يتم ازالة علامة '
وبكده سيكون الامور معك بدون اى مشكلة
تحياتى لك
وتمنياتى لك التوفيق
21-12-18, 01:27 AM
تسلم اخ elgokr و ربنا يبارك فيك الان يشتغل عشرة على عشرة جزاك خير كل خير
21-12-18, 02:45 AM
تقبل الله منك الدعاء ولنا جميعاً امر الله
تحياتى لك
وتمنياتى لك التوفيق