六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB热键呼出条用代码示例

    日期:2019/10/14 17:18:27来源分类:编程开发

    '这个程序将Form1的HotKey设置为Alt+A.
    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_SETHOTKEY = &H32
    Private Const HOTKEYF_SHIFT = &H1
    Private Const HOTKEYF_ALT = &H4

    Private Sub Form_Load()
       Dim l As Long
       Dim wHotkey As Long
       wHotkey = (HOTKEYF_ALT) * (2 ^ 8) + 65
       l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
    End Sub
     

    本文由六子技术网小编:屌爆侠编辑整理 - 转载请注明来源 - http://www.liuzi.net/bc/html/3896.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员