ما الحل قمت بعمل .. 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
مع العلم ان الملون باللون الاخضر انا قمت بعمله الرجاء الرد السريع على الكود هذا او اصلاحه تعبت بالمحاوله اذا يوجد Input غير Direct ساعدوني