منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
هل يمكن معالجة هذا الخطاء sendkeys - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : هل يمكن معالجة هذا الخطاء sendkeys (/showthread.php?tid=31236)

هل يمكن معالجة هذا الخطاء sendkeys - princeofislam - 05-09-19

كود :
Text4.SetFocus

  SendKeys "{Home}+{End}"
عندما اضع هذ الكود للانتقال من مربع نص الى اخر حتى احصل على تضليل مربع النص المنتقل اليه
احصل على خطاء فيجوال بيسك و يقوم dbug بتضليل السطر الاخير من الكود
7 انا استخدم ويندوز 
مع ملاحضة ان الارقام في لوحة المفاتيح بعد ظهور الخطاء تتوقف حتى اعود واضغط على زر نمبر لوك اي قفل المفاتيح

وسوال الاخر لو تكرمتم

كيف اخلي صندوق التكست ياخد فقط تسع ارقام فقط  ليس اكثر وليس اقل يعني بالتحديد 9 ارقام واحصل على رسالة خطاء ادا اكثر او اقل

شاكرا لكم المرور والتعليق والمساعدة

جزاكم الله خيرا يا ربي

RE: هل يمكن معالجة هذا الخطاء sendkeys - Ahmed_Mansoor - 06-09-19

السلام عليكم ورحمة الله وبركاته

أهلا بك أخي الكريم , إذا أردت أن تضلل محتوى مربع نص معين وليكن إسم مربع النص Text1 فسيكون هذا الكود الخاص بتضليل المحتوى :

PHP كود :
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus 

- بالنسبة لتحديد عدد الخانات المسموح بها في مربع النص توجد خاصية من خصائص مربع النص وهي بإسم MaxLength ضع فيها الحد الأقصى لعدد الخانات التي يقبل إدخالها في مربع النص بحيث يتم منع أي خانة زيادة عنها عند الكتابة في مربع النص أما كيف تمنع إذا كان عدد الخانات المدخله أقل من قيمة الحد الأقصى والتي وضعتها في خاصية الـMaxLength فتستطيع عمل ذلك بالكود بواسطة جملة IF الشرطية وأيضا تستطيع الإستغاء عن إستخدام الخاصية MaxLength أيضا بإستخدام الكود بحيث تفحص عدد الخانات المدخله في مربع النص إذا لم يكن عددها يساوي تسع خانات تظهر رسالة للمستخدم , كما يلي :

PHP كود :
If Len(Trim$(Text1.Text)) <> 9 Then
   MsgBox "يجب أن تدخل تسع خانات في مربع النص", vbExclamation, "تنبيه"
   Text1.SelStart = 0
   Text1.SelLength = Len(Text1)
   Text1.SetFocus
   Exit Sub
End If 


RE: هل يمكن معالجة هذا الخطاء sendkeys - princeofislam - 06-09-19

اشكرك من صميم قلبي الغالي استاذنا احمد منصور الله يبارك فيك و بكل من تراهم و تفكر فيهم
فعلا اوجزت ووفيت

تحية لك لم انسى مساعدك ببرنامجي الاول هنا  بارككم الله سيدي
كود :
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 0 Then

Text2.SelStart = 0
Text2.SelLength = Len(Text2) + 150
Text2.SetFocus
End If

End Sub
استاذي الغالي احمد منصور والله لولا الله اولا وانتم ثانيا لم اجد هذا الكود الرائع
انظر عندما قمت بوضع زيادة مئة وخمسين اصبح يضلل خانة الاسم كاملة قمت بالبحث في الانترنت ووجدت هذا الكود - ولولا كود الرائع لما استطعت ان ابحث عن نفس الكود

اشكركم من صميم قلبي وكم انا سعيد

RE: هل يمكن معالجة هذا الخطاء sendkeys - Ahmed_Mansoor - 06-09-19

(06-09-19, 12:18 AM)princeofislam كتب : اشكرك من صميم قلبي الغالي استاذنا احمد منصور الله يبارك فيك و بكل من تراهم و تفكر فيهم
فعلا اوجزت ووفيت

تحية لك لم انسى مساعدك ببرنامجي الاول هنا  بارككم الله سيدي
كود :
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Shift = 0 Then

Text2.SelStart = 0
Text2.SelLength = Len(Text2) + 150
Text2.SetFocus
End If

End Sub
استاذي الغالي احمد منصور والله لولا الله اولا وانتم ثانيا لم اجد هذا الكود الرائع
انظر عندما قمت بوضع زيادة مئة وخمسين اصبح يضلل خانة الاسم كاملة قمت بالبحث في الانترنت ووجدت هذا الكود - ولولا كود الرائع لما استطعت ان ابحث عن نفس الكود

اشكركم من صميم قلبي وكم انا سعيد

أهلا بك أخي الكريم , العفو أخي بارك الله فيك وجزاك كل خير شكرا جزيلا لك , أرجوا من الله لك دوام التوفيق والنجاح والسعاده .