منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود انتقال مؤشر الماوس من تكست الى تكست اخر

السلام عليكم ورحمه الله
اصمم مشروع كاشير اريد كود انتقال مؤشر الماوس من تكست الى تكست اخر بعد قراءة جهاز الباركود للباركود فى تكست الباركود
انى استعمل هذا الكود فى حدث keydowen ولكن يقرأ بعض من ارقام الباركود ولا يكمل الانتقال

كود :

'        Dim cmd As New OleDbCommand

    '        With cmd

    '            .Connection = con

    '            If con.State = 1 Then con.Close()

    '            con.Open()

    '            .CommandType = CommandType.Text

    '            .Parameters.AddWithValue("@pro_code", OleDbType.Integer).Value = pro_code.Text

    '            .CommandText = "select pro_code,pro_name,pro_sheraa,pro_qty,pro_b from products where pro_code= @pro_code"

    '            .Parameters.AddWithValue("@pro_code", OleDbType.VarChar).Value = pro_code.Text

    '            Dim dr As OleDbDataReader = cmd.ExecuteReader

    '            'If con.State = 1 Then con.Close()

    '            'con.Open)

    '            'While dr.Read

    '            dr.Read()

    '            pro_name.Text = dr.Item(1)

    '            pro_price.Text = dr.Item(4)

    '            BUY_.Text = dr.Item(2)

    '            maKH_NAME.Text = dr.Item(3)

    '            dr.Close()

    '            'End While

    '        End With

    '        'pro_code.Text = ""

    '    End If

    '    'con.Close()

    '    'pro_code.Text = ""

    '    'End If

    '    con.Close()

    '    pro_qty.Focus()

    'End Sub

ارجو من حضراتكم الاجابة بارك الله فيكم

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

خالد كامل1

خالد كامل1