[sher]

الاخوة الكرام احتاج الى كود او طريقة للانتقال من تكست الى اخر اقوم انا بتحديده عن طريق زر tab 

مثال الانتقال بمشر الكتابة من text2  الى text5 بمجرد الضغط على tab 

ولكم كل الشكر

[الاصيله]

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

PHP كود :

Private Sub Text1_Change()
Dim con As Integer
Dim mask As Integer

con = Len(Text1.Text)
mask = 5

If con = mask Then
Text2.SetFocus
End If 


[eiocm]

اعمل موديول وضع فيه هذا الكود
Option Explicit

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Function GetTabState() As Boolean
GetTabState = GetKeyState(&H9) And &HFF00
End Function


ثم في الفورم ضع هذا الكود للانتقال من text2 الى text5 اذا تم الضغط على tab
Private Sub Text2_LostFocus()
   If GetTabState Then Text5.SetFocus
End Sub

[حريف برمجة]

(14-11-17, 10:58 PM)sher كتب : الاخوة الكرام احتاج الى كود او طريقة للانتقال من تكست الى اخر اقوم انا بتحديده عن طريق زر tab 

مثال الانتقال بمشر الكتابة من text2  الى text5 بمجرد الضغط على tab 

ولكم كل الشكر

تحدد الاداة من على الفورم

ومن الخصائص تعطي الترتيب ابتداء من صفر (0)

مثلاً تريد تكست1 المؤشر عليه عند تحميل الفورم تضع 0 
وعندما تضغط زر تاب ينتقل المؤشر إلى تكست2 تعطي تكست2 رقم 1 .... وهكذا (انظر للصورة)

   

[alhoor]

Sendkey
-------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.text <> "" Then Sendkeys "{tab}"
End Sub
قم بتحديد التكست المطلوب الذهاب الىه من خاصية
tabindex

[monadymosa]

في خاصية TabIndex في text1 ضع 1
وكذلك في Text2 ضع 2 وهكذا في البقية