تعریف کردن کلید میان بر (Hot Key) برای برنامه

[__siavash__]

سلام
من دارم یه برنامه مینویسم که بعد از لود شدن فرم پنهان میشه (me.hide) بعد میخوام بعد از فشردن کلیدهای مثلا Alt + s فرم ظاهر بشه (me.show)
؟؟؟

[mahdyeh]

سلام
آیا بعد از اینکه اون فرمتون پنهان میشه؟ فرم دیگری لود میشه یا نه ؟

[__siavash__]

نه هیچ فرمی لود نمیشه
کلا یه فرم بیشتر نیست

[romina2006]

Const VK_MENU = &H12
Const VK_S = &H53
Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
Dim keystate As Integer
Dim keystate1 As Integer
keystate = GetKeyState(VK_S)
keystate1 = GetKeyState(VK_MENU)
If keystate And keystate1 And &H8000 Then Me.Show
End Sub

[__siavash__]

romina2006 (http://barnamenevis.org/forum/member.php?u=32889)
دستت درد نکنه
کارم راه افتاد

[CodeMasterX]

استفاده از توابع api همونجوری که romina هم توضیح داد مطمئن تر و بهتره ولی از رویداد KeyDown فرمت هم می تونی استفاده کنی که خاصیت های Key,Ctrl,Shift رو برات تامین می کنه.