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].

comments powered by Disqus

Featured

  • What's New in TypeScript 5.3

    Microsoft advanced TypeScript to version 5.3 with a bevy of changes affecting everything from import attributes to interactive inlay hints for types, along with multiple optimizations.

  • Finally Go Eyes On with Upcoming Visual Studio 2022 UI Refresh

    Six months ago, Microsoft teased Visual Studio 2022 developers by announcing an upcoming UI refresh, which they can now finally get their eyes on in the new v17.9 preview 1.

  • DBSCAN Data Clustering from Scratch Using C#

    Compared to other clustering techniques, DBSCAN does not require you to explicitly specify how many data clusters to use, explains Dr. James McCaffrey of Microsoft Research in this full-code, step-by-step machine language tutorial.

  • GitHub Copilot Leads Productivity Gains in New Visual Studio 2022 17.8

    In announcing Visual Studio 2022 17.8 today, Microsoft emphasized community-driven productivity gains among the new features and functionality.

  • Microsoft Ships .NET 8

    In announcing .NET 8 today, Microsoft emphasized the cloud, performance, full-stack Blazor, AI and .NET MAUI as major highlights of the latest edition of the company's free, cross-platform, open source developer platform.

Subscribe on YouTube

Upcoming Events