预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共37页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

第四章常用控件常用事件1、Click事件使用最普遍的一个事件。当有下列情况之一时,将同时执行Click事件中的代码:(1)单击一个控件;(2)当按钮,当选钮,组合框具有焦点时,按下Space键;(3)通过箭头键或鼠标键在组合框,列表框中选择项目时;(4)在窗体中存在Default属性为True的按钮且按回车键时;(5)在窗体中存在Cancel属性为True的按钮且按Esc键时;(6)按下某一个控件的访问键时。2、Dblclick事件此事件也称为鼠标双击事件。双击事件只能通过鼠标对控件或项目的双击而引发;但是命令按钮不支持。如果一个控件既有Click事件代码,又有Dblclick事件代码,则Dblclick事件将永远不会被触发,因为Click事件是两个事件中首先被触发的事件。其结果是鼠标单击被Click事件截断,从而使Dblclick事件不会发生。 3、Gfotocus/LostFocus事件对象的焦点只有一个,一个对象得到焦点也就意味着其他对象要失去焦点。按Tab键或单击对象时,会引起焦点的移动。对象得到焦点时将引发GotFocus事件,而对象失去焦点时将引发LostFocus事件。4、ValiDate事件几乎所有的控件都具有ValiDate事件,ValiDate事件是在控件的焦点转移到其他控间之前发生,也即它是在控件失去焦点之前发生的,而LostFocus事件是在控件失去焦点之后发生的。因此,ValiDate事件更适合数据输入验证。ValiDate事件应与控件的CausesValidation属性联合使用才能发挥作用。5、KeyPress事件KeyPress事件是在用户按动键盘上任何一个可打印的字符时发生的,只有能接受键盘输入的控件才能有KeyPress事件。KeyPress事件还有一个参数KeyAscii,用来返回击键的ASCII码,利用这个参数可以对所输入的字符进行格式转换。例如:Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char))‘Ucase()为大写转换函数KeyPress事件并不能识别功能键(F1~F12)和编辑键(如:Insret,Home等)的击键动作,要捕获这些按键可以采用KeyDown和KeyUp事件过程。 Tab键顺序所谓获得焦点“利用Tab键”,是指在按动Tab键时,焦点在控件之间的转移顺序。在程序的运行过程中,当连续按动Tab键时,焦点就会在文本框,确定按钮和退出按钮3个控件间循环切换(当然假设文本框中不含有ValiDate与LostFocus事件过程时)。对于无效的,不可见的以及不能接受焦点的控件尽管都具有自己的TabIndex属性值,但Tab键将跳过这些控件。显然只要改变控件的TabIndex值即可以改变其在Tab键中的顺序。当一个控件的TabIndex值改变或某个控件删除后,系统会自动对其他控件的TabIndex属性重新编号。例如:CmdOK.TabIndex=0‘此语句确定按钮的Tab键顺序改为第一个。 控件数组控件数组是由具有相同名称和类型并具有相同事件过程的一组控件构成。每个控件数组至少有1个元素,最多可有32767个元素。第一个下标也是0.1、控件数组的应用在程序设计中,使用控件数组添加控件所消耗的资源比直接向窗体添加多个相同类型的控件消耗的资源少,而且如果希望若干个控件共享代码时,控件数组也很有用。例如:PrivateSubcmdGroup_Click(IndexAsInteger)’Index为引发该事件的按钮值SelectCaseIndexCase0‘按第一个按钮时执行的代码……Case1‘按第二个按钮时执行的代码……EndSelectEndSub 2、控件数组的创建4.2图片框和图像框图像框(ImageBox)图像框与图片框的区别4.3单选按钮和复选按钮 二、事件 单选按钮和复选框都能接收Click事件。当用户单击单选按钮或复选框时,它们会自动改变状态。 例:通过单选按钮和复选框设置文本框的字体。界面如下图所示。 事件过程如下: ‘有关单选按钮和复选框的例子 SubOption1_Click() Text1.Font.Name=”宋体” EndSub SubOption2_Click() Text1.Font.Name=”黑体” EndSub SubCheck1_Click() Text1.Font..Bold=NotText1.Font.Bold EndSub SubCheck2_Click() Text1.Font.Italic=NotText1.Font.Italic EndSub SubCheck3_Click() Text1.Font.Strikethrough=NotText1.Font.Strikethrough EndSub S