vb程序完後如何改快捷

1. VBnet做的程序，如何讓用戶修改快捷鍵

建議你這樣試試看：

1. 做一個下拉框，里邊是所有客戶可能用到的快捷鍵集合

2. 當按下按鈕時，獲取下拉框的按鍵名稱，再將字元串轉換Keys枚舉，然後進行判斷

2. VB中如何設置熱鍵和快捷鍵

希望某一字元成為訪問鍵，也可以在該字元前面加上一個 (&) 字元。

可以通過在 Caption 屬性設置中使用 & 字元來為命令、菜單、和控制項指定訪問鍵。

要對菜單項賦值快捷鍵，請按照以下步驟執行：

1.打開「菜單編輯器」。

2.選取該菜單項。

3.在「快捷鍵」組合框中選取功能鍵或者鍵的組合。

要刪除快捷鍵賦值，應選取列表頂部的"(none)"。

3. vb快捷鍵怎麼改

類似Alt+右、F11這種快捷鍵是無法更改的，但是類似(&W)這種快捷鍵是可以更改的。你有沒有注意到自動完成關鍵字可以用兩種快捷鍵實現？一種是Alt+右，一種是分別按下右鍵快捷菜單鍵（右邊的Windows鍵和Ctrl之間）和W。
所以我們可以更改後者。方法是：菜單視圖 工具欄 自定義 單擊工具欄選項卡 勾選快捷菜單 在出來的菜單裡面點代碼窗口 代碼窗口 右擊自動完成關鍵字 更改它的名稱，比方說把(&W)改成(&E)，那麼以後就可以通過右鍵快捷菜單鍵＋E來實現了

4. vb 按鈕快捷鍵怎麼設置

設置VB窗體中按扭快捷鍵的操作可以採用下面兩種方法來實現:
1、在按扭的Capion
屬性設置標題的時候，前面增加
"&K"字元就可以，K代表的是你准備使用的Alt+鍵盤字元，如「&O.退出」，程序運行的時候按下
Alt+O
即執行該按扭的操作了
2、你可以利用該按扭所在的Form
窗體優先權獲得鍵盤操作功能來激發你要完成的按扭操作，此時首先要設置Form
的KeyPreview
屬性值為
True,然後在
Form中KeyDown事件中判斷你需要的組合鍵盤值來激發你的按扭事件.
Form_KeyDown事件中的各功能鍵值組合比較全面，如Shift,Alt
及Ctr等，一般都能滿足快捷鍵的組合需求了.
Exp:
利用Ctrl+O組合鍵激發上面所說的按扭鍵,在Form_KeyDown事件中添加如下代碼
Private
Sub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
If
Shift
=
2
And
KeyCode
=
79
Then
btnQuit_Click()
End
If
End
Sub
btnQuit_Click()是退出程序按扭事件

5. VB中如何為程序設置快捷鍵

用全局熱鍵
運行後程序自動隱藏，按快捷鍵自動出現
'第一步:
'新建一個窗口,將以下代碼復制進去
注冊熱鍵為:'Ctrl+Alt+P
Private
Sub
Form_Load()
form1.hide
Dim
ret
As
Long
preWinProc
=
GetWindowLong(Me.hwnd,
GWL_WNDPROC)
ret
=
SetWindowLong(Me.hwnd,
GWL_WNDPROC,
AddressOf
Wndproc)
idHotKey
=
1
Modifiers
=
MOD_Alt
+
MOD_Ctrl
uVirtKey
=
vbKeyP
ret
=
RegisterHotKey(Me.hwnd,
idHotKey,
Modifiers,
uVirtKey)
End
Sub
Private
Sub
Form_Unload(Cancel
As
Integer)
Dim
ret
As
Long
ret
=
SetWindowLong(Me.hwnd,
GWL_WNDPROC,
preWinProc)
Call
UnregisterHotKey(Me.hwnd,
uVirtKey)
End
Sub
'第二步
'新建立一個模塊,然後將以下內容復制到模塊中
Option
Explicit
Declare
Function
SetWindowLong
Lib
"User32"
Alias
"SetWindowLongA"
(ByVal
hwnd
As
Long,
ByVal
nIndex
As
Long,
ByVal
dwNewLong
As
Long)
As
Long
Declare
Function
GetWindowLong
Lib
"User32"
Alias
"GetWindowLongA"
(ByVal
hwnd
As
Long,
ByVal
nIndex
As
Long)
As
Long
Declare
Function
CallWindowProc
Lib
"User32"
Alias
"CallWindowProcA"
(ByVal
lpPrevWndFunc
As
Long,
ByVal
hwnd
As
Long,
ByVal
Msg
As
Long,
ByVal
wParam
As
Long,
ByVal
lParam
As
Long)
As
Long
Declare
Function
RegisterHotKey
Lib
"User32"
(ByVal
hwnd
As
Long,
ByVal
id
As
Long,
ByVal
fsModifiers
As
Long,
ByVal
vk
As
Long)
As
Long
Declare
Function
UnregisterHotKey
Lib
"User32"
(ByVal
hwnd
As
Long,
ByVal
id
As
Long)
As
Long
Public
Const
WM_HOTKEY
=
&H312
Public
Const
MOD_Alt
=
&H1
Public
Const
MOD_Ctrl
=
&H2
Public
Const
MOD_Shift
=
&H4
Public
Const
GWL_WNDPROC
=
(-4)
Public
preWinProc
As
Long
Public
Modifiers
As
Long,
uVirtKey
As
Long,
idHotKey
As
Long
Private
Type
taLong
ll
As
Long
End
Type
Private
Type
t2Int
lWord
As
Integer
hWord
As
Integer
End
Type
Public
Function
Wndproc(ByVal
hwnd
As
Long,
ByVal
Msg
As
Long,
ByVal
wParam
As
Long,
ByVal
lParam
As
Long)
As
Long
If
Msg
=
WM_HOTKEY
Then
If
wParam
=
idHotKey
Then
Dim
lp
As
taLong,
i2
As
t2Int
lp.ll
=
lParam
LSet
i2
=
lp
If
(i2.lWord
=
Modifiers)
And
i2.hWord
=
uVirtKey
Then
form1.show
End
If
End
If
End
If
Wndproc
=
CallWindowProc(preWinProc,
hwnd,
Msg,
wParam,
lParam)
End
Function