+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] مشكله في ازرار التالي والسابق (/showthread.php?tid=10378)
مشكله في ازرار التالي والسابق - hadeel - 14-10-14
سلام عليكم
تحيه طيبه
عندي مشكله في ازرار التالي والسابق لمه اضغط عليه عده مرات تظهرلي هاي المشكله اي صورت الخطا ورفقته ان امكن تساعدوني واكون ممنونه وشكرا لكم
علما ان البرنامج فيجوال بيسك 6
اداة الربط مكتبة الادو
RE: مشكله في ازرار التالي والسابق - السيد الغالي - 15-10-14
ضع الكود التالي في البداية وهو كود لتجاوز الاخطاء
On Error Resume Next
RE: مشكله في ازرار التالي والسابق - hadeel - 15-10-14
(15-10-14, 10:17 AM)السيد الغالي كتب : ضع الكود التالي في البداية وهو كود لتجاوز الاخطاء
On Error Resume Next
شكرا لك اخي انحلت مشكله التالي والسابق لكن ظهرت مشكله اخرى في زر الحذف كما في الصوره
RE: مشكله في ازرار التالي والسابق - السيد الغالي - 15-10-14
السلام عليكم
ضعي الكود نفسه قبل كود الحذف
On Error Resume Next
واذا لم تحل المشكلة ارفقي مشروعك وساهتم بالموضوع
تحياتي لك
RE: مشكله في ازرار التالي والسابق - hadeel - 15-10-14
(15-10-14, 09:22 PM)السيد الغالي كتب : السلام عليكم
ضعي الكود نفسه قبل كود الحذف
On Error Resume Next
واذا لم تحل المشكلة ارفقي مشروعك وساهتم بالموضوع
تحياتي لك
وعليكم السلام ورحمة الله
شكرا لك اخي انا وضعت الكود في زر الحذف واشتغل لكن ايظا ظهرت لي مشاكل اخرى في زر التعديل علما اني وضعت نفس الكود في زر التعديل هوه يشتغل اول مره يعني من اريد اعدل على سجل معين اول مره عادي يشتغل لكن لمه اريد اعدل على نفس السجل مره ثانيه تظهرلي مشكله (المشكله انا رفقته بصوره)
ثانيا عندي مشكله انو مثلا لمه اضغظ عده مرات على زر السابق والتالي يختفي المؤشر وبذالك عندما اريد احذف سجل لا يحذف اي سجل لانه لا يؤشر على سجل معين
ونفس المشكله في زر التعديل..
انا رفقت المشروع (علما اني اربط بالاكواد بمكتبة الادو)
شكرا لكم اخي اتمنى انو ما ازعجزتكم بكثره اسئلتي والله يقدركم على مساعدة الناس
في الاعلى المشروع وهنا صورة مشكله التعديل
RE: مشكله في ازرار التالي والسابق - السيد الغالي - 16-10-14
السلام عليكم
تم التعديل على مشروعك حيث تم اضافة وتعديل وحذف بعض الاكواد راجعي جميع الاكود حتى تتضح لديك الفكرة
اتمنى ان يكون هذا ما هو مطلوب
تحياتي لك
RE: مشكله في ازرار التالي والسابق - mahers76 - 18-10-14
يمكن تعديل الكود التالبي بحيث يكون اسرع
الكود القديم:
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12.SetFocus
End If
strFind = "ZXCVBNMASDFGHJKLQWERTYUIOP[]=ÏÌÍÎåÚÛÝÞËÕÖÔÓíÈáÇÊäãßØÙÒæÉìáÇÑÄÁÆÂáÂÅáÃáÅ~úóðõñöòøÐzxcvbnmasdfghjklqwertyuiop'"
If (InStr(strFind, Chr(KeyAscii)) <> 0) Then KeyAscii = 0
End Sub
الكود الاسرع:
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12.SetFocus
End If
strfind = "0123456789."
If (InStr(strfind, Chr(KeyAscii)) = 0) Then KeyAscii = 0
End Sub