DirectX:DirectInput:Tutorials:VBNET:DX9:Mouse Handling

From GPWiki

The Game Programming Wiki has moved!

The wiki is now hosted by GameDev.NET at wiki.gamedev.net. All gpwiki.org content has been moved to the new server.

However, the GPWiki forums are still active! Come say hello.

Minimal code you can use to demonstrate how to get mouse input using managed DX9 ...

Imports Microsoft.DirectX
Imports System.Windows.Forms
Imports Microsoft.DirectX.DirectInput.CooperativeLevelFlags
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Dim Mouse As New DirectInput.Device(DirectInput.SystemGuid.Mouse)
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Mouse.SetCooperativeLevel(Me, Background Or NonExclusive)
        Me.Show()
        Mouse.Acquire()
 
      End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Msg As String = ""
 
        Dim MS As DirectInput.MouseState = Mouse.CurrentMouseState
        Msg = ""
        Msg = "X: " & ms.X.ToString & vbCrLf
        Msg &= "Y: " & ms.Y.ToString & vbCrLf
        Msg &= "Z: " & ms.Z.ToString & vbCrLf
        Msg &= "Button 0: " & MS.GetMouseButtons(0).ToString & vbCrLf
        Msg &= "Button 1: " & MS.GetMouseButtons(1).ToString & vbCrLf
        Msg &= "Button 2: " & MS.GetMouseButtons(2).ToString & vbCrLf
        Label1.Text = Msg
    End Sub
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Mouse.Dispose()
        Mouse = Nothing
    End Sub
End Class