Code VB : วิธีการ ตั้ง Hotkey โดยใช้ GetAsyncKeyState นะครับ

[SmileSiam]

สำหรับคนที่หา วิธี ตั้ง Hotkey โดยใช้ GetAsyncKeyState นะครับ ดูตัวอย่าง ภายในกระทู้นี้ได้นะ
ลองศึกษา ดูนะครับ ไม่ยาก

Code ที่ผมใช้นะ

Unhidden Content - Enjoy The View!

ก่อนอื่นเลย ตั้ง Private ก่อน

Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal Key As Long) As Integer

ต่อไปก้มา ใส่คำสั่งใน Timer นะครับ ตาม Code นี้เลย

Dim hotkey As Boolean
hotkey = GetAsyncKeyState(Keys.F10)
if hotkey = True then
Msg("Yes")
End if

*ควรสั่งเริ่ม Timer ไว้ด้วยนะครับ
*Code นี้ผม ยกตัวอย่างให้ เฉยๆ ลองเอาไปดัดแปลง หรือ เพิ่มเติม เอาเลย ครับผม ไม่ยาก

[Smily]

พยามต่อไปนะคับ เป็นกำลังใจให้นะคับ ผมอยากให้หาบทความอื่นมาอีกนะคับ อยากอ่านมากๆคับ อะไรก็ได้ที่มีความรู้อะคับ นะคับ ........................................

[HOMA]

ดีครับพี่หนุ่มผมกำลัง จะหาอยู่พอดีเลย วิธีตั้ง hotkey นิ พอดีจะทำโปรเเกรม

เป็นกำลังใจให้เช่นกันครับ เป็นข้อมูลที่ดีมากครับ