Visual Basic音量控制代码Me.Handle报错求助排查

存在的问题&修复方案 #

你提交的代码共有3处明显错误，对应修复逻辑如下：

• 类未继承窗体基类：你定义的Test类没有继承System.Windows.Forms.Form，Handle是窗体类的专属属性，普通自定义类没有该属性，所以调用Me.Handle会直接报错。
• DllImport声明不完整：SendMessageW的外部函数声明缺少End Function闭合，属于语法错误。
• 规范缺失：没有为SendMessageW指定Unicode字符集匹配，极端场景下可能出现编码异常。

修正后完整可运行代码 #

Imports System
Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Namespace Test
    ' 继承Form类才能获取Handle属性
    Public Class TestForm
        Inherits Form

        Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
        Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000
        Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000
        Private Const WM_APPCOMMAND As Integer = &H319

        ' 补全DllImport声明，指定字符集为Unicode匹配SendMessageW
        <DllImport("user32.dll", CharSet:=CharSet.Unicode, SetLastError:=True)>
        Public Shared Function SendMessageW(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
        End Function

        Private Sub Mute()
            SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, CType(APPCOMMAND_VOLUME_MUTE, IntPtr))
        End Sub

        Private Sub VolDown()
            SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, CType(APPCOMMAND_VOLUME_DOWN, IntPtr))
        End Sub

        Private Sub VolUp()
            SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, CType(APPCOMMAND_VOLUME_UP, IntPtr))
        End Sub

        ' 示例：绑定按钮点击事件，你可以直接在窗体设计器里关联对应按钮
        Private Sub btnMute_Click(sender As Object, e As EventArgs) Handles btnMute.Click
            Mute()
        End Sub

        Private Sub btnVolUp_Click(sender As Object, e As EventArgs) Handles btnVolUp.Click
            VolUp()
        End Sub

        Private Sub btnVolDown_Click(sender As Object, e As EventArgs) Handles btnVolDown.Click
            VolDown()
        End Sub
    End Class
End Namespace

如果你不想把音量控制逻辑写在窗体类里，也可以调用当前进程主窗体的Handle替代Me.Handle，写法是Process.GetCurrentProcess().MainWindowHandle，需要额外导入System.Diagnostics命名空间。

内容的提问来源于stack exchange，提问作者jake