導航:首頁 > 五金知識 > vb中工具箱的快捷鍵是什麼

vb中工具箱的快捷鍵是什麼

發布時間:2022-05-28 12:17:43

1. 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()是退出程序按扭事件

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

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

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

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

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

2.選取該菜單項。

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

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

3. VB 如何設置快捷鍵

最簡單的方法是按Ctrl+E打開菜單編輯器,然後設置個菜單項為退出什麼的,設置其快捷鍵為Ctrl+D,勾選掉「可見」屬性(如果是「不可見」屬性請勾上)。然後運行就可以了。
還有的方法:(代碼)
方法①:
Private
Sub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
Me.KeyPreview
=
True
If
KeyCode
=
vbKeyD
And
Shift
=
2
Then
End
End
Sub
方法②:
Private
Sub
Form_KeyUp(KeyCode
As
Integer,
Shift
As
Integer)
Me.KeyPreview
=
True
If
KeyCode
=
vbKeyD
And
Shift
=
2
Then
End
End
Sub
方法③:
Private
Sub
Form_KeyPress(KeyAscii
As
Integer)
If
KeyAscii
=
4
Then
End
End
Sub
方法①②③的靈敏度不一樣,③裡面的KeyAscii=4是Ctrl+D的Ascii值,是測試出來的。
至於Ascii值測試代碼,只要將方法③的語句換為MsgBox
KeyAscii就行了

4. 不小心把vb右側的屬性窗口和工具箱窗口隱藏了。。怎麼找出來。。怎麼還原啊。,,,

[視圖]這個菜單欄里找...或者按F4你會有驚喜

5. vb 快捷鍵

用 VB 實現全局熱鍵模塊
武漢 艾軍
在軟體報以前的文章中,雖然也介紹了如何用 VB 實現全局熱鍵的方法,但是這些文章都只是針對初學者學習技巧而用,而在真正的程序編寫中是不適應的,為了使我們編寫的程序有繼承性、維護性因此有必要製作一個實現全局熱鍵的模塊。
請大家看看下面調用全局熱鍵的示例:
激活 3 個熱鍵:(註:SetHotkey 是我自定義的函數)
SetHotkey 1, "Ctrl,112", "Add" 按 Ctrl+F1 激活指定程序
SetHotkey 2, 113, "Add" 按 F2 激活指定程序
SetHotkey 3, "Ctrl+Alt,113", "Add" 按 Ctrl+Alt+F2 激活指定程序
注釋:註:關於激活熱鍵後的操作,由自定義函數 SetHotkey 的 KeyId 傳送的值來判斷
注銷 3 個熱鍵:
SetHotkey 1, "", "Del" 退出程序是一定要用上的,不然會導至程序死掉
SetHotkey 2, "", "Del"
SetHotkey 3, "", "Del"
請大家新建一個模塊(.bas)文件,自定義 SetHotkey函數及其他,這樣在以後的任何程序中只要調用此模塊就可以了。
注釋:本模塊是有關熱鍵操作的
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private 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
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fskey_Modifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long

Const WM_HOTKEY = &H312
Const MOD_ALT = &H1
Const MOD_CONTROL = &H2
Const MOD_SHIFT = &H4
Const GWL_WNDPROC = (-4) 注釋:窗口函數的地址

Dim key_preWinProc As Long 注釋:用來保存窗口信息
Dim key_Modifiers As Long, key_uVirtKey As Long, key_idHotKey As Long
Dim key_IsWinAddress As Boolean 注釋:是否取得窗口信息的判斷

Function keyWndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If Msg = WM_HOTKEY Then
Select Case wParam 注釋:wParam 值就是 key_idHotKey
Case 1 注釋:激活 3 個熱鍵後,3 個熱鍵所對應的操作,大家在其他的程序中,只要修改此處就可以了
MsgBox "aa"
Case 2
MsgBox "bb"
Case 3
MsgBox "cc"
End Select
End If

