查看: 264  |  回复: 0
VB6 利用API打开开始菜单
楼主
发表于 2023年5月7日 21:31

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_TASKLIST = &HF130&

Private Sub Command1_Click()
    SendMessage Me.hwnd, WM_SYSCOMMAND, SC_TASKLIST, &O0
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com