+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] كود انتقالى من text الى اخر في فيجوال بيسك6 (/showthread.php?tid=22548)
كود انتقالى من text الى اخر في فيجوال بيسك6 - sher - 14-11-17
الاخوة الكرام احتاج الى كود او طريقة للانتقال من تكست الى اخر اقوم انا بتحديده عن طريق زر tab
مثال الانتقال بمشر الكتابة من text2 الى text5 بمجرد الضغط على tab
ولكم كل الشكر
RE: كود انتقالى من text الى اخر في فيجوال بيسك6 - الاصيله - 14-11-17
يتم أستخدام الدالة 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
RE: كود انتقالى من text الى اخر في فيجوال بيسك6 - eiocm - 14-11-17
اعمل موديول وضع فيه هذا الكود
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
RE: كود انتقالى من text الى اخر في فيجوال بيسك6 - حريف برمجة - 15-11-17
(14-11-17, 10:58 PM)sher كتب : الاخوة الكرام احتاج الى كود او طريقة للانتقال من تكست الى اخر اقوم انا بتحديده عن طريق زر tab
مثال الانتقال بمشر الكتابة من text2 الى text5 بمجرد الضغط على tab
ولكم كل الشكر
تحدد الاداة من على الفورم
ومن الخصائص تعطي الترتيب ابتداء من صفر (0)
مثلاً تريد تكست1 المؤشر عليه عند تحميل الفورم تضع 0
وعندما تضغط زر تاب ينتقل المؤشر إلى تكست2 تعطي تكست2 رقم 1 .... وهكذا (انظر للصورة)
[attachment=16117]
RE: كود انتقالى من text الى اخر في فيجوال بيسك6 - alhoor - 15-02-23
Sendkey
-------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.text <> "" Then Sendkeys "{tab}"
End Sub
قم بتحديد التكست المطلوب الذهاب الىه من خاصية
tabindex
RE: كود انتقالى من text الى اخر في فيجوال بيسك6 - monadymosa - 10-07-23
في خاصية TabIndex في text1 ضع 1
وكذلك في Text2 ضع 2 وهكذا في البقية