注釋:將消息傳送給指定的窗口
keyWndproc = CallWindowProc(key_preWinProc, hwnd, Msg, wParam, lParam)

End Function

Function SetHotkey(ByVal KeyId As Long, ByVal KeyAss0 As String, ByVal Action As String)
Dim KeyAss1 As Long
Dim KeyAss2 As String
Dim i As Long

i = InStr(1, KeyAss0, ",")
If i = 0 Then
KeyAss1 = Val(KeyAss0)
KeyAss2 = ""
Else
KeyAss1 = Right(KeyAss0, Len(KeyAss0) - i)
KeyAss2 = Left(KeyAss0, i - 1)
End If

key_idHotKey = 0
key_Modifiers = 0
key_uVirtKey = 0

If key_IsWinAddress = False Then 注釋:判斷是否需要取得窗口信息,如果重復取得,再最後恢復窗口時,將會造成程序死掉
注釋:記錄原來的window程序地址
key_preWinProc = GetWindowLong(Form1.hwnd, GWL_WNDPROC)
注釋:用自定義程序代替原來的window程序
SetWindowLong Form1.hwnd, GWL_WNDPROC, AddressOf keyWndproc
End If

key_idHotKey = KeyId
Select Case Action
Case "Add"
If KeyAss2 = "Ctrl" Then key_Modifiers = MOD_CONTROL
If KeyAss2 = "Alt" Then key_Modifiers = MOD_ALT
If KeyAss2 = "Shift" Then key_Modifiers = MOD_SHIFT
If KeyAss2 = "Ctrl+Alt" Then key_Modifiers = MOD_CONTROL + MOD_ALT
If KeyAss2 = "Ctrl+Shift" Then key_Modifiers = MOD_CONTROL + MOD_SHIFT
If KeyAss2 = "Ctrl+Alt+Shift" Then key_Modifiers = MOD_CONTROL + MOD_ALT + MOD_SHIFT
If KeyAss2 = "Shift+Alt" Then key_Modifiers = MOD_SHIFT + MOD_ALT
key_uVirtKey = Val(KeyAss1)
RegisterHotKey Form1.hwnd, key_idHotKey, key_Modifiers, key_uVirtKey 注釋:向窗口注冊系統熱鍵
key_IsWinAddress = True 注釋:不需要再取得窗口信息

Case "Del"
SetWindowLong Form1.hwnd, GWL_WNDPROC, key_preWinProc 注釋:恢復窗口信息
UnregisterHotKey Form1.hwnd, key_uVirtKey 注釋:取消系統熱鍵
key_IsWinAddress = False 注釋:可以再次取得窗口信息
End Select
End Function

6. vb中運行程序的快捷鍵是什麼

vb中運行程序的快捷鍵是
F5

7. VB工具欄如何設置快捷鍵。急!

Private Sub Command1_Click()
MsgBox "您點擊了command控制項"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 113 Then
Call Command1_Click
End If
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True

End Sub
代碼設置

8. vb中有那些快捷鍵

F4是屬性窗口
F5是執行程序
F8是單步執行
F9設置斷點
shift+F9可以監視表達式
alt+v+x可以快速顯示出工具框
ctrl+F是查找窗口
Ctrl+g是立即窗口
ctrl+左右鍵頭可以移動控制項
shift+左右鍵頭調整控制項大小
ctrl+home jump to 首行
ctrl+end jump to 末尾
Shift+F2 到定義處
Ctrl+shift+F2 到上次編輯處
F7 切換到編輯窗口
Ctrl+W 編輯監視窗口

幾個常用的:
ctrl+R 項目窗口
F4 屬性窗口
ctrl+G 立即窗口
ctrl+E 菜單編輯器
F9 斷點
Ctrl+I 查看定義,參數屬性等

9. vb快捷鍵

