三个简单的问题，请赐教！

Question

问题1：如何能增加热键的响应。即如果窗体在后台时，按ctrl+alt+x就能呼出窗体！
问题2：我在程序中用到了data.mdb,为什么我的目录下总有一个data.ldb文件?
问题3：怎样更改我生成exe文件的图标，我不想用vb的默认图标！
以上问题请高手解答，答完马上给分。谢谢！

Answer 1

ldb 文件是一个 Access 的锁定标记

Answer 2

注册合响应热键：
http://community.csdn.net/Expert/topic/3439/3439739.xml?temp=.2994043

Answer 3

2.当数据打开,就会生成.ldb文件
3.菜单中"工程"--"属性"中的"生成"选项中有一个"图标"的项,可以改图标

Answer 4

问题1:你可以在菜单编辑器中加入热键响应，同时该菜单的Click为：load 目标窗体或目标窗体.show
问题2：当你的Data.mdb在运行是，系统回自动生成一个临时文件即data.ldb。
问题3：在该工程的属性中，点击“生成”，应用程序中有标题和图标，只有改变图标的选项就可以了。图标必须是*.ico的。

Answer 5

1。你在菜单里加一个，快捷键ctrl+alt+x，设成隐藏，做show动作就可以了。
2。不明白，一个可能是data.mdb文件正在读写，它可能会生成一个data.ldb文件进行操作的保存，关闭后再进行data.mdb文件的根新，删除data.ldb文件。
3。主窗体里有icon属性，选泽图片就可以了。

Answer 6

1.
Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type Msg
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
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 Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Public Sub ProcessMessages()
    Dim Message As Msg
    Do While Not bCancel
        WaitMessage
        If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
            Debug.Print "你按了热键"
        End If
        DoEvents
    Loop
End Sub
Private Sub Form_Load()
    Dim ret As Long
    bCancel = False
    ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL Or MOD_ALT, vbKeyX)
    Show
    ProcessMessages
End Sub
Private Sub Form_Unload(Cancel As Integer)
    bCancel = True
    Call UnregisterHotKey(Me.hWnd, &HBFFF&)
End Sub