تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى التنقل بين text بالضغط بمفتاح inter
#1
السلام عليكم ورحمة الله وبركاته

ارجو المساعدة بالتنقل بين التكست بمفتاح انتر

حيث ان الكود ادناه فلح فى الفورم الاول ولم يعمل فى الفورم 2 او 3
PHP كود :
Private Sub Form_KeyPress(KeyAscii As Integer)
    
On Error Resume Next
    
If KeyAscii vbKeyReturn Then
        KeyAscii 
0
        Dim i 
As Long: For Me.Count 1 To 0 Step -1
            
If Me.Controls(i).Name Me.ActiveControl.Name And TypeName(Me.Controls(1)) = "TextBox" Then
                Me
.Controls(1).SetFocus
                
Exit For
            
End If
        
Next i
    End 
If 
End Sub
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
PHP كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If 
KeyAscii 13 Then
Text2
.SetFocus
End 
If
End Sub 
الرد }}}}
تم الشكر بواسطة: king2512010 , علاء الدين
#3
.....

لاتنس تغيير الخاصية KeyPreview إلى True لكل فورم تريد فيه هذا الأسلوب في التنقل بين الادوات

وجدت هذا الكود وهو أفضل
كود :
Private Sub Form_KeyPress(KeyAscii As Integer)
    If TypeName(Me.ActiveControl) = "TextBox" _
    Or TypeName(Me.ActiveControl) = "CommandButton" Then
        If KeyAscii = vbKeyReturn Then
            KeyAscii = 0
            Dim i As Long: For i = Me.Count - 1 To 0 Step -1
                If Me.Controls(i).Name = Me.ActiveControl.Name Then
                    If TypeName(Me.Controls(i - 1)) = "TextBox" _
                    Or TypeName(Me.Controls(i - 1)) = "CommandButton" Then
                        Me.Controls(i - 1).SetFocus
                        Exit For
                    End If
                End If
            Next i
        End If
    End If
End Sub

.....
الرد }}}}
تم الشكر بواسطة: علاء الدين
#4
طريقة أستخدام زر Enter للتنقل بين TextBox ...


بسم الله الرحمن الرحيم ...

===================

قم بتشغيل الفيجوال بيسيك .. ثم أختر منه من مربع الحوار Standard EXE وبعد ذلك

قم بأضافة التالي على الفورم


1-Text1
2-Text2
3-Text3
4-Text4
5-Text5

الأن سوف نقوم باضافة أوامر البرمجة ....

ضع هذا الكود في التصريحات جنرال في أعلى صفحة الكود .. طبعا الكود راح يترتب على التوالي ..


========


كود:

Private Declare Function LoadKeyboardLayout Lib "user32" Alias _
"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal _
flags As Long) As Long


Private Sub Text1_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
Dim t As Integer
t = KeyAscii

If t = 8 Then Exit Sub
If (t < 48 Or t > 57) Then KeyAscii = 0
End Sub

Private Sub Text2_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub

Private Sub Text3_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text4.SetFocus
End Sub

Private Sub Text4_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text5.SetFocus
End Sub

Private Sub Text5_GotFocus()
' لجعل الكتابه بالعربي
Call LoadKeyboardLayout("00000401", 1)
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim t As Integer
t = KeyAscii
End If

End Sub


==========================

وبس ... طبعا هذه الأكواد خاصة للكي برس KeyPress وخصوصا بالزر أنتر ... وفي هذا
الكود مناداة LoadKeyboardLayout للكتابة بالعربي .. على طول بدون تحويل .. أتوقع الكل فاهم .. وهذا لا يحتاج إإلى شرح ..

منقول
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في حل رسالة خطأ تظهر لي Error 5000 loayrefai 3 72 15-10-17, 01:50 AM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 211 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 48 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 159 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
  مساعدة تكملة فكرة الفاتورة حافظ حافظ 6 180 04-09-17, 11:04 PM
آخر رد: Amir_alzubidy
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 135 22-08-17, 10:24 PM
آخر رد: guerciftech
  ممكن مساعدة في ايجاد حل لهذه المشكلة الغريبة مبرمج جديد 2 122 01-08-17, 04:18 AM
آخر رد: مبرمج جديد
  مساعدة VB6 مشكل تنصيب ومكافح الفيروسات bidai 3 126 29-07-17, 06:23 PM
آخر رد: bidai
  [vb6.0] مساعدة بطريقة جمع التواريخ والأوقات shadi_alfares 2 101 27-07-17, 12:17 PM
آخر رد: shadi_alfares
  [vb6.0] مساعدة في فهم و تعلم صنع برنامج يعمل على سيرفر بقاعدة بيانات اكسس مربوطة بالادو larbihamri 6 212 10-06-17, 09:19 PM
آخر رد: Amir_alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم