print Screen و sendKeys

[Mohamad ghorbani]

سلام بچه ها . . .
من دارم یه کیبورد طراحی می کنم که تمامی دکمه های یک کیبورد رو داره.
با استفاده از دستور SendKeys میتونم تمامی دکمه ها رو فراخوانی کنم
به جز دکمه printScreen
باید چجوری این دکمه رو فراخوانی کنم؟
با تشکر . . .

[daniyal_1363]

سلام




Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_MENU = &H12
Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2
Sub getScreenCapture(picTemp As PictureBox)
Screen.MousePointer = vbHourglass
Clipboard.Clear
DoEvents
keybd_event VK_SNAPSHOT, 0, 0, 0
DoEvents
picTemp.Picture = Clipboard.GetData(vbCFBitmap)
Clipboard.Clear
Screen.MousePointer = vbNormal
End Sub




این کد رو داخل Module بنویسید و فراخوانی کنید