ما الحل قمت بعمل .. Device Mouse ولا تعمل وهذا السور كود كاملا
Imports Microsoft.DirectX
Imports Microsoft.DirectX.DirectInput
Module Direct_Input
Private devkey As Device = Nothing
Private devmouse As Device = Nothing
Friend cameraz As Single = 1600
Friend camerax As Single = 0
Friend cameray As Single = 500
Friend targetz As Single = 1599
Friend targetx As Single = 0
Friend targety As Single = 500
Friend Sub InitializeInput()
devkey = New Device(SystemGuid.Keyboard) ' إنشاء أداةَ لوحةِ المفاتيح
devkey.Acquire()
Updatekey()
devmouse = New Device(SystemGuid.Mouse) ' إنشاء أداة ماوس
devkey.Acquire()
UpdateMouse()
End Sub
Private Sub UpdateKey()
' لمعرفة اي مفتاح مضغوط
Dim pressedKeys As String = "Using GetPressedKeys(): " + vbCr + vbLf
Dim k As Key
For Each k In devkey.GetPressedKeys()
Next k
Select Case k
Case Key.Escape
End
Case Key.DownArrow
cameraz += 5
targetz += 5
Case Key.UpArrow
cameraz -= 5
targetz -= 5
Case Key.LeftArrow
camerax += 5
targetx += 5
Case Key.RightArrow
camerax -= 5
targetx -= 5
End Select
End Sub
Private Sub UpdateMouse()
Dim MoveMouse As String = "Using GetCurrentMouse(): " + vbCr + vbLf
Dim Msx As DirectInput.MouseState = Mouse.CurrentMouseState
Dim Msx As Mouse
For Each Msx In devmouse.CurrentMouseState
Next Ms
Select Case Msx
Case Mouse.YAxis
cameray += 5
targety += 5
Case Mouse.YAxis
cameray -= 5
targety -= 5
Case Mouse.XAxis
camerax += 5
targetx += 5
Case Mouse.XAxis
camerax -= 5
targetx -= 5
End Select
End Sub
End Module