把下面代碼放到標注模塊里,通過裡面的函數注冊系統級的熱鍵
Option Explicit
'這部分代碼 放在標准模塊里 也就是一般說的BAS模塊
'為應用程序增加熱鍵功能。結合子類技術,用自己定義的窗口消息處理函數,響應熱鍵操作
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
Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetTickCount Lib "kernel32" () As Long

Public Const WM_HOTKEY = &H312
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4

Public Const GWL_WNDPROC = (-4)
Public Const SW_SHOW = 5

Public preWinProc As Long '保存窗口原來的消息處理函數地址
Public idHotKey As Long '保存熱鍵的唯一性標識id
Public Modifiers As Long '保存輔助鍵組合信息 比如CTRL+A中的CTRL
Public uVirtKey As Long '保存虛擬鍵信息 比如CTRL+A中的A
Public strHotKey As String '熱鍵的表達式

Public Function WindowProc(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 '核對唯一性標識
'ShowWindow hwnd, SW_SHOW '執行自定義操作(本例為顯示本程序窗口)

SetWindowPos hwnd, HWND_TOP, 0, 0, 200, 200, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
If blnTrayIcon Then RemoveFromTray: blnTrayIcon = False
If frmMain.WindowState = 1 Then frmMain.WindowState = 0

SetForegroundWindow hwnd
End If
End If
'如果不是熱鍵信息則調用原來的消息處理程序
WindowProc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function

Public Function SetMyHotKey(ByVal hwnd As Long) As String
'設置熱鍵並保證唯一性,基本規則是CTRL+ALT+(A~Z)。
'注冊熱鍵;修改窗口消息函數為自定義函數
'返回熱鍵組合的文字描述,用於顯示給用戶看
preWinProc = GetWindowLong(hwnd, GWL_WNDPROC) '獲得原來的窗口消息函數地址
SetWindowLong hwnd, GWL_WNDPROC, AddressOf WindowProc '用自定義函數代替原來的窗口消息函數
Modifiers = MOD_CONTROL + MOD_ALT
idHotKey = GlobalAddAtom(Format(GetTickCount)) '獲得可用的ID號
For uVirtKey = vbKeyA To vbKeyZ '從A-Z找到一個可用的熱鍵組合
If RegisterHotKey(hwnd, idHotKey, Modifiers, uVirtKey) Then Exit For
Next
SetMyHotKey = "CTRL + ALT + " + Chr(uVirtKey)
End Function

Public Function DelMyHotKey(ByVal hwnd As Long) As Long
'注銷熱鍵
UnregisterHotKey hwnd, idHotKey '注銷熱鍵
SetWindowLong hwnd, GWL_WNDPROC, preWinProc '恢復窗口默認的消息函數
End Function

10. VB左邊的工具欄被我關掉了怎麼打開

1、首先打來開需要操作的VB應用程序,進自入到操作界面中。

閱讀全文

與vb中工具箱的快捷鍵是什麼相關的資料

熱點內容
儀表盤分為三格是什麼車 瀏覽:59
軸承如何裝入軸承座 瀏覽:192
免費電影網站無廣告 瀏覽:631
西安朝陽門附近的電動工具租賃站 瀏覽:578
變頻空調制熱怎麼一直製冷 瀏覽:812
立式暖氣片閥門開關示意圖 瀏覽:65
家庭式自動上水裝置 瀏覽:830
姖少工具箱安卓0 瀏覽:126
類似聊齋艷譚的電影 瀏覽:422
一部電影要多少MB 瀏覽:187
大金kfr35加什麼製冷劑 瀏覽:334
古代檢測裝置有什麼用 瀏覽:87
電梯里相遇韓劇電影 瀏覽:601
煤礦上一般需要什麼閥門 瀏覽:681
仲邑五金製品有限公司 瀏覽:353
熱工自動裝置檢修中級工 瀏覽:292
韓國有一部叫做跟兒媳婦 瀏覽:954
交叉分子束實驗裝置 瀏覽:463
設備技術轉讓是什麼意思 瀏覽:420
香港大尺度電影大全 瀏覽:990