vb双击窗体事件代码

1. vb窗体双击事件怎么写

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。

vb窗体双击事件怎么写