نقل المؤشر الي مربع نص معين عن طريق الضغط علي مفتاح في الكيبور

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام  عندي طلب انشاء الله يكون سهل

اوريد تنفيذ عدة اوامر عن طريق موديل بمعني نقل المؤشر الي مربع نص معين من خلال الضغط علي مفتاح معين  بس اريد تنفيذ ذلك علي عدة مربعات وهستعمل اربع مفاتيح لعمل ذلك طبعا 

انا عندي الكود وشغال معي ووضعته في حدث مفتاح للاعلي  وحدث مفتاح للاسفل  وشغال تمام بث انا عاوز اعمل مفتاحين كمان  ومربعين نص اخرين  فما ظبطت معي فقلت ممكن تتعمل عن طريق موديل 

فما عرفت اتوصل لحل .  فنشاء الله يكون الحل عندكم وجزاكم الله خيرا 

طبعا انا استخدمت الكود  ده عن طريق الحدث مفتاح للاسفل  وعملة مفتاح اخر لنقل التركيز الي مربع نص اخر في حدث مفتاح للاسفل  فعندي مربعين نص اخرين اريد وضع حدث لهم لنقل التركيز اليهم 

انا استخدمت  مفتاح سهم للعلي وسهم للاسفل  واريد ان استخدم سهم لليمين وسهم لليسار  في المربعين الاخرين    وجزاكم الله خيرا 

If KeyCode = 40 Then
Me.barc.SetFocus
End If

[يوسف أحمد]

و عليكم السلام و رحمة الله و بركاته

 

اخي العزيز حسين العربي

حبذا لو تضع لنا ما توصلت اليه حتى يستطيع الجميع المساهمة في ايجاد الحل ان شاء الله

 

مع الشكر

[Shivan Rekany]

اھلا بک اخی حسین
کی کود للیسار ھو رقم ٣٧ و للیمین ھو ٣٩ 
وتقدر تستخدم دالة ايف او سيليكت كاش
عند الضغط على المفاتيح الكيبورد
ارفق قاعدة بياناتك ووضح ماتريد اكثر اذا بعد ما وصلت للحل
اهلا بك استاذنا @يوسف أحمد 

تحياتي

تم تعديل نوفمبر 8, 2017 بواسطه Shivan Rekany

[حسين العربى]

الف شكر لكم اساتذتي ومعلميني الافاضل علي مروركم الطيب وانه لشرف لي مشاركتكم موضوعي

ارفق لكم مثال لما اريد  في المرفق نموذج واحد بعد فتح النموذج اضغط علي السهم للاسفل  سوف ينتقل التركيز الي مربع بحث بالباركود / وعند الضغط للاعلي ينتقل التركيز الي مربع نص بحث برقم الصنف

اريد عند الضغط علي السهم لليمين ينتقل التركيز الي مربع نص تحديث باركود  / وعند الضغط علي سهم لليسار ينتقل التركيز الي مربع نص رقم الصنف 

واسف علي الاطاله  وجزاكم الله خيرا

test.rar

تم تعديل نوفمبر 8, 2017 بواسطه حسين العربى
خطأ

[يوسف أحمد]

لا شكر على واجب اخي العزيز حسين

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

تفضل الكود بحدث عند مفتاح للاسفل للنموذج

Select Case KeyCode
    Case 37
       ' Key left
        Me.asdl.SetFocus
        KeyCode = 0
    Case 38
        'Key up
        Me.t1.SetFocus
        KeyCode = 0
    Case 39
       ' Key right
        Me.ubdet.SetFocus
        KeyCode = 0
    Case 40
       ' Key down
        Me.barc.SetFocus
        KeyCode = 0
End Select

بالتوفيق

[حسين العربى]

الف الف شكر استاذي ومعلمي الفاضل جزاك الله خيرا واسكنك فسيح جناته 

[سيمو العازف]

لا كلام بعد كلام الاستاذ ابو احمد

لكن كـ مُداخلة بسيطة، انا عن نفسي اميل دائماً لاستخدام WINDOWS API'S

لانها الاسرع تنفيذا بالذاكرة. يمكنك استخدام دالة ( GetAsyncKeyState )

Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

Const VK_LEFT As Long = &H25
Const VK_RIGHT As Long = &H27
Const VK_DOWN As Long = &H28
Const VK_UP As Long = &H26
Const VK_SPACE As Long = &H20 

الاستدعاء:

 

  Do
    If GetAsyncKeyState(VK_LEFT) <> 0 Then
       MsgBox "Hello!"
       Exit Do
    End If
  Loop

 

اذا اردت المزيد من الازرار يمكنك الاطلع على ستركشرات الدالة:

Const VK_LBUTTON = &H1
Const VK_RBUTTON = &H2
Const VK_CANCEL = &H3
Const VK_MBUTTON = &H4
Const VK_BACK = &H8
Const VK_TAB = &H9
Const VK_CLEAR = &HC
Const VK_RETURN = &HD
Const VK_SHIFT = &H10
Const VK_CONTROL = &H11
Const VK_MENU = &H12
Const VK_PAUSE = &H13
Const VK_CAPITAL = &H14
Const VK_ESCAPE = &H1B
Const VK_SPACE = &H20
Const VK_PRIOR = &H21
Const VK_NEXT = &H22
Const VK_END = &H23
Const VK_HOME = &H24
Const VK_LEFT = &H25
Const VK_UP = &H26
Const VK_RIGHT = &H27
Const VK_DOWN = &H28
Const VK_SELECT = &H29
Const VK_PRINT = &H2A
Const VK_EXECUTE = &H2B
Const VK_SNAPSHOT = &H2C
Const VK_INSERT = &H2D
Const VK_DELETE = &H2E
Const VK_HELP = &H2F

 

تم تعديل نوفمبر 14, 2017 بواسطه سيمو العازف