Calling Win32 API Functions in VB 2010 - Listing 2
Public Class MouseButtons
Dim ReversedButtons As Integer = 1
Dim StandardButtons As Integer = 0
Dim SwapResult As Integer = 0
Private Sub btnSwap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnSwap.Click
SwapResult = Win32API.SwapMouseButton(ReversedButtons)
If (SwapResult = 0) Then
MessageBox.Show("Mouse buttons are reversed")
Else
MessageBox.Show("Mouse buttons were reversed and are unchanged")
End If
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnReset.Click
SwapResult = Win32API.SwapMouseButton(StandardButtons)
If (SwapResult = 0) Then
MessageBox.Show("Mouse buttons were standard and are unchanged")
Else
MessageBox.Show("Mouse buttons are now standard")
End If
End Sub
End Class
Partial Public Class Win32API
Declare Function SwapMouseButton Lib "user32.dll" _
Alias "SwapMouseButton" (ByVal Swap As Integer) As Integer
End Class
About the Author
Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].