Joystick Control in VB.NET

Hello everyone. Here is my joystick control to allow an object to move via the joystick control that is contained herein. Below is an except code snippet.

Private

Sub OnMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If isActive Then
MouseAt = New Point(e.X, e.Y)
PolarAtOld = MakeGrid(MouseAt)
magnitude = MagnitudeFromCenter()
GetCompassDirection()
OnPolarMouse(Me.Magnitude, Me.CompassPoint)
End If
End
Sub
<BrowsableAttribute(True), CategoryAttribute("Joystick"), DescriptionAttribute("Magnitude of the crosshair from the center")> _
Public ReadOnly Property Magnitude() As Double
Get
Return
magnitude
End Get
End
Property

 

As you can see that there is Designer support added so that the joystick is configurable.

v


Similar Articles