vb语言程序设计-vb第10章电vb语言程序设计-子讲稿(编辑修改稿)

vb语言程序设计-vb第10章电vb语言程序设计-子讲稿(编辑修改稿)内容摘要：

39。 时针长度 len_H = Sqr(( ) ^ 2 + ( ) ^ 2) Call Timer1_Timer End Sub Private Sub Timer1_Timer() 39。 定时器的定时事件过程 Dim s As Single, m As Single, h As Single = Time s = Second(Time) m = Minute(Time) h = Hour(Time) + m / 60 = + len_S * Sin(pi * s / 30) 39。 绘制秒针 = len_S * Cos(pi * s / 30) = + len_M * Sin(pi * m / 30) 39。 绘制分针 = len_M * Cos(pi * m / 30) If h = 12 Then h = h 12 = + len_H * Sin(pi * h / 6) 39。 绘制时针 = len_H * Cos(pi * h / 6) End Sub 计算指针位置的方法 s秒 K 60秒 2π K = 2πS / 60 = πs / 30 x2 = x1 + x = x1 + L * Cos(π/2 – k ) = x1 + L * Sink = + Len_s * Sin(pi * s / 30) x x2 x1 K (s秒 ) π/2 K 菜单设计 应用程序通过菜单为用户提供一组命令 菜单一般分为两种：即 下拉式菜单 和 弹出式菜单 下拉式菜单 1. 下拉式菜单基本结构包括：顶层菜单、菜单项和子菜单 子菜单项 子菜单提示符 访问键 快捷键 分隔线 复选标记 菜单项 顶层菜单 菜单编辑器 设计菜单的工具 启动菜单编辑器的方法 菜单编辑器分为上、下两部分， 上半部分 用来 设置属性 ，下半部分 是 菜单显示区 ，用来显示用户输入的菜单内容。 “标题” (Caption)输入框 供输入标题，也会同时显示在菜单显示区。 菜单项的访问键，用“ (amp。 字符 )”格式 “名称” (Name)输入框 “索引” (Index) “帮助上下文 ID”输入框 “协调位置”列表框 “复选”框 “可见”框 “ 菜单显示区。 内缩符号 (4个点“ …”) 共有 7个按钮 分隔线 菜单的 Click事件 除分隔线以外的所有菜单元素都能识别 Click事件。 例 编一程序，进行两个操作数的算术运算练习 设计步骤如下： (1)创建应用程序的用户界面和设置对象属性 菜单栏向用户提供功能选择，包括 运算数的位数，运算符类型和退出程序 菜单设计 各个菜单项名称 (2)编写程序代码 功能要求 Option Explicit 39。 显式声明变量 Dim sel1 As Integer, sel2 As String Dim r1 As Long Private Sub Form_Load() sel1 = 0 39。 位数标记 sel2 = 39。 运算标记 Randomize End Sub Private Sub Mnu11_Click() sel1 = 1 39。 设置位数标记 End Sub Private Sub Mnu12_Click() sel1 = 10 End Sub Private Sub Mnu13_Click() sel1 = 100 End Sub Private Sub Mnu21_Click() sel2 = + 39。 设置运算标记 End Sub Private Sub Mnu22_Click() sel2 = End Sub Private Sub Mnu23_Click() sel2 = * End Sub Private Sub Command1_Click() 39。 命题 按钮单击事件 Dim a As Long, b As Long If sel1 = 0 Or sel2 = Then MsgBox 先选择运算数的位数和运算类型 Exit Sub End If a = sel1 + Int(9 * sel1 * Rnd) 39。 随机生成指定位数的操作数 b = sel1 + Int(9 * sel1 * Rnd) = Str(a) + sel2 + Str(b) + = 39。 组成算式 Select Case sel2 39。 求运算结果 r1 Case + r1 = a + b Case r1 = a b Case * r1 = a * b End Select = End Sub Private Sub Command2_Click() 39。 答题 按钮单击事件 Dim r2 As Long If = Then MsgBox 请输入答案 Exit Sub End If r2 = Val() 39。 读取用户的答案 If r1 = r2 Then 39。 判断答案 = 正确 Else = 错误 End If End Sub Private Sub Mnu30_Click() „“退出”菜单命令 End End Sub 运行时改变菜单属性 1. 使菜单命令有效或无效 所有的菜单项都具有 Enabled属性，当该属性为 True(默认值 )时，有效；若为 False时，菜单项会变暗，菜单命令无效。 举例： = False 2. 使用菜单项的 Checked属性，可以设置复选标记。 举例： =True 3. 使菜单项不可见 举例： =True 弹出式菜单 弹出式菜单又称为快捷菜单。 单击鼠标右键。 可以根据右 使用 VB提供的菜单编辑器，把某个菜单设置成隐藏。 (1)使用菜单编辑器设计菜单 (2)设置顶层菜单项为不可见 ，即不选中菜单编辑器里的“可见”选项或在属性窗口中设定 Visible属性为 False (3)编写与弹出式菜单相关联的 MouseUp(释放鼠标 )事件过程。 ［对象 ] PopupMenu 菜单名 [, 位置常数 ][, 横坐标 [, 纵坐标 ]]] 例 在例 ，把 “ 位数 ” 菜单改为快捷菜单 (1)打开例 ，选定窗体，然后在菜单编辑器中将“位数”菜单标题的“可见”框中的“ √”取消 (即不选中 ) (2)增加以下的 MouseUp事件过程代码： Private Sub Form_MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then „检查是否右击 ,击左键为 1 PopupMenu mnu10 End If End Sub 程序运行时，右击窗体空白处，即会弹出快捷菜单，如图 弹出式菜单 工具栏和状态栏 分别通过 Active X控件 ToolBar和 StatusBar来实现 Active X控件简介 VB中使用的控件有三类： 标准控件、 ActiveX控件和可插入对象 (如 Word文档、 Excel工作表等，可当作控件使用 ) Active X控件是一段可重复使用的程序代码和数据。 由 Active X技术创建的，可以作为 VB工具箱的扩充部分。 Active X控件以单独的文件存在 (.ocx) 工具栏 (ToolBar) 工具栏为用户带来比用菜单更为快速的操作 为窗体添加工具栏，应使用 工具条 (ToolBar)控件和 图像控件列表 (ImageList)控件 (不是标准控件 ) 创建工具栏的 大致步骤 (1)添加 ToolBar控件和 ImageList (2)用 ImageList (3)创建 ToolBar控件，并将 ToolBar控件与 ImageList控件相关联，创建。