У меня тут трабла. С помощью директинпута получаю координаты мыши на экране. Но как только перестаешь двигать мышь координаты сбрасываются в 0*0. Как сделать, чтоб они не сбрасывались то. Вот кусок код на всякий случай.
.....
Set di = DX.DirectInputCreate()
Set diDEV = di.CreateDevice("guid_SysMouse")
diDEV.SetCommonDataFormat DIFORMAT_MOUSE
diDEV.SetCooperativeLevel Form1.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
diDEV.Acquire
.....
Sub draw_mouse()
rc.Top = 130
rc.Left = 0
rc.Right = 32
rc.Bottom = 160
diDEV.GetDeviceStateMouse diState
Call ddsBack.BltFast(diState.x, diState.y, ddsSprites, rc, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
End Sub
Ответить
|