vb程序设计第2版第9章

《vb程序设计第2版第9章》由会员分享，可在线阅读，更多相关《vb程序设计第2版第9章（69页珍藏版）》请在金锄头文库上搜索。

1、1,第9章,常用内部控件,本章要点: 控件的公共属性 鼠标和键盘事件 常用内部控件 动画控件和多媒体控件,2,9.1 控件的公共属性,1. Name属性 Name属性用于标识窗体、控件、或数据访问对象的名称。在属性窗口的属性名为“(名称)”,注意： 1) Name属性运行时是只读的 2) 新建立的控件有其缺省名称，如Text1、Text2 3) 以字母开始, 最长40个字符，可包括字母、数字和下划线，不能包括标点符号或空格(允许汉字) 4) 控件数组的名称: Name(Index) 例如：Text1(0)、Text1(1) Command1(0)、Command1(1),3,2. Captio

2、n属性 Caption属性用于设置或返回对象的标题或在对象上显示的文字。,注意： 1) 当创建一个新的对象时，其缺省Caption属性值与其缺省的Name属性值相同。 2) 使用&符号可以为某些控件创建访问键，如果需要在标题中加入一个“&”符号而不是创建访问键，需在标题中加入连续的两个“&”符号。 3) Label控件标题大小没有限制。其他有标题的控件，标题大小限制为255个字符。 3) 注意与Name属性、Text属性的区别。,4,3. Enabled属性 决定控件是否能够对用户产生的事件作出响应。 4. Visible属性 用来确定一个窗体或控件是否可见。 注意: 如果在属性窗口中将控件的

3、Visible属性设置为False，则控件在设计窗体上仍是可见的，仅在运行时才不可见。 5. Left、Top、Height、Width属性,对于窗体，这些属性总是以缇为单位表示；对于控件，它们的度量单位取决于其容器的坐标系统。,5,6. BackColor、ForeColor属性 BackColor属性用来设置或返回控件的背景颜色。ForeColor属性用来设置或返回在控件里显示的图形或文本的颜色（前景颜色）。,注意： 1) 在Label和Shape控件中，如果BackStyle属性的设置值为0(透明)，则忽略BackColor属性。 2) 如果在Form对象或PictureBox控件中设置

4、BackColor属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。 3) 设置ForeColor属性值不会影响已经打印的文本或绘制的图形。,6,7. FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性 分别对应于： 字体、字号、粗体、斜体、删除线、下划线 8. Font对象属性 在设计时在属性窗口需要进一步打开对话框进行设置。 在代码中的使用格式: .Font. : Name、Size、Bold、Italic、 Underline、Strikethrough 例: Form1.Font.Size

5、 = 14 Command1.Font.Italic = True 【例9-1】自学 P170 例9-1,7,9MousePointer、MouseIcon属性 MousePointer属性：返回或设置一个值，指示在运行时当鼠标移动到对象上时要显示的鼠标指针的类型。 015：使用系统定义的鼠标指针类型 99 :使用自定义的鼠标指针类型，鼠标指针为通过MouseIcon属性所指定的图标。 MouseIcon属性：设置在运行时当鼠标移动到对象上时要显示的图标，在MousePointer属性设置为99时使用。,8,9.2 鼠标和键盘事件,Visual Basic应用程序可以响应多种鼠标与键盘事件。例

6、如，鼠标事件有单击、双击、按下、抬起、移动、拖动等，键盘事件有按键的按下、抬起等。利用这些事件可以编写响应各种事件的应用程序。,9,9.2.1 鼠标事件,1. MouseDown、MouseUp事件 MouseDown事件：在按下鼠标按钮时发生； MouseUp事件：在释放鼠标按钮时发生。 例如，某按钮的MouseDown事件过程如下： Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Button ：根据所按下或抬起的是鼠标的左按钮、右按钮

7、还是中间按钮返回一个整数。见P171 Shift： 根据在按下或释放鼠标按钮时是否同时按下Shift、Ctrl或Alt键返回一个整数。见P172 X、Y：返回鼠标指针在对象上的当前位置。默认单位为缇。,10,2MouseMove事件 当鼠标指针在对象上移动时发生该事件。 例如，窗体的MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub （Button 、Shift、X和Y参数的作用同前）,注意：当鼠标指针在对象上移动时，

8、并不是经过每个像素都会产生MouseMove事件，而是按每秒一定的次数生成MouseMove事件。由于应用程序能在短时间内识别大量的MouseMove事件，因此，不应在MouseMove事件过程中编写需要大量计算时间的程序。,11,【例9-2】在窗体上移动鼠标时，将当前的鼠标位置显示在文本框中。如下图：,窗体的MouseMove事件过程如下： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = X : Text2.Text = Y End S

