[工学]程序VB第3章.pptVIP

第3章 Visual Basic界面设计（下） 学习重点 键盘鼠标事件和拖放。 菜单设计。 常用ActiveX控件介绍。 图形和多媒体制作。 本章内容 3.1 键盘和鼠标事件 3.2 拖 放 3.3 菜 单 设 计 3.4 常用ActiveX控件 3.5 图 形 绘 制 3.6 多媒体处理 Private Sub MnuSquare_Click() Private Sub MnuCross_Click() Shape1.Shape = 1 正方形 Shape1.FillStyle = 6 正网格线 End Sub End Sub Private Sub MnuCircle_Click() Private Sub MnuDCross_Click() Shape1.Shape = 3 ‘圆 Shape1.FillStyle = 7 斜网格线 End Sub End Sub 3.3 菜 单 设 计 3.3.3 弹出式菜单 弹出式菜单的创建方式和下拉式菜单相同，也是通过“菜单编辑器”对话框进行，只不过，在设置时应将菜单标题的“可见”复选框取消。 PopupMenu方法的一般格式如下： [对象名.] PopupMenu 菜单名[,flag [,x [,y [,boldcommand]]]] 运行时，在代码编辑器中要调用对象的PopupMenu方法来显示弹出式菜单。 例3-7 程序代码在原有的基础上再加一个窗体的MouseDown事件过程： Private Sub Form_MouseDown (Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then Me.PopupMenu MnuChange End Sub 将“更改”菜单控件的“可见”项取消。 * * 3.1 键盘和鼠标事件 3.1.1 键盘事件 释放任意键事件 KeyUp 按下任意键事件 KeyDown 敲击ASCII字符键事件 KeyPress 功 能 说 明 事 件 名 键盘事件过程的一般格式如下： Private Sub 对象名_ KeyPress（KeyAscii As integer） [程序代码] End Sub Private Sub 对象名_KeyDown(KeyCode As Integer,Shift As Integer) [程序代码] End Sub Private Sub 对象名_KeyUp(KeyCode As Integer,Shift As Integer) [程序代码] End Sub 3.1 键盘和鼠标事件 1．KeyPress事件 KeyAscii参数将获得所按键的ASCII码值。 “A” 65 “a” 97 “0” 48 3.1 键盘和鼠标事件 2．KeyDown事件和KeyUp事件 （1）KeyCode参数 KeyCode表示按下的物理键。 ①大写字母和小写字母使用同一个键，它们的KeyCode值相同，为大写字母的ASCII码值。 ②大键盘上的数字键与数字键盘上相同数字的键不是同一个键，它们的KeyCode是不一样的。 ③对于有上档字符和下档字符的键，其KeyCode为下档字符的ASCII码值。 （2）Shift参数 Shift键、Ctrl键、Alt键同时被按下 111 7 Ctrl键、Alt键同时被按下 110 6 Shift键、Alt键同时被按下 101 5 Alt键被按下 100 4 Shift键、Ctrl键同时被按下 011 3 Ctrl键被按下 010 2 Shift键被按下 001 1 未按任何键 000 0 含 义 二进制 十进制 例3-1 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As Integer If KeyAscii = 13 Then If Len(Text1.Text) = 1 And Text1.Text = a And _ Text1.Text = z Then x = Asc(Text1.Text) If x Asc(z) Then Text2.Text = Chr(x + 1) Else