26-07-22, 12:09 AM
عدل الكود التالي بما يناسب عمل، فهو الشكل النموذجي لوضع الاكواد :
في حال لم يكن المؤشر(مؤشر الكتابة في المربع المرجو البحث من خلاله فيك اعادته اليه عبر الماوس أو باللمس في حال شاشات اللمس كما في مراكز التسوق)
وعندما يقرأ الجهاز البراكود مباشرة يتم ادخاله في مربع النص
ومربع النص يكون فيه أكواد البحث جاهزة للبحث عن رقم الفاتورة - الذي تم ادخاله - في قاعدة البيانات ..
أو رقم المنتج .. بحسب نوع الباركود - باركود منتج أو باركود رقم فاتورة..
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Select() ' هذا الكود لتجعل هذا النص افتراضياً بجرد اظهار النافذة
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
If TextBox1.TextLength < 3 Then Exit Sub ' إذا كان طول النص المدخل أقل من رقم محدد لا يعمل كود البحث
' ثم تكتب هنا كود البحث
' ثم كود ادخال البيانات على مربعات الاظهار عندك أو الجداول
End Subفي حال لم يكن المؤشر(مؤشر الكتابة في المربع المرجو البحث من خلاله فيك اعادته اليه عبر الماوس أو باللمس في حال شاشات اللمس كما في مراكز التسوق)
وعندما يقرأ الجهاز البراكود مباشرة يتم ادخاله في مربع النص
ومربع النص يكون فيه أكواد البحث جاهزة للبحث عن رقم الفاتورة - الذي تم ادخاله - في قاعدة البيانات ..
أو رقم المنتج .. بحسب نوع الباركود - باركود منتج أو باركود رقم فاتورة..
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
