将About加入系统菜单

最新推荐文章于 2024-04-24 20:36:15 发布

40Star

最新推荐文章于 2024-04-24 20:36:15 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： Visual Basic .net 文章标签： string vb.net function integer user object

本文链接：https://blog.youkuaiyun.com/40Star/article/details/14751

Visual Basic .net 专栏收录该内容

9 篇文章

订阅专栏

博客介绍了在VB.net中处理WM_SYSCOMMAND消息的方法，需重载窗口的WndProc过程。还给出了具体代码，包括声明相关函数、定义常量，在Form1_Load事件中插入菜单，并重写WndProc方法处理特定消息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在VB.net中想要实现这个也很简单，不过需要重载窗口的WndProc过程才能处理WM_SYSCOMMAND消息

具体代码：
    Private Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Int32, ByVal bRevert As Int32) As Int32
    Private Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Int32, ByVal nPosition As Int32, ByVal wFlags As Int32, ByVal wIDNewItem As Int32, ByVal lpNewItem As String) As Int32
    Private Const MF_BYCOMMAND = &H0&
    Private Const MF_BYPOSITION = &H400&
    Private Const MF_STRING = &H0&
    Private Const MF_SEPARATOR = &H800&
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        InsertMenu(GetSystemMenu(Me.Handle.ToInt32, False), 6, MF_BYPOSITION Or MF_STRING, 8888, "关于我... ：）")
        InsertMenu(GetSystemMenu(Me.Handle.ToInt32, False), 7, MF_BYPOSITION Or MF_SEPARATOR, 8889, "")
    End Sub

    Private Const WM_SYSCOMMAND As Integer = 274
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = WM_SYSCOMMAND And m.WParam.ToInt32 = 8888 Then
            MsgBox(System.Environment.MachineName)
        End If
        MyBase.WndProc(m)
    End Sub