003
23.02.2005, 16:46 Uhr
Diablo
|
voilà:
Visual Basic: |
Public Function MakeDWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long MakeDWord = (HiWord * 65536) + (LoWord And &HFFFF&) End Function
Private Sub Click_Click() Dim Punkt As Long '... Punkt = MakeDWord(392, 345) PostMessage D2hwnd, WM_LBUTTONDOWN, MK_LBUTTON, Punkt PostMessage D2hwnd, WM_LBUTTONUP, 0, Punkt End Sub
|
o.O |