تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود انتقالى من text الى اخر في فيجوال بيسك6
#1
الاخوة الكرام احتاج الى كود او طريقة للانتقال من تكست الى اخر اقوم انا بتحديده عن طريق زر tab 

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

ولكم كل الشكر
الرد
تم الشكر بواسطة: حسن الغزي
#2
يتم أستخدام الدالة 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 
اختكم الاصيله
الرد
#3
اعمل موديول وضع فيه هذا الكود
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
الرد
تم الشكر بواسطة: sher , الاصيله , Amir_alzubidy , حسن الغزي , Ahmed_Mansoor
#4
(14-11-17, 10:58 PM)sher كتب : الاخوة الكرام احتاج الى كود او طريقة للانتقال من تكست الى اخر اقوم انا بتحديده عن طريق زر tab 

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

ولكم كل الشكر

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

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

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

   
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية استيراد ملف اكسل الى قاعدة بيانات اكسس في فيجوال 6 sher 4 946 07-07-18, 02:54 PM
آخر رد: boussida fethi
  [مشروع] الحركة فى الفيجوال بيسك6 سامى 0 160 25-03-18, 04:15 PM
آخر رد: سامى
  [vb6.0] اظهار التاريخ المنتهي فيجوال بيسك 6 دهشوش1 4 408 30-10-17, 12:58 AM
آخر رد: دهشوش1
  [vb6.0] فتح نموذج فيجوال بيسك 6.0 حكاية وطن 4 545 12-07-17, 12:51 AM
آخر رد: سعود
  [vb6.0] تحية طيبة / اريد كود لترقيم text تلقائي دون ان استخدام الترقيم التلقائي في اكسس sher 1 409 07-07-17, 01:06 AM
آخر رد: Amir_alzubidy
  [سؤال] كيف يمكنني البحث في جدولين اكسس في فيجوال بيسك 6 sher 1 561 12-02-17, 05:33 PM
آخر رد: sendbad100
Lightbulb تعلم مهارات عن الآداة Text box بالفيجوال بيسك عبدالله خضر 2 1,677 13-04-16, 11:00 AM
آخر رد: MicroDoha
  شباب اريد ازرار للفيجوال بيسك6.0 ابراهيم كركوكي 1 712 18-09-15, 06:52 PM
آخر رد: starwarr2005
  [vb6.0] ممكن كود تصفير InBufferSize في فيجوال بيسك6 وادي العوضي 2 842 25-05-15, 02:25 PM
آخر رد: وادي العوضي
Question [سؤال] استعلام في فيجوال بيسك6 madih 1 708 02-08-14, 10:05 PM
آخر رد: madih

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


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