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

نسخة كاملة : كود اظهار اسم الصنف عند الخروج او مفتاح التاب
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي اثنين مربع تكست بوكس وحد للكود حق الصنف والثاني اسم الصنف
اريد عند ادخل رقم الصنف والخروج او ضغط مغتاح التاب من التكيست يظهر اسم الصنف في التكست اسم الصنف
كل عام وانت بخير

select ItemCode , ItemName from tblItems where ItemCode = " & txtItemCode .Text  &"

            
    If cur1.Count > 0 Then
                

   txtItemName .Text = cur1.Current("ItemName ")

                    Exit Sub

                Else

                    ItemName .Text = ""
(01-01-20, 11:53 AM)mmali127 كتب : [ -> ]كل عام وانت بخير

select ItemCode , ItemName from tblItems where ItemCode = " & txtItemCode .Text  &"

            
    If cur1.Count > 0 Then
                

   txtItemName .Text = cur1.Current("ItemName ")

                    Exit Sub

                Else

                    ItemName .Text = ""
هذا الكود الا انا كتبته يعمل بس عند مفتاح الانتر
 Private Sub aa4_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles aa4.KeyDown
        If e.KeyCode = Keys.Enter Then
            SearchDataSet("Select  * from tb2 where id = " & aa4.Text & " ")
            If cur.Count > 0 Then
                aa5.Text = cur.Current("geht")
            Else
                aa5.Text = ""
            End If
        End If
    End Sub
وانا اريده كذلك يعمل مع مفتاح التاب او عند الخروج من التكيست حق الكود
جرب التعامل مع حدث Leave والذي يشتغل عند الخروج من الأداة


كود :
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave

End Sub
(01-01-20, 10:52 PM)محمد كريّم كتب : [ -> ]جرب التعامل مع حدث Leave والذي يشتغل عند الخروج من الأداة


كود :
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave

End Sub

كتبت الكود كذا ولكن يطلع خطاء

 Private Sub aa4_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles aa4.Leave
        If e.KeyCode = Keys.Enter Then
            SearchDataSet("Select  * from tb2 where id = " & aa4.Text & " ")
            If cur.Count > 0 Then
                aa5.Text = cur.Current("geht")
            Else
                aa5.Text = ""
            End If
        End If
    End Sub


----------------------------------------------------------------------------------------------------------------------
هذا الخطاء
Error 1 'KeyCode' is not a member of 'System.EventArgs'. D:\MyBroj\MyBroj\Form1.vb 276 12 MyBroj
هذا الحدث لا يتعامل مع النقرات على مفاتيح الكيبورد
هو فقط يشتغل عند الخروج من الأداة

تقدر تكرر نفس الكود في الحدثين
(02-01-20, 09:48 PM)محمد كريّم كتب : [ -> ]هذا الحدث لا يتعامل مع النقرات على مفاتيح الكيبورد
هو فقط يشتغل عند الخروج من الأداة

تقدر تكرر نفس الكود في الحدثين

اكتبه الكود بنفس الصيغة