第7章 用户界面设计(6学时理论+4学时上机)课件.ppt

课堂编程,练一练,提高你的编程能力:;第7章 用户界面设计 ;;第7章 用户界面设计7.1 常用控件 ;重要属性： Value属性：值为整型，表示复选框的状态 0 —vbUnchecked:未选定 1 —vbChecked ：被选定 2 —vbGrayed:灰色,并显示一个选中标记 重要事件: Click事件;Function ish(n$) As Boolean ish = True For i = 1 To Len(n) \ 2 If Mid(n, i, 1) Mid(n, Len(n) + 1 - i, 1) Then ish = False Exit Function End If Next i End Function;Function isws (m%) As Boolean For i = 1 To m / 2 If m Mod i = 0 Then s = s + i End If Next i If m = s Then isws = True Else isws = False End If End Function;Sub delestr (s1$, s2$) If InStr(s1, s2) 0 Then s1 = Replace(s1, s2, ) End Sub Private Sub Command1_Click() Dim s1$, s2$ s1 = Text1 s2 = Text2 Call delestr (s1, s2) Text3 = s1 End Sub;第7章 用户界面设计7.1 常用控件 ;重要属性： Value属性：值为整型，表示复选框的状态 0 —vbUnchecked:未选定 1 —vbChecked ：被选定 2 —vbGrayed:灰色,并显示一个选中标记 重要事件: Click事件;补充7.1.1 控件数组 ;例1：建立含有4个单选按钮的控件数组，单击”计算”命令按钮，分别显示不同的“加”、“减”、“乘”、“除”运算操作。并将结果显示在label4中;例1 控件数组;3.框架 (Frame) ;课堂编程,练一练,提高你的编程能力:;综合设计实验;小结;7.1.2 滚动条和进度条 ;滚动条属性：;滚动条事件：;综合设计实验;7.1.2 滚动条和进度条(复习) ;滚动条属性：;滚动条事件：;Private Sub HScroll1_Change() Dim i As Integer, n As Integer, s As Double s = 1 n = HScroll1.Value If n 0 Then For i = 1 To n s = s * i Next i End If Label2.Caption = n ! = Label3.Caption = s End Sub;例7.4 设计一个调色板应用程序，使用三个滚动条作为三种基本颜色的输入工具。;7.1.3 图形框和图像框;2．图像框Image ;7.1.4 定时器 ;这次练习数组的编程，请大家不要翻书，自己独立完成：;7.3 菜单设计 ;7.3.1 菜单编辑器 ;用来输入菜单名或命令名(Caption) (1)分隔符：连接符“-” (2)访问键：访问字母前加“” 顶层菜单的打开： ALT+对应字母 菜单项选择：打开菜单后，按对应字母.;用来输入代码中引用菜单控件的名字(Name)。;缩进级：把选定的菜单向右(左)移一个等级....。 最多可以创建四级子菜单。;7.3.3 弹出菜单 ;位置常数 值 描述 vbPopupMenuLeftAlign 0(默认) 指定位置为左边界 vbPopupMenuCenterAlign 4 指定位置为中心 vbPopupMenuRightAlign 8 指定位置为右边界 行为常数 值 描述 vbPopupMenuLeftButton 0(默认) 只能按左键触发 vbPopupMenuRightButton 2 按左键和右键触发;7.4 多重窗体 ;2. 设置启动对象;(1)Load语句 装入窗体到内存(不显示) Load 窗体名称 (2)Unload语句 从内存删除窗体 Unlo