这是我入门vb的第一个程序的源代码，后续优化中

```
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long

Private Const MOD_ALT = &H1 'Alt键
Private Const MOD_CONTROL = &H2 'Ctrl键
Private Const MOD_SHIFT = &H4 'Shift键

Private Sub Form_Load()
Dim ret As Long

ret = RegisterHotKey(Me.hWnd, 1, MOD_ALT + MOD_CONTROL, vbKeyZ) '注册热键Ctrl+Alt+Z
    
    ret2 = RegisterHotKey(Me.hWnd, 1, 0, vbKeyF1) '注册热键为F1

If ret = 0 Then
        MsgBox "注册热键失败,请使用其它热键!", vbCritical, "错误"
    End If
    
    If ret2 = 0 Then
        MsgBox "注册热键失败,请使用其它热键!", vbCritical, "错误"
    End If
    
    
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim ret As Long
Call UnregisterHotKey(Me.hWnd, vbKeyZ)
End Sub
Private Sub ret2_Click()
    
    d = MsgBox("2222222222222", , "信息提示")
End Sub

Private Sub Command1_Click()
    
    d = MsgBox("2222222222222", , "信息提示")
End Sub

Private Sub Timer1_Timer()
    MsgBox "2222222"
End Sub

Private Sub 按钮1_Click()
    Call playMusic
    Shell "explorer.exe http://www.baidu.com"
End Sub

Private Sub 按钮1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 112 Then
        表单.Caption = "现在是快捷键变化的demo"
    End If

End Sub

Private Sub playMusic()
    d = MsgBox("这是我调用的通用函数", , "dd信息提示")
End Sub

```

注:原创不易,转载请注明出处( http://www.micuu.com/new/520.html )，本站所有资源来源于网络收集，如有侵权请联系QQ245557979进行清除。