التنقل بين الفورمات بالكيبورد

في حدث الفورم لود

private form_load()
ME.keypreview=true
end sub

في حدث ال keydown للفورم الاول

if keycode=vbkeyD then
form2.show
end if

عند الضغط على حرف D سيتم اظهار الفورم الثاني

الف شكر لك أخي mostafazidani على الكود الرائع

حياك الله ياأمير

تسلم ايدك يامصطفى :lol: :lol:

حبيبنا يامحمد

عمل رائـــــــع اشكرك من الأعماق لكن

هناك اشكالية اريد عندما اضغط على مفتاح Enter او مفتاح ESC يتم عمل مثل الحركة السابقة الأنتقال بين الفورمات

قمت بتعرف هذا الكود If KeyCode = vbKeyEsc Then

لكن لم تفلح النتيجة ارجو الإفادة

كيفك ياهاوي

اولا غير الكود الذي كتبته الى vbkeyescape اذا كنت تريد مفتاح ESCAPE هو الذي يعمل

وايضا VBkeyenter او vbkeyreturn لمفتاح الإدخال

اقتباس

غير الكود الذي كتبته الى vbkeyescape اذا كنت تريد مفتاح ESCAPE هو الذي يعمل

وايضا VBkeyenter او vbkeyreturn لمفتاح الإدخال

تمام يامصطفى :rolleyes:

اشكرك من الأعمــــــــــــــــــاق اخي mostafazidani :lol:

الف شكر على الفائــدة العظيمـــة التي افدتني بها :rolleyes:

مرة اخرى اشكرك :D

mostafazidani....رائع جدا بارك الله فيك

شكرا لكم جميعا ياأخوان

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

لقد استفدت كثيرا بعد ان كنت استعين بطرق معقدة لاستخدام ال keyAscii

حتي تعم الفائدة لي سؤال اخي الفاضل

ما هو كود الاسهم اعلي ، اسفل، يمين ، يسار ؟

اسمحلي اشارك مشاركة ايجابية بكود لمعرفة ارقام ال KeyAscii

Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Me.Cls
'MYNUMBR = Asc("A")
MYNUMBR = KeyAscii
Form1.CurrentX = Form1.Width / 2
Form1.CurrentY = Form1.Height / 2
Me.FontSize = 18
Me.FontBold = True
Me.FontTransparent = True
Me.ForeColor = vbRed
Print MYNUMBR
End Sub

اقتباس

ما هو كود الاسهم اعلي ، اسفل، يمين ، يسار

اظن ان هذه الازرار ليس لها KeyAscii حيث اننى كلما احاول ان احصل على الـ KeyAscii لها تكون كالتالى

يسار , اعلى , يمين : 51

اسفل : 52

لكن لها KeyCode كالاتى :

يسار : 37

اعلى : 38

يمين : 39

اسفل : 40

والله اعلم

هي على التوالي vbkeyright يمين

vbkeyleft يسار

vbkeyup أعلى

vbkeydown تحت

اقتباس

هي على التوالي vbkeyright يمين

vbkeyleft يسار

vbkeyup أعلى

vbkeydown تحت

اخى مصطفى

اذا استخدمت هذه الطريقة فى حدث KeyPress فانك ستجد ان الكود لن يتم تنفيذه ولكن اذا استخدمته مع الحدث KeyDown او KeyUp فسيعمل بدون مشاكل مما يدل على ان هذه الطريقة تعيد الكيى كود وليس الكيى اسكى :rolleyes:

GHOST2010 كتب:

اخى مصطفى

اذا استخدمت هذه الطريقة فى حدث KeyPress فانك ستجد ان الكود لن يتم تنفيذه ولكن اذا استخدمته مع الحدث KeyDown او KeyUp فسيعمل بدون مشاكل مما بدل على ان هذه الطريقة تعيد الكيى كود وليس الكيى اسكى :rolleyes:

←

بالفعل اخي الفاضل GHOST2010 الكود لايعمل مع حدث ال keyPress

و لكن قد يكون هذا افضل لكتابة كود آخر مع حدث ال keyUp

فمثلا في ال Games عندما ندوس السهم الايمن تحدث حركة تجاه اليمين وعندما نتوقف عن الضغط تتوقف الحركة

بينما حدث ال keypress ليس له هذه الاهمية

عذرا ان كنت تجاوزت فانا مبتدئ و اتعلم من ردودكم الكثير

اكرر شكرى لاخونا الكريم مصطفي وبارك الله له في علمه

لكن لانستطيع ان نستغنى عن حدث KeyPress ولا عن KeyAscii فهما غاية فى الاهمية فاذا اردنا مثلاً ان نخصص مربع نص للكتابة بالعربية فقط فلا يمكن ذلك باستخدام KeyCode و الحدثين KeyDown , KeyUp وانما لابد من استخدام KeyAscii والحدث KeyPress لان الـ KeyCode يعبر عن رقم الزر نفسه اما الـ KeyAscii يعبر عن الحرف او الرقم او الرمز المكتوب على الزر حسب اللغة المستخدمة.....ارجو ان يكون قد وضح قصدى :rolleyes:

الاخ العزيز GHOST2010

هل هذا الكود هو ما تريده

Private Sub cmdLetter_Click(Index As Integer)

'Dim Retval As Long

Select Case cmdLetter(Index).Caption

Case "A"
Me.BackColor = &HFF&
'Retval = PlaySound("C:\VBFILES\SOUNDS\A.WAV", 0, 0)

Case "B"
Me.BackColor = &HFFFF&
'Retval = PlaySound("C:\VBFILES\SOUNDS\B.WAV", 0, 0)

Case "C"
Me.BackColor = &H0&

'Retval = PlaySound("C:\VBFILES\SOUNDS\C.WAV", 0, 0)

Case "D"
Me.BackColor = &HFF00&

'Retval = PlaySound("C:\VBFILES\SOUNDS\D.WAV", 0, 0)

Case "E"
Me.BackColor = &HFF00FF

'Retval = PlaySound("C:\VBFILES\SOUNDS\E.WAV", 0, 0)

Case "F"
Me.BackColor = &HC00000

'Retval = PlaySound("C:\VBFILES\SOUNDS\F.WAV", 0, 0)

Case "G"
Me.BackColor = &H80C0FF

'Retval = PlaySound("C:\VBFILES\SOUNDS\G.WAV", 0, 0)

Case "H"
Me.BackColor = &H8000&

'Retval = PlaySound("C:\VBFILES\SOUNDS\H.WAV", 0, 0)



End Select

End Sub



Private Sub Form_KeyPress(KeyAscii As Integer)
Dim intIndex As Integer

If KeyAscii >= 97 And KeyAscii <= 122 Then

KeyAscii = KeyAscii - 32

End If

intIndex = KeyAscii - 65
'===========================
'cmdLetter(intIndex).SetFocus
'cmdLetter(intIndex).Value = True
'==========================
'corected code become's
If intIndex >= 0 And intIndex <= 7 Then
    cmdLetter(intIndex).SetFocus
    cmdLetter(intIndex).Value = True
End If



End Sub

'If intIndex >= 0 And intIndex <= 7 Then
'    cmdLetter(intIndex).SetFocus
'    cmdLetter(intIndex).Value = True
'End If

Gamal2.zip

ملخص درس اخونا مصطفي حتي الان

order from keyBoard.zip

شكراً :rolleyes:

GHOST2010 كتب:

شكراً :rolleyes:

←

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