用API函數(shù)，以下代碼Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
創(chuàng)新互聯(lián)建站成都企業(yè)網站建設服務，提供網站設計制作、成都網站制作網站開發(fā),網站定制,建網站,網站搭建,網站設計,響應式網站設計,網頁設計師打造企業(yè)風格網站,提供周到的售前咨詢和貼心的售后服務。歡迎咨詢做網站需要多少錢:028-86922220
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = H2
Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMosT = -1
Private Const SWP_NOMOVE = H2
Private Const SWP_NosIZE = H1
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_KEYDOWN = H100
Const WM_KEYUP = H101
Const WM_CHAR = H102
Const VK_F1 = H70
Private Sub SendF1(hwnd) '調用這個過程即可對目標窗體發(fā)送F1鍵
Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)
Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)
End Sub這里是發(fā)送F1的實例，各個按鍵對應的虛擬鍵碼，要到網上查
1． F12：轉到定義；Shift+F12：轉到引用
2． F5：啟動；Ctrl+F5：開始執(zhí)行（不調試）；Shift+F5：停止調試
3． F7：查看代碼；Shift+F7：查看視圖設計器
4． Ctrl+Alt+L：解決方案資源管理器
5． Ctrl+Alt+J：對象瀏覽器
6． F4：顯示屬性窗口
7． Ctrl+Alt+X：工具箱
8． Ctrl+Alt+C類視圖
9． Alt+Enter：查看屬性
10．F10：逐過程調試
11．F11：逐語句調試
12．Ctrl+B：新斷點
13．Ctrl+Shift+F9：清除所有斷點
14．Ctrl+Shift+B生成解決方案
15．Shift+Alt+Enter：全屏
16．大綱顯示：Ctrl+M, Ctrl+M：切換大綱顯示展開；Ctrl+M, Ctrl+L：切換所有大綱顯示；Ctrl+M,Crtl+P停止大綱顯示；Ctrl+M, Ctrl+O：折疊到定義
17．智能感知：Ctrl＋J：列出成員；Ctrl+Shift+空格：參數(shù)信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭頭鍵：完成單詞
vb點虐 教程之vb點虐 的Button控件
vb點虐 的Button控件
Button(按鈕)控件一般接受鼠標單擊事件被用來啟動、中斷或結束一個進程（相當于Visual Basic以前版本的CommandButton控件）。單擊Button控件時將調用已寫入Click事件過程中的過程。Button控件在大多數(shù)Visual Basic應用程序中都會用到，用戶可以單擊按鈕執(zhí)行操作。單擊時，按鈕不僅能執(zhí)行相應的操作，而且看起來與被按下和松開一樣。Button控件在工具箱中的圖標如圖所示：
1.向窗體添加按鈕
在應用程序中很可能要使用多個按鈕。就象在其他容器控件上繪制按鈕那樣，從工具箱里把Button控件直接拖到窗體上即可?？捎檬髽苏{整按鈕的大小，也可通過設置Location（坐標，用來確定控件相對窗體左上方頂點的位置）和Size（大小，第一個參數(shù)代表寬度，第二個參數(shù)代表高度）屬性進行調整。
2.設置按鈕顯示文本
可用Text屬性改變按鈕上顯示的文本。設計時，可在控件的“屬性窗口”中設置此屬性。在設計時設置Text屬性后將動態(tài)更新按鈕文本。Text屬性最多包含255個字符。若標題超過了命令按鈕的寬度，則會折到下一行。但是，如果控件無法容納其全部長度，則標題會被剪切?？梢酝ㄟ^設置Font屬性改變在命令按鈕上顯示的字體。
3.創(chuàng)建鍵盤快捷方式
可通過Text屬性創(chuàng)建按鈕的訪問鍵快捷方式。為此，只需在作為訪問鍵的字母前添加一個連字符（）。例如，要為標題“Ok”創(chuàng)建訪問鍵，應在字母“O”前添中連字符，于是得到“Ok”。運行時，字母“O”將帶下劃線，同時按Alt+O鍵就可執(zhí)行單擊按鈕程序所執(zhí)行的動作。
注意：如果不創(chuàng)建訪問鍵，而又要使標題中包含連字符，應添加兩個連字符（）。這樣，在標題中就只顯示一個連字符。
4.選定按鈕
運行時，可用鼠標或鍵盤通過下述方法選定按鈕：
(1)用鼠標單擊按鈕；
(2)按Tab鍵，將焦點轉移到按鈕上，然后按Enter鍵選定按鈕；
(3)按按鈕的訪問鍵（[Alt+帶有下劃線的字母]）。
5.Click事件
運行時單擊按鈕，將觸發(fā)按鈕的Click事件并執(zhí)行寫入Click事件過程中的代碼，同時，單擊按鈕的過程也將生成MouseMove、MouseLeave、MouseDown和MouseUp等事件。如果要在這些相關事件中附加事件過程，則應確保操作不發(fā)生沖突。對控件的操作不同，這些事件過程發(fā)生的順序也不同。Button控件的單擊事件發(fā)生順序為：
MouseMove→MouseDown→Click→MouseUp→MouseLeave
注意：如果用戶試圖雙擊按鈕控件，則其中每一次單擊都將分別處理；也即按鈕控件不支持雙擊事件。
6.增強按鈕的視覺效果
按鈕控件象復選框和選項按鈕一樣，可通過Image屬性設置Button控件上的圖標以增強視覺效果，然后設置圖標（圖片）的屬性：ImageAlign顯示圖標（圖片）的位置。通過設置ImageIndex（圖片在圖片框中的索引）以及ImageList（圖片框）則可實現(xiàn)如下的效果，比如要向按鈕添加圖標或位圖，或者在單擊、禁止控件時顯示不同的圖象等等。
重慶分公司
重慶分公司