9、ub,12,9.2.2 键盘事件,1KeyPress事件 当用户按下并释放键盘上一个会产生ASCII码的按键时产生KeyPress事件。如按下数字键、字母键、Tab、Enter、BackSpace、Esc等都会产生KeyPress事件。 例如，某文本框Text1的KeyPress事件过程如下： Private Sub Text1_KeyPress(KeyAscii As Integer) End Sub,KeyAscii参数：与按键对应的ASCII码值。,13,注意： 对于同一个字母的按键，其大、小写形式返回不同的KeyAscii值。 只有当对象具有焦点时才可以接收KeyPress事件。 一个

10、窗体仅在它没有可视和有效的控件或KeyPreview属性被设置为True时才能接收该事件。 使用文本框的KeyPress事件可以及时对输入的内容进行检查，以保证输入内容的有效性。,14,【例9-3】对从文本框Text1输入的成绩进行有效性验证，如果输入的字符不是阿拉伯数字，则响铃，并消除该字符。 分析：可以在Text1的KeyPress事件过程中对参数KeyAscii的值进行判断。已知09的ASCII码为4857，所以当KeyAscii的值不在4857的范围内时，需要响铃（用Beep语句），并消除该字符（将KeyAscii设置为0）。 代码如下： Private Sub Text1_KeyPr

11、ess(KeyAscii As Integer) If KeyAscii 57 Then Beep 响铃 KeyAscii = 0 消除该字符 End If End Sub,15,2KeyDown、KeyUp事件,KeyDown事件: 在对象有焦点时按下按键时发生； KeyUp事件: 在对象具有焦点时松开按键时发生。 例如，某文本框Text1的KeyDown事件过程如下： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub,KeyCode: 返回所操作键的代码。在键盘上只要按的是同一个键，则返回的Key

12、Code值相同。例如，对于同一个字母按键，不管是大写还是小写形式，所返回的KeyCode值是相同的。VB为KeyCode值定义了符号常量，如vbKeyF1(F1键) 或 vbKeyHome(Home键)。 Shift: 根据在按键时是否按下Shift、Ctrl或Alt键返回一个整数。见P171表9-2。,16,【例9-3】在窗体上用Shape控件画一个圆形，用键盘上的“”、“”、“”、“”方向键移动该图形。,分析：键盘上的方向键“”、“”、“”、“”的KeyCode值分别为37、38、39、40，也可以分别用vbKeyLeft、vbKeyUp、vbKeyRight、vbKeyDown符号常量来

13、代替。在窗体的KeyDown事件过程中根据所返回的KeyCode值实现对图形的移动。,17,代码如下： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp Shape1.Top = Shape1.Top - 100 Case vbKeyDown Shape1.Top = Shape1.Top + 100 Case vbKeyLeft Shape1.Left = Shape1.Left - 100 Case vbKeyRight Shape1.Left =

14、Shape1.Left + 100 End Select End Sub,18,9.3 常用内部控件,框架（Frame） 图片框（PictureBox） 图像框（Image） 选项按钮（OptionButton） 复选框（CheckBox） 列表框（ListBox） 组合框（Combobox) 定时器(Timer) 滚动条(ScrollBar),19,9.3.1 框架(Frame),1. 作用: 作为容器，对控件进行分组；修饰界面。 2. 如何将控件放在容器中 选中容器，在容器中直接画 选中容器，粘贴控件 3. 如何检查控件是否在容器中 拖动容器，控件随容器移动； 拖动控件只能在容器中移动 4

15、. 选中框架中的多个控件: Ctrl+拖动；Shift+单击 5. 删除容器时，其中的控件随之被删除 6. 框架的常用属性 Caption: Font: Enabled:设置为False时框架中的控件无效。,20,9.3.2 图片框(PictureBox),1.作用 作为控件的容器；显示文字或图形。 显示图像 2.如何显示图像: 设置Picture属性 在属性窗口中设置 对象名.Picture=LoadPicture(“图形文件名“) 3.如何清除图像 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture() (也清除文字) 4.打印与清除文字 打印:对象名.

16、Print 清除:对象名.Cls 5.特点：自动调整控件大小以适应图像: AutoSize=True 不能延伸图形以适应控件的大小。,21,9.3.3 图像框(Image),1. 作用:显示图像 2. 如何显示图像: 设置Picture属性 在属性窗口中设置 对象名.Picture=LoadPicture(“图形文件名“) 3. 如何清除图像 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture() 4. 特点 可以自动调整控件大小以适应图像: 设 Stretch=False 可以延伸图形以适应控件的大小: 设 Stretch=True,22,9.3.4 选项按钮(OptionButton),1. 作用: 多选一(放在窗体上、或放在其他容器中) 2. 属性 1) Value True选中 False未选中 2) Alignment属性: 决定文本的对齐方式 0:文本左对齐 1:文本右对齐 3) Style控制外观 0: 呈现为旁边带有文本