التنقل بين TEXT

بكل بساطة عزيزي ضع الكود التالي للتكست رقم واحد

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
Text2.SetFocus
End If
End Sub

واستخدم vbkeyup للتنقل بواسطة الزر الاتجاه الاعلى

مشكور

الأخ الفاضل ...

SendKeys.zip

شكراً للأخ mostafazidani على مثاله الجميل

واود أن اضيف إمكانية أستخدام الأمر SendKeys لو أكثر من 2 أداة كما فى الكود التالى:

Private Sub Form_Load()
	Me.KeyPreview = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
	Select Case KeyCode
		Case vbKeyUp
			Call SendKeys("+{TAB}")
		Case vbKeyDown
			Call SendKeys("{TAB}")
	End Select
End Sub

شكراً

مرحباً أخواني

أشكركم بداية على طرح هالموضوع ...

ولدي سؤال يدور حول نفس الموضوع ، فبدل أن أقوم بتكرار السؤال .. فضلت أن أطرحه هنا

عسى أن أجد حلاً له عندكم

السؤال قريب من سؤال الأخ {memoon}

حيث لدي Text Box يسمح فقط بكتابة الأرقام فقط، وعند الضغط على أي زر غير الأرقام يعطي رسالة تنبيه

بفعل الكود المرفق

Private Sub Text1_KeyPress(KeyAscii As Integer)
'منع المستخدم من إدخال الأحرف
		If KeyAscii = 8 Then
	ElseIf KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
	KeyAscii = 0
	MsgBox "عفواً .. الرجاء إدخال الأرقام، الأحرف غير مقبولة", vbMsgBoxRight + vbOKOnly + vbCritical, " !!تنبيه"
		End If

End Sub

وسؤالي هو ..

لو أني وضعت الأرقام وأردت الإنتقال من هذا التكست لتكست آخر عبر الأسهم أو الـTab

كيف يمكنني استثناء هذه الأزرار؟!!

بحيث أنه يقبلهم دون بقية أزرار الأحرف، ويا ليت لو يستثني الزر Enter بعد

وخالص الشكر لكم

الأخ الفاضل ...

جرب الكود التالى:

Private Sub Text1_KeyPress(KeyAscii As Integer)
	If (KeyAscii < Asc(0) Or KeyAscii > Asc(9)) _
	And (KeyAscii <> Asc(vbTab) And KeyAscii <> Asc(vbCr)) Then
		KeyAscii = 0
		MsgBox "عفواً .. الرجاء إدخال الأرقام، الأحرف غير مقبولة", vbMsgBoxRight + vbOKOnly + vbCritical, " !!تنبيه"
	End If
End Sub

كذلك راجع الموضوع: صوت مزعج عند الضغط على زر Enter في مربع الـ TextBox!

شكراً

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
	Case Is < 32			   ' Control keys are OK.
	Case 48 To 57			  ' This is a digit.
	Case Else				  ' Reject any other key.
		KeyAscii = 0
End Select
End Sub

كل الشكر لكما أخواني الأحبة { أسامة } و { msayed2004 }

لقد افدتماني كثيراً، افادكما الله ونفع بكم أمة الإسلام ، وزادكم بعدد خلقه خيراً وعلماً

لقد طبقت الكودين، واترتأيت أن هذا الكود مناسب، لأنه يفعل زر الـBackspace أيضاً

مع إضافة رسالة التنبيه، بحيث يعرف المستخدم ماذا يضغط بالضبط !!

Private Sub Text1_KeyPress(KeyAscii As Integer)

بس كده كل مره المستخدم هيدخل حاجة غير مسموح بيها هتطلع رسالة , أعتقد أن ده هيزعج المستخدم شوية خصوصا لو حديث العهد بالكمبيوتر :rolleyes:

هو صحيح مزعج .. بس أحياناً يتطلب أن تضع كوداً مزعجاً

خاصة لو كان الـTextBox يتطلب عمليات حسابية

فماذا سيكون رده لو حشر بين الأرقام كم حرف ، عندها سيظن بأن المشكلة في البرنامج

وليس في مدخلاته :blink:

لهذا فضلت أن أضع هذا الكود فقط في الأماكن الحساسة