vb窗體雙擊事件怎么寫 _窗體

1.VB窗體的窗體的事件及說明：(1)Click 事件。在程序運行時單擊窗體內的某個位置，Visual Basic將調用窗體的Form_Click事件。如果單擊的是窗體內的控件，則只能調用相應控件的Click事件。
示例代碼： Private Sub Form_Click() Caption = 鼠標單擊 Print 歡迎使用VB End Sub 代碼說明：標題欄顯示“鼠標單擊”，窗體顯示歡迎使用VB 。
(2)DblClick 事件。程序運行時雙擊窗體內的某個位置，就觸發了兩個事件，第一次按動鼠標時，觸發Click事件，第二次產生DblClick事件。
(3)Initialize初始化事件與 Load事件。在程序運行時，當窗體被裝入工作區時開始為Initialize之后才觸發它的Load事件。所以該事件通常用來在啟動應用程序時，對控件屬性和變量初始化。
(4)Unload事件。卸載窗體時觸發該事件。
(5)Resize事件。當窗體大小發生改變時，將觸發一個Resize事件。
(6)Activate和Deactivate事件。Activate，當一個對象成為活動窗口時發生。Deactivate，當一個對象變為非活動（Deactivate）事件當在程序運行過程中，一個窗體變為非活動窗體時，則產生該事件。
(7)MouseDown事件。按下鼠標任意鍵時產生
(8)MouseMove事件。按下鼠標任意鍵，并移動鼠標時產生。
(9)MouseUp事件。放開鼠標任意鍵時產生。
(10)DragDrop事件。鼠標點住某一對象并拖動，直到放開鼠標鍵時才發生該事件，在拖放過程中，不發生DragDrop事件。
(11)KeyDown事件和KeyUp事件。按下鍵盤上的任意一個鍵，就會引發當前具有焦點的對象的KeyDown事件。釋放時，則會引發該對象的KeyUp事件。
(12)KeyPress事件。按下鍵盤上與ASCII字符對應的鍵時，觸發KeyPress事件。KeyPress事件能識別的ASCII字符包括：字母鍵、數字鍵、標點符號鍵以及Enter鍵、Tab鍵和Backspace鍵。也就是說，在鍵盤上除了按這些鍵以外，按其它鍵不會引發KeyPress事件。ASCII碼值是以按鍵上的字符為準。同一按鍵上的字符有大小之分，所以按下同一個鍵時，ASCII碼值是不一樣的。例如，“A”和“a”的ASCII碼值不一樣。
(13)Paint事件。窗體重繪事件，窗體被移動或放大之后，或在一個覆蓋該窗體的窗體被移開之后，該對象部分或全部暴露時，此事件發生。如果需要代碼中各種圖形方法的輸出，則 Paint 事件過程就很有用。使用 Paint 過程，可以確保這樣的輸出在必要時能被重繪。
2.如何在vb窗體設計中設置單擊按鈕事件過程VB中只需在另一窗體的文本框控件名前加上該窗體名做前綴后給與賦值。
Option ExplicitPrivate Sub Command1_Click() Form2.Text1 = Me.Text1End SubPrivate Sub Command2_Click() Form2.ShowEnd SubPrivate Sub Form_Load() Text1 = "VB中只需在另一窗體的文本框控件名前加上該窗體名做前綴后給與賦值。"End Sub 。
3.vb雙擊窗體如何表示Private Sub Form_Click()
Form1.Cls
Print "Visual Basic程序設計教程"
End Sub
Private Sub Form_DblClick()
Form1.Cls
End Sub
Private Sub Form_Load()
Form1.FontSize = 24
Form1.FontItalic = True
Form1.FontUnderline = True
Form1.Font = "楷體_GB2312"
End Sub 這個就是這個問題的代碼了，看看你還有什么不明白的地方，都是可以到問問堂來找專業的程序方面的專家來為你在線解答的。
4.如果鼠標雙擊則引發事件的VB代碼怎么寫幫幫忙不用那么啰嗦。
○在窗體中輸入以下代碼：Private Sub Command1_Click() lHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)End SubPrivate Sub Command2_Click() UnhookWindowsHookEx lHookEnd Sub○新建一個模塊，輸入以下代碼：Option ExplicitPublic Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As LongPublic Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As LongPublic Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)Public Type MOUSEMSGS X As Long 'x座標 Y As Long 'y座標 a As Long b As Long time As Long 'Window運行時間End TypePublic Type POINTAPI X As Long Y As LongEnd TypePublic Const WH_MOUSE_LL = 14Public Const HC_ACTION = 0'鼠標消息Public Const WM_LBUTTONDOWN = &H201Public Const WM_LBUTTONUP = &H202Public Const WM_RBUTTONDOWN = &H204Public Const WM_RBUTTONUP = &H205Public MouseMsg As MOUSEMSGSPublic lHook As Long'----------------------------------------'模擬鼠標Private Const MOUSEEVENTF_LEFTDOWN = &H2Private Const MOUSEEVENTF_LEFTUP = &H4Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)'鼠標鉤子Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim pt As POINTAPI If code = HC_ACTION Then CopyMemory MouseMsg, lParam, LenB(MouseMsg) If wParam = WM_RBUTTONDOWN Then '把中鍵改為左鍵 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 CallMouseHookProc = 1 End If If wParam = WM_RBUTTONUP Then mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 CallMouseHookProc = 1 End If End If If code 0 Then CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam) End IfEnd Function 。