منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] التيكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [سؤال] التيكست بوكس (/showthread.php?tid=47496)

التيكست بوكس - Abdellah - 17-11-23

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

إخواني الاعزاء هل من الممكن الانتقال في نفس التيكس البوكس مرتين على سبيل المثال يكون مؤشر الكتابة في text1 فأكتب ماأريد
فأضغط على زر أنتر فينتقل مؤشر الكتابة  إلى  text2 في موضع معين فأكتب ماأريد  هنا أريد إنتقال  مؤشر الكتابة في موضع آخر في نفس text2  فأكتب ماأريد مرة أخرى 
ثم بعد ذالك أضغط على زر أنتر المرة الثانية فينتقل  مؤشر الكتابة إلى التيكست بوكس الموالي
جزاكم الله كل خير Smile

RE: التيكست بوكس - sniper2030 - 18-11-23

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
' إذا تم الضغط على زر Enter
If e.KeyChar = ChrW(Keys.Enter) Then
' نحرك مؤشر الكتابة إلى نهاية النص في TextBox1
TextBox1.SelectionStart = TextBox1.Text.Length
' نقوم بمنع الحرف من الظهور في TextBox1
e.Handled = True
End If
End Sub

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
' إذا تم الضغط على زر Enter
If e.KeyChar = ChrW(Keys.Enter) Then
' نحرك مؤشر الكتابة إلى نهاية النص في TextBox2
TextBox2.SelectionStart = TextBox2.Text.Length
' نقوم بمنع الحرف من الظهور في TextBox2
e.Handled = True
End If
End Sub



جرب هذا الكود

RE: التيكست بوكس - Abdellah - 18-11-23

(18-11-23, 01:46 AM)sniper2030 كتب : Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   ' إذا تم الضغط على زر Enter
   If e.KeyChar = ChrW(Keys.Enter) Then
       ' نحرك مؤشر الكتابة إلى نهاية النص في TextBox1
       TextBox1.SelectionStart = TextBox1.Text.Length
       ' نقوم بمنع الحرف من الظهور في TextBox1
       e.Handled = True
   End If
End Sub

Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
   ' إذا تم الضغط على زر Enter
   If e.KeyChar = ChrW(Keys.Enter) Then
       ' نحرك مؤشر الكتابة إلى نهاية النص في TextBox2
       TextBox2.SelectionStart = TextBox2.Text.Length
 




     ' نقوم بمنع الحرف من الظهور في TextBox2
       e.Handled = True
   End If
End Sub



جرب هذا الكود

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