+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود اظهار اسم الصنف عند الخروج او مفتاح التاب (/showthread.php?tid=32761)
كود اظهار اسم الصنف عند الخروج او مفتاح التاب - علي كعبي - 31-12-19
عندي اثنين مربع تكست بوكس وحد للكود حق الصنف والثاني اسم الصنف
اريد عند ادخل رقم الصنف والخروج او ضغط مغتاح التاب من التكيست يظهر اسم الصنف في التكست اسم الصنف
RE: كود اظهار اسم الصنف عند الخروج او مفتاح التاب - mmali127 - 01-01-20
كل عام وانت بخير
select ItemCode , ItemName from tblItems where ItemCode = " & txtItemCode .Text &"
If cur1.Count > 0 Then
txtItemName .Text = cur1.Current("ItemName ")
Exit Sub
Else
ItemName .Text = ""
RE: كود اظهار اسم الصنف عند الخروج او مفتاح التاب - علي كعبي - 01-01-20
(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
وانا اريده كذلك يعمل مع مفتاح التاب او عند الخروج من التكيست حق الكود
RE: كود اظهار اسم الصنف عند الخروج او مفتاح التاب - محمد كريّم - 01-01-20
جرب التعامل مع حدث Leave والذي يشتغل عند الخروج من الأداة
كود :
Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
End SubRE: كود اظهار اسم الصنف عند الخروج او مفتاح التاب - علي كعبي - 02-01-20
(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
RE: كود اظهار اسم الصنف عند الخروج او مفتاح التاب - محمد كريّم - 02-01-20
هذا الحدث لا يتعامل مع النقرات على مفاتيح الكيبورد
هو فقط يشتغل عند الخروج من الأداة
تقدر تكرر نفس الكود في الحدثين
RE: كود اظهار اسم الصنف عند الخروج او مفتاح التاب - علي كعبي - 02-01-20
(02-01-20, 09:48 PM)محمد كريّم كتب : هذا الحدث لا يتعامل مع النقرات على مفاتيح الكيبورد
هو فقط يشتغل عند الخروج من الأداة
تقدر تكرر نفس الكود في الحدثين
اكتبه الكود بنفس الصيغة