17-10-12, 06:59 PM
كاتب الموضوع : egyption-coder
الروتين واضح و سهل
اعلم ان قدامى الأعضاء يعرفون مجال الأسماء My.Computer بجميع استخداماته ولكن هناك من يعتبره سحرا و لم يسمع به او يتخيل استخداماته
كود :
[SIZE=4][color=navy]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As [/color][/SIZE]
[SIZE=4][color=navy]System.EventArgs) Handles Button1.Click[/color][/SIZE]
[SIZE=4][color=navy]If My.Computer.Keyboard.CapsLock = True Then[/color]
[/SIZE][SIZE=4][color=navy]MsgBox(My.Computer.Keyboard.CapsLock)[/color][/SIZE]
[SIZE=4][color=navy]ElseIf My.Computer.Keyboard.AltKeyDown = True Then[/color]
[/SIZE][SIZE=4][color=navy]MsgBox(My.Computer.Keyboard.AltKeyDown)[/color][/SIZE]
[SIZE=4][color=navy]ElseIf My.Computer.Keyboard.CtrlKeyDown = True Then[/color]
[/SIZE][SIZE=4][color=navy]MsgBox(My.Computer.Keyboard.CtrlKeyDown)[/color][/SIZE]
[SIZE=4][color=navy]Else[/color][/SIZE]
[SIZE=4][color=navy]MsgBox("IT IS NOT")[/color][/SIZE]
[SIZE=4][color=navy]End If[/color]
[/SIZE][SIZE=4][color=navy]End [/color][/SIZE][SIZE=2][color=#0000ff][SIZE=4][COLOR=navy]Sub[/color][/SIZE]
[/COLOR][/SIZE]