Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Harmmy en Enero 21, 2013, 03:29:16 pm
-
Property code :
Modulo :
Public Type tKBDLLHOOKSTRUCT
dwExtraInfo As Long
flags As Long
scanCode As Long
time As Long
vkCode As Long
End Type
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Class:
Public Property Get xKBDLLHOOKSTRUCT(ByVal lParam As Long) As tKBDLLHOOKSTRUCT
Call CopyMemory(xKBDLLHOOKSTRUCT, ByVal lParam, LenB(xKBDLLHOOKSTRUCT))
End Property
Where's fault?