第四章单循环讲述.ppt

项目五：文字处理 主要内容 活动一 字体设置 介绍单选按钮、复选框 、框架、列表框、组合框的常用属性及事件、方法 活动二 调色板 介绍滚动条 、Slider控件、定时器控件的常用属性及事件、方法 活动一 字体设置 知识点 单选按钮(OptionButton)、复选框(CheckBox) 框架(Frame) 活动一 字体设置 ——活动说明 示例 活动一 字体设置 ——活动分析 单选按钮 框架 单选按钮分组 列表框 Style：1 List：各选项内容 组合框 复选框 活动一 字体设置 ——编程实现 字体 选中“楷体”单选按钮的事件过程代码 Private Sub OptKai_Click() Text1.FontName = 楷体_GB2312 End Sub 活动一 字体设置——编程实现 字体大小 选中“12”单选按钮的事件过程代码： Private Sub Opt12_Click() Text1.FontSize = 12 End Sub 活动一 字体设置 ——编程实现 字体效果 Private Sub List1_ItemCheck(Item As Integer) Text1.FontBold = List1.Selected(0) Text1.FontItalic = List1.Selected(1) Text1.FontUnderline = List1.Selected(2) Text1.FontStrikethru = List1.Selected(3) End Sub 活动一 字体设置——编程实现 设置字体背景色为红色 Dim R%, G%, B% Private Sub ChkR_Click() If ChkR.Value = 1 Then R = 255 Else R = 0 End If Text1.BackColor = RGB(R, G, B) End Sub 等价于： R=IIf(chkR.Value=1, 255, 0) 活动一 字体设置——编程实现 设置字体的前景色 Private Sub Combo1_Click() Select Case Combo1.Text Case Balck Text1.ForeColor = vbBlack Case White Text1.ForeColor = vbWhite Case Yellow Text1.ForeColor = vbYellow End Select End Sub 活动一 字体设置——学习支持 单选按钮和复选框 常用属性 (1) Caption (2) Value 用来表示单选按钮或复选框的状态 ● 单选按钮 True： 被选中 False：未被选中（默认值） ● 复选框 0－未选中：复选框前无“√”标志（默认值） 1－选中： 执行时复选框前有“√”标志 2－被禁止：该复选框前有“√”标志，但以灰色 显示，禁止用户操作 活动一 字体设置——学习支持 ⑶ Alignment属性 设置单选按钮、复选框与标题文字相对应的位置。 0－左对齐，即控件按钮在左边，标题显示在右边。（默认值） 1－右对齐，即控件按钮在右边，标题显示在左边。 ⑷ Style属性 设置单选按钮或复选框的显示方式。 0－Standard：标准方式。 （默认值） 1－Graphical：图形方式。 活动一 字体设置——学习支持 常用事件 Click 单选按钮和复选框的重要区别： 当用户选定一个单选按钮时，同组中的其它单选按钮会自动失效，而对复选框而言，用户可选定任意数目的复选框。 活动一 字体设置——学习支持 框架(Frame) 常用属性 ⑴ Caption属性 标题。若Caption为空字符，则表示为封闭的矩形框。 ⑵ Enabled属性 设置框架及框架内控件是否可用。 ⑶ Visible属性 设置框架及框架内控件是否可见。 ⑷ BorderStyle属性 0－None 无边框