Vb常见事件
VB常用控件的事件详解
当窗体变为活动窗体时发生此事件，此事件比Load事件发生得晚，事件处理过程原形
Private Sub Form_Activate()
End Sub
此事件常用于激活窗体后对窗体进行初始化，比Load事件功能强。
Click
(单击)
当用户单击窗体时发生此事件，事件处理过程原形
Private Sub Form_Click()
Shift 转换键，意义如下：
0 没有转换键按下
1 Shift键按下
2 Ctrl键按下
3 Alt键按下
当多个转换键同时按下时，应把几个键对应的数值相加
KeyPress
(敲击键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户敲击键盘上某个键时发生此事件，事件处理过程原形
Private Sub Form_KeyPress(KeyAscii As Integer)
End Sub
形参的意义：
KeyAscii 按键Ascii码
若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。
KeyUp
(释放键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键后释放时发生此事件，事件处理过程原形
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
End Sub
KeyDown
(按下键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键时发生此事件，事件处理过程原形
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
VB中的键盘事件、鼠标事件、拖放技术
VB中的键盘事件、鼠标事件、拖放技术键盘事件：参数是KeyAscii，每次按一下键盘上的一个键，相应的键的Ascii码值都要赋给参数KeyAscii，然后再执行相应的操作KeyPreview：接受键盘事件。
默认情况下，窗体的KeyPreview 属性为False，只有窗体获得焦点才能相应键盘事件；若窗体的KeyPreview属性为True，窗体会在空件之前首先截获键盘事件。
Shift And 7: 取Shift参数的低三位，因为7的二进制数是111，shift参数与111进行按位And运算，得到是按了三个功能键中的哪一个。
命令按钮控件的default属性用于设置默认命令按钮.，设置为true时,按[Enter键]相当于用鼠标单击了该按钮，Cancel属性为True，则Esc键触发按钮的Click事件快捷键的优先级高于键盘事件，鼠标事件：参数X和Y表示鼠标指针的位置Clc：清除图像。
划线函数Line格式：Line (x1, y1) -(x2, y2), [color], [B][F](x1, y1) 可选的。
Single （单精度浮点数），直线或矩形的起点坐标。
(x2, y2) 必选的。
Single （单精度浮点数），直线或矩形的终点坐标。
color 可选的。
Long （长整型数），画线时用的 RGB 颜色，可用RGB函数B 可选的。
如果包括，则利用对角坐标画出矩形。
F 可选的。
如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。
不能不用 B 而用F。
例：Line (0, 0)-(X, Y), vbGreen, BF拖放技术:DragMode属性：0—手动拖放，1—自动拖放DragDrop事件：Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)Source.Move X, YEnd Sub---Source表示拖放的控件，即DragMode属性为1的控件；xy 表示鼠标指针的位置坐标。
VB编辑excel常用事件及常见错误
Excel几个常用事件：1>如果出现某一事件，退出到原始界面：Private sub command1_click()If ….. thenExit subEnd sub2>打开或者新建excel:Dim exlapp as excel.applicationDim exlbook as excel.workbookDim exlsheet as excel.worksheetSet exlapp=getobject(,”excel.application”) 如果当前excel在运行，就不必新建If err.number<>0 thenSet exlapp=createobject(,”excel.application”)End ifErr.clearSet exlapp = createobject(“excel.application”) // 创建excel对象(a)Set exlbook =exlapp.workbooks.open(“c:\a.xls”) //打开存在的excel文件或者(b)Exlapp.workbooks.open”c:\a.xls” //打开存在的excel文件，没有的话，新建或者open (app.path &”\a”)Set x1Sheet = xlBook.Worksheets("sheet1")3>将文本中的内容存到excel中:(a):Open”book1.exl” for append as #1Print #1,text1.textClose #1注:可以有for input/output/append 区别如下：input表示从打开的文件中读取数据，以input打开的文件必须存在，否则会错误；output表示想打开的文件中写入数据，以output 打开文件时，文件原有数据将被覆盖，如果文件不存在，则新建一个文件；append表示向文件中添加数据，以这种方式写入数据，原数据不会被覆盖，是以追加的形式写入的。
VB的窗体事件
什么是窗体事件Click、Load、Dblclick、KeyDown、KeyPress、KeyUp、MouseDown、MouseMove、MouseUp、Unload 等在Visual Basic应用程序中，窗体的事件(Event)就是指由Visual Basic预先定义好的，能够被窗体对象所识别的动作。
事件可以由用户激发，也可以由系统激发。
窗体是控件的载体，是程序运行的主要场所，一些程序运行所必须的初始化操作和退出前的善后工作，往往要在窗体创建及退出时被激活的事件过程中进行。
下面我们边了解窗体的生命历程：创建状态、加载状态、可见状态和卸载状态，边学习各阶段会发生的事件。
常用窗体事件（1）Click 事件在程序运行时单击窗体内的某个位置，Visual Basic将调用窗体的Form_Click 事件。
如果单击的是窗体内的控件，则只能调用相应控件的Click事件。
Click 事件：标题栏显示“鼠标单击”，窗体显示"欢迎使用VB"Private Sub Form_Click()Caption = "鼠标单击"Print "欢迎使用VB"End Sub（2）DblClick 事件程序运行时双击窗体内的某个位置，就触发了两个事件，第一次按动鼠标时，触发Click事件，第二次产生DblClick事件。
DblClick 事件：标题栏显示“双击窗体” ，清除背景图。
Private Sub Form_DblClick()Caption = "鼠标双击"Picture = LoadPicture("")Print "结束使用VB"End Sub(3) Initialize初始化事件与 Load事件在程序运行时，当窗体被装入工作区时开始为Initialize之后才触发它的Load 事件。
所以该事件通常用来在启动应用程序时,对控件属性和变量初始化Private Sub Form_Load()Caption = "装入窗体"Picture = LoadPicture ( App.Path + "\window.jpg")FontSize = 48FontName = "隶书"Print "装入窗体"End Sub(4) Unload事件Private Sub Form_Unload(cancel As Integer)卸载窗体时触发该事件。
vb的click显示
vb的click显示VB的Click事件是一个非常常用的事件，它可以用来响应用户在某个控件上单击的操作。
在实际的开发中，我们经常需要使用Click 事件来完成一些任务，比如打开一个新的窗口、保存数据等等。
本文将介绍VB中Click事件的一些常见应用。
一、Click事件的基本概念在VB中，Click事件是一个非常基础的事件，用于响应用户在某个控件上单击的操作。
当用户单击某个控件时，程序会自动触发该控件上的Click事件，从而执行相应的代码。
Click事件通常与按钮控件一起使用，用于实现用户点击按钮后执行特定的操作。
在VB中，我们可以使用按钮控件的Click事件来实现一些常见的功能，比如打开一个新的窗口、执行某个操作等等。
二、Click事件的应用1、打开新的窗口在VB中，我们可以使用Click事件来实现打开新的窗口的功能。
具体实现方法如下：Private Sub Button1_Click()Form2.ShowEnd Sub上述代码中，我们定义了一个按钮控件Button1，并为其添加了Click事件。
当用户单击该按钮时，程序会自动打开一个新的窗口Form2。
2、保存数据在VB中，我们可以使用Click事件来实现保存数据的功能。
具体实现方法如下：Private Sub Button1_Click()Dim str As Stringstr = TextBox1.TextOpen "D:\data.txt" For Output As #1Write #1, strClose #1End Sub上述代码中，我们定义了一个按钮控件Button1，并为其添加了Click事件。
当用户单击该按钮时，程序会自动将文本框TextBox1中的内容保存到文件D:\data.txt中。
3、执行某个操作在VB中，我们可以使用Click事件来执行某个操作。
具体实现方法如下：Private Sub Button1_Click()Dim num1 As Integer, num2 As Integer, sum As Integernum1 = Val(TextBox1.Text)num2 = Val(TextBox2.Text)sum = num1 + num2MsgBox "两数之和为：" & sumEnd Sub上述代码中，我们定义了一个按钮控件Button1，并为其添加了Click事件。
VB事件慨述
VB事件慨述{ 窗体和图象框类事}Paint事件：当某一对象在屏幕中被移动，改变尺寸或清除后，程序会自动调用Paint事件。
注意：当对象的AutoDraw属性为True（－1）时，程序不会调用Paint事件。
Resize事件：当对象的大小改变时触发Resize事件。
Load事件：仅适用于窗体对象，当窗体被装载时运行。
Unload事件：仅适用于窗体对象，当窗体被卸载时运行。
{当前光标（Focus）事件}GotFocus事件：当光标聚焦于该对象时发生事件。
LostFocus事件：当光标离开该对象时发生事件。
注意：Focus英文为“焦点”、“聚焦”之意。
（鼠标点击的意思）{鼠标操作事件}Click事件：鼠标单击对象。
DbClick事件：鼠标双击事件。
MouseDown、MouseUp属性：按下/放开鼠标键事件。
MouseMove事件：鼠标移动事件。
DragDrop事件：拖放事件，相当于MouseDown、MouseMove和MouseUp的组合。
DragOver事件：鼠标在拖放过程中就会产生DragOver事件。
{键盘操作属性}KeyDown、KeyUp事件：按键的按下/放开事件。
KeyPress事件：按键事件。
{改变控制项事件}Change事件：当对象的内容发生改变时，触发Change事件。
最典型的例子是文本框（TextBox）。
DropDown事件：下弹事件，仅用于组合框（ComboBox）对象。
PathChange事件：路径改变事件，仅用于文件列表框（FileBox）对象。
(完整word版)VB常用控件的事件详解
形参的意义：
X、Y 鼠标移动过程中的瞬时坐标
其它各参数的意义请参阅MouseDown事件
MouseUp
(释放鼠标）
当鼠标在窗体上，用户释放鼠标键时发生此事件,事件处理过程原形
Private Sub Form_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）
End Sub
形参的意义：
X、Y 鼠标移动释放时的瞬时坐标
其它各参数的意义请参阅MouseDown事件
OLECompleteDrag
当源部件被放到目标部件时发生此事件,并通知源部件拖放操作被执行或取消。事件处理过程原形
Private Sub Form_OLECompleteDrag(Effect As Long)
2.04CoolBar控件的事件
2。05数据组合框(DataCombo）控件的事件
2。06数据型电子表格（DataGrid)控件的事件
2。07数据列表（DataList)控件的事件
2。08DTPicker控件的事件
2.09平面滚动条(FlatScrollBar)控件的事件
2。10图像组合框(ImageCombo）控件的事件
Private Sub Form_DragOver（Source As Control， X As Single， Y As Single， State As Integer）
End Sub
形参的意义：指针在目标窗体或控件中水平（X）和垂直(Y)位置的数字。
Shift 转换键，意义如下：
0 没有转换键按下
1 Shift键按下
2 Ctrl键按下
vb窗体所有事件（2）
vb窗体所有事件（2）vb窗体所有事件（2）2009-10-03 21:21l KeyDown事件：按下键盘上的任意键l KeyUp事件：释放键盘的任意键l KeyPress事件：按下对应某ASCII字符的键（11）KeyDown事件和KeyUp事件按下键盘上的任意一个键，就会引发当前具有焦点的对象的KeyDown事件。
释放时，则会引发该对象的KeyUp事件。
以窗体为例，KeyDown事件和KeyUp事件的语法如下：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)①Keycode参数KeyCode参数是一个整数，返回所按键的键码值。
键码值是以“键”为准。
例如，由于大写字母和小写字母使用同一键，因此“A”和“a”的键码值是相同的。
又如大键盘上的数字“1”和小建盘上的数字“1”，虽然是同一数字，但由于键不同，它们的键码值也不相同。
常用键的键码值如表4-1所示：表4-1 常用键的键码值②Shift参数Shift参数是一个整数值，返回Shift、Ctrl、Alt的状态。
只有检查此状态才能判断输入的是大写还是小写字母。
Shift参数用来判断是否按下了键盘上的Shift、Ctrl和Alt，或这3个键的任意组合，其对应的关系如表4-2所示：表4-2 Shift的取值和Shift、Ctrl和Alt组合状态的对应关系下面的代码将测试你当前按下的键，并通过消息框告诉你。
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Dim ShiftKey As IntegerShiftKey = Shift And 7 '7对应为1+2+4Select Case ShiftKeyCase 1 '或VbShiftMaskMsgBox "You pressed the Shift key."Case 2 '或VbCtrlMaskMsgBox "You pressed the Ctrl key."Case 4 '或VbAltMaskMsgBox "You pressed the Alt key."End SelectEnd Sub。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
返回
Optionbutton控件
Optionbutton（单选框）控件显示一个可 选择的文字或图形提示，是用多个 optionbutton控件可构成单选按钮组，在 一个单选按钮组中只能同时选中一个， 需要是用frame控件对其分组
Vb常见事件
Chick事件 我的军阀生涯 /0/116/
Dblchick事件
Gotfocus事件
Lostfocus事件
Mousemove事件
Chick事件
当在控件上按下并释放鼠标按钮（单击） 时发生该事件，对于form对象，单击空 白区域或无效控件‘ 时发生该事件
示禁止
返回
返回
Lostfocus事件
当对象失去焦点时触发该事件，按下tab 键或单击其他对象，当前对象将失去焦 点，在代码中使用setfocus方法也可改变 焦点
返回
Mousemove事件
在对象范围内移动鼠标发生该事件
Mousemove事件随鼠标指针的移动连续 发生，只要鼠标位置在对象的边界范围 内，该对象就连续发生mousemove事件
返回
Checkbox控件
Checkbox控件称为“选择框”或“复选 框”，提供用户多选择，选择该控件后， 显示选定标记√，可以选择一组checkbox 控件中的一个或多个。
如果需要在checkbox后显示文本，则设
置caption属性。Value属性用于确定控件
的状态，ቤተ መጻሕፍቲ ባይዱ表示选定，0表示未选定，2表
如果在 Click事件中有代码，将不触发 Dlbclick事件，因为在两个事件中首先触 发click事件，并屏蔽Dlbclick事件
返回
Dblclick事件
当双击对象是，触发该事件，对于窗体， 当双击禁用控件或窗体的空白区域时， 该事件发生
我的军阀生涯 /0/116/
返回
Vb常用控件
Commandbutton控件 Textbox控件 Label控件 Picturebox控件 Frame控件 Optionbutton控件 Checkbox控件
Frame控件
Frame控件是一个容器控件，它可以为控 件提供可标识的分组。Frame可以在功能 上进一步分割一个窗体，主要与 optionbutton控件一起使用
如果程序中有在click事件中处理的代码， 则dlbclick事件将永远也不会触发
返回
Gotfocus事件
当对象获得焦点时发生该事件，为获得 焦点，用户可以通过tab切换或单击对象 等操作或在代码中用setfocus方法设置焦 点
只有当控件的enabled和visible属性均设 置为true时，方可接收焦点，才会发生该 事件