[Taha Okla]

عدل الكود التالي بما يناسب عمل، فهو الشكل النموذجي لوضع الاكواد  :

كود :

   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

في حال لم يكن المؤشر(مؤشر الكتابة في المربع المرجو البحث من خلاله فيك اعادته اليه عبر الماوس أو باللمس في حال شاشات اللمس كما في مراكز التسوق)
وعندما يقرأ الجهاز البراكود مباشرة يتم ادخاله في مربع النص
ومربع النص يكون فيه أكواد البحث جاهزة للبحث عن رقم الفاتورة - الذي تم ادخاله - في قاعدة البيانات ..
أو رقم المنتج .. بحسب نوع الباركود - باركود منتج أو باركود رقم فاتورة..