الاخوة الكرام احتاج الى كود او طريقة للانتقال من تكست الى اخر اقوم انا بتحديده عن طريق زر 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
اعمل موديول وضع فيه هذا الكود
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 .... وهكذا (انظر للصورة)
[
attachment=16117]
Sendkey
-------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.text <> "" Then Sendkeys "{tab}"
End Sub
قم بتحديد التكست المطلوب الذهاب الىه من خاصية
tabindex
في خاصية TabIndex في text1 ضع 1
وكذلك في Text2 ضع 2 وهكذا في البقية