PDA

View Full Version : کار این دو تابع چیه؟



sanaz2007
پنج شنبه 18 مهر 1387, 12:44 عصر
سلام دوستان . دو سوال راحت برای شما.من نمیدونم این دو تابع چیکار میکنن؟ لطفا راهنماییم کنید

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_SNAPSHOT = &H2C

VK_SNAPSHOT کارش چیه؟و این مقداردهی برای چیه؟

keybd_event VK_SNAPSHOT, 1, 1, 1

m_vb1386
پنج شنبه 18 مهر 1387, 13:07 عصر
'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Add 1 Command Button to your form.
'Insert this code to the module :
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2
'Insert this code to your form:
Private Sub Command1_Click()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(&H4D, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

اینها رو ببین این کدها برای کمینه کردن یک پنجره استفاده میشه در ضمن کد شما برای قرار دادن یک تصویر در حافظه استفاده میشه به همین خاطر هم از VK_SNAPSHOT استفاده شده که در تابع نشون میده منظور شما استفاده از یک تصویر هست