Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница:

 

  Вопрос: DirectInput и мышь((( Добавлено: 02.05.05 22:11  

Автор вопроса:  Skywalker | Web-сайт: iSkywalker.ru | ICQ: 300-70-6пятьЪ 
У меня тут трабла. С помощью директинпута получаю координаты мыши на экране. Но как только перестаешь двигать мышь координаты сбрасываются в 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

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам