[sooriaty03]

kafi كتب :شكرا اخي
kslawy

[HTML]Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown, TextBox3.KeyDown, TextBox2.KeyDown, TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{Tab}")
End If
End Sub[/HTML]

على هذا الكود الرائع، وفعلا هو شعال مائة مائة ولكـــــــــــــــــن
المشكلة انني مضطر ان اضعه في حدث ال Keydown لكافة العناصر المتواجدة على الشاشة، ولكن وجدت الكود الذي تفضل به الاخ Genius_Live
مختصر، اي بمعنى اخر، اقوم باستدعيه مرة واحدة فقط عند تحميل النموذج، ولكن به مشكلة العيب الدي شرحته،

ولا اعرف ان كان يمكن اصلاح كود الاخ Genius_Live يحيث يصبح فعال وعملي !!!!!!!!!!!!!

والف شكر

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

تفضل أخي الكريم
هذا تعديل لكود الأخ Genius_Live - من بعد إذنه

كود :

[color=blue][FONT=Consolas]Protected[/FONT][/color][color=#000000][FONT=Consolas] [COLOR=blue]Overrides[/color] [color=blue]Function [/color][/FONT][/COLOR][color=#000000][FONT=Consolas]ProcessCmdKey[/FONT][/color][color=#000000][FONT=Consolas]([/FONT][/color][color=#000000][FONT=Consolas][COLOR=blue]ByRef [/color][/FONT][/COLOR][color=#000000][FONT=Consolas]msg [/FONT][/color][color=blue][FONT=Consolas]As [/FONT][/color][color=#000000][FONT=Consolas]System.Windows.Forms.[/FONT][/color][color=#2B91AF][FONT=Consolas]Message[/FONT][/color][color=#000000][FONT=Consolas], [/FONT][/color][color=#000000][FONT=Consolas][COLOR=blue]ByVal [/color][/FONT][/COLOR][color=#000000][FONT=Consolas]keyData [/FONT][/color][color=blue][FONT=Consolas]As [/FONT][/color][color=#000000][FONT=Consolas]System.Windows.Forms.[/FONT][/color][color=#2B91AF][FONT=Consolas]Keys[/FONT][/color][color=#000000][FONT=Consolas]) [/FONT][/color][color=blue][FONT=Consolas]As [/FONT][/color][COLOR=blue][FONT=Consolas]Boolean
[/FONT][/COLOR][color=blue][FONT=Consolas]If [/FONT][/color][color=#000000][FONT=Consolas]msg.WParam.ToInt32() = [/FONT][/color][color=#0000FF][FONT=Consolas]CInt[/FONT][/color][color=#000000][FONT=Consolas]([/FONT][/color][color=#2B91AF][FONT=Consolas]Keys[/FONT][/color][color=#000000][FONT=Consolas].Enter[/FONT][/color][color=#000000][FONT=Consolas]) [/FONT][/color][color=#0000FF][FONT=Consolas]Then[/FONT][/color]
[color=blue][FONT=Consolas]If [/FONT][/color][color=#000000][FONT=Consolas][COLOR=blue]TypeOf [/color][/FONT][/COLOR][color=#000000][FONT=Consolas][COLOR=blue]Me[/color][/FONT][/COLOR][color=#000000][FONT=Consolas].ActiveControl [/FONT][/color][color=blue][FONT=Consolas]Is [/FONT][/color][color=#2B91AF][FONT=Consolas]Button [/FONT][/color][COLOR=#0000FF][FONT=Consolas]Then
[/FONT][/COLOR][color=blue][FONT=Consolas]Return[/FONT][/color][color=#000000][FONT=Consolas][COLOR=blue]MyBase[/color][/FONT][/COLOR][color=#000000][FONT=Consolas].ProcessCmdKey[/FONT][/color][color=#000000][FONT=Consolas]([/FONT][/color][color=#000000][FONT=Consolas]msg[/FONT][/color][color=#000000][FONT=Consolas], [/FONT][/color][color=#000000][FONT=Consolas]keyData[/FONT][/color][COLOR=#000000][FONT=Consolas])
[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Else
[/FONT][/COLOR][color=#2B91AF][FONT=Consolas]SendKeys[/FONT][/color][color=#000000][FONT=Consolas].Send[/FONT][/color][color=#000000][FONT=Consolas]([/FONT][/color][color=#A31515][FONT=Consolas]"{Tab}"[/FONT][/color][COLOR=#000000][FONT=Consolas])
[/FONT][/COLOR][color=blue][FONT=Consolas]Return[/FONT][/color][COLOR=blue][FONT=Consolas]True
[/FONT][/COLOR][color=blue][FONT=Consolas]End[/FONT][/color][COLOR=blue][FONT=Consolas]If
[/FONT][/COLOR][color=blue][FONT=Consolas]End[/FONT][/color][COLOR=blue][FONT=Consolas]If
[/FONT][/COLOR][color=blue][FONT=Consolas]Return[/FONT][/color][color=#000000][FONT=Consolas][COLOR=blue]MyBase[/color].ProcessCmdKey[/FONT][/COLOR][color=#000000][FONT=Consolas]([/FONT][/color][color=#000000][FONT=Consolas]msg[/FONT][/color][color=#000000][FONT=Consolas], [/FONT][/color][color=#000000][FONT=Consolas]keyData[/FONT][/color][COLOR=#000000][FONT=Consolas])
[/FONT][/COLOR][color=blue][FONT=Consolas]End[/FONT][/color][color=#000000][FONT=Consolas] [COLOR=blue]Function[/color][/FONT][/COLOR]

بالتوفيق