项目五曾剑平PPT演示文稿.ppt

《项目五曾剑平PPT演示文稿.ppt》由会员分享，可在线阅读，更多相关《项目五曾剑平PPT演示文稿.ppt（28页珍藏版）》请在三一文库上搜索。

1、大学VB.NET程序设计实践教程（第三版）项目五 文字处理 VB程序设计 -文字处理(1) 曾剑平 博士 2014年5月 139 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 主要内容主要内容 字体设置 单选按钮 复选框 框架 列表框 复选列表框 组合框 调色板 滚动条 TrackBar控件 定时器 超链接标签控件 文本编辑器 通用对话框 “打开”对话框 “另存为”对话框 “颜色”对话框 “字体”对话框 RichTextBox控件 239 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 活动一活动一 字体设置字体设置 程序运行时，可根据用户的需要，设置字体

2、的前 景色、背景色、字体大小等，文本框中的文字会 发生相应改变。 339 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 单选按钮和复选框单选按钮和复选框-1-1 单选按钮(RadioButton)和复选框(CheckBox)是 常用的选择控件。 外观： 共 页4 439 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 单选按钮单选按钮 常用属性 Text属性：显示的文本 Checked属性： true表示选中；false表示未选中 TextAlign属性 共 页5 5共 39 页39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 常用事件

3、 Click事件 点击单选按钮都会触发该事件 CheckedChanged事件 Checked属性从true变为false,或从false变为 true 鼠标Click,先触发CheckedChanged事件 , 再触发Click事件 可能只触发CheckedChanged事件 ,而不触 发Click事件 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 框架框架 框架控件(GroupBox)用于对其他控件分组。属于 容器类控件. 常用属性 Text属性 Enabled属性 False: Groupbox及其中的控件都不能操作; True: Groupbox中的控件是否能操

4、作 取决于该控件是否enabled Visible属性 规则同上 常用事件 可以响应Click和DblClick事件。 一般情况下，不需要编写有关框架的事件过程。 739 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 列表框列表框 列表框（ListBox）显示一个项列表，用户可从中选择一项或 多项。 常用属性 Items属性 Items.Count 属性 SelectedIndex属性和SelectedItem属性 Text属性 MultiColumn 属性 Sorted属性 8 常用方法 若要在 ListBox 控件中添 加或删除项，请使用 Add 、Insert、Cle

5、ar 或 Remove 方法。或者，可以 在设计时使用 Items 属性 向列表添加项。 常用事件 Click事件 SelectedIndexChanged事 件 839 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 与Textbox的区别 TextBox:允许多行时,外观上与ListBox 基本类似. 但是TextBox是text属性代表了输入的所 有文本；而ListBox是按照记录格式来 组织每行文字 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 Items属性: 属性值是一个字符数组： listbox1.items(n)， 获得第n+1项 下标

6、从0开始 也可作一个对象,具有属性和方法 listbox1.items.item(n) 方法: items.add, items.insert,items.clear, items.remove, items.removeAt 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 判断选择了哪一项: (1) 如果 SelectMode为one Listbox1.selectedIndex -选择的项 的序号 Listbox1.selectedItem -选择的项 的文本内容, 等同于ListBox1.text 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理

7、 判断选择了哪一项: (2) 如果 SelectMode 为 MultiSimple或MultiExtended Listbox1.selectedIndices -选择的 项的序号集(数组) Listbox1.selectedItems -选择的项 的文本内容集(数组) Listbox1.selectedItems.Count 所选 择的项数 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 其他属性： MultiColumn 是否多列显示 Sorted 内容按字母排序 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 复选列表框复选列表框 复选列表框

8、 (CheckedListBox)控件，几乎可以完 成列表框控件可以完成的所有任务，并且还 可以在列表中的项旁边显示复选的标记。 常用属性 Items属性 CheckOnClick属性 GetItemChecked(index)属性 常用事件 Click、DblClick和 SelectedIndexChanged 事件是常用事件。 意义及用法与Listbox控件相同。 141439 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 如果 SelectMode 为MultiSimple或 MultiExtended CheckedListbox1.CheckedIndices

9、- 选择的项的序号集(数组) CheckedListbox1. CheckedItems - 选择的项的文本内容集(数组) CheckedListbox1. CheckedItems.Count 所选择的项数 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 组合框组合框 组合框 ComboBox 控件用于在下拉组合框中显示数据 。 常用属性 Items属性 Text属性 DropDownStyle属性 MaxDropDownItems 属性 SelectedIndex 属性和 SelectedItem 属性 SelectedText 属性 Count 属性 常用事件 能响

10、应Click事件和SelectedIndexChanged事件。 常用方法 可以使用 Add、Insert、Clear 或 Remove方法。 161639 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 DropDownStyle DropDownList DropDown Simple 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 字体的使用 Font 设定字体 Label1.Font = New Font(宋体, 20) Label1.Font = New Font(宋体, 20,FontStyle.Underline) 为现有的字体增加效果，如

11、下划线： label1.Font = new Font (label1.Font ,FontStyle.Underline ) 可以使用哪些字体名称？ 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 颜色的使用 如设置文本的背景颜色： 使用RGB函数 Textbox1.BackColor = System.Drawing.ColorTranslator.FromOle( RGB(255, 100, 100) 使用枚举值：颜色值有限 Color.White，color.blue, Textbox1.BackColor = Color.White 使用FromArgb Tex

12、tBox1.BackColor = Color.FromArgb( 255， 100，100) 39 页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 程序界面设计程序界面设计 按图建立窗体上的各个控件，并进行设置： 使用 按钮 双击工具箱的“容器”选项卡 下的 按钮： 在窗体上建立5个框架控件, 并将其Text属性按图示进行 设置。 使用 按钮 使用 按钮 使用 按钮 使用 按钮 2039 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 编写对象事件过程代码编写对象事件过程代码-1-1 Form_Load事件过程代码 双击TextBox1文本框，进入代码窗口，

13、输入如下 程序代码： Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load R = 255 : G = 0 : B = 0 s = 9 : f = 宋体 ComboBox1.Items.Add(Black) ComboBox1.Items.Add(White) ComboBox1.Items.Add(Yellow) ComboBox1.Text = Black End Sub 蓝色部分自动产生 2139 页页 大学VB.NET程序设计实践教程（

14、第三版）项目五 文字处理 编写对象事件过程代码编写对象事件过程代码-2-2 “字体”框架中单选按钮的事件过程代码 Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click 单击“宋体”单选按钮 f = 宋体 TextBox1.Font = New Font(f, s) End Sub Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.Ev

15、entArgs) Handles RadioButton2.Click 单击“黑体”单选按钮 f = 黑体 TextBox1.Font = New Font(f, s) End Sub Private Sub RadioButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton3.Click 单击“楷体”单选按钮 f = 楷体 TextBox1.Font = New Font(f, s) End Sub 注释部分， 可以不输入 2239 页页 大学VB.NET程序设计实践教程（第三

16、版）项目五 文字处理 编写对象事件过程代码编写对象事件过程代码-3-3 “字体大小”框架中单选按钮的事件过程代码 Private Sub RadioButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton4.Click 单击“12”单选按钮 s = 12 TextBox1.Font = New Font(f, s) End Sub Private Sub RadioButton5_Click(ByVal sender As Object, ByVal e As System.Ev

17、entArgs) Handles RadioButton5.Click 单击“16”单选按钮 s = 16 TextBox1.Font = New Font(f, s) End Sub Private Sub RadioButton6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton6.Click 单击“32”单选按钮 s = 32 TextBox1.Font = New Font(f, s) End Sub 232339 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理

18、 编写对象事件过程代码编写对象事件过程代码-4-4 “字体效果”框架中列表框的事件过程 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Select Case ListBox1.SelectedIndex Case 0 TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold) Cas

19、e 1 TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Italic) Case 2 TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Underline) Case 3 TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Strikeout) End Select End Sub 242439 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处

20、理 编写对象事件过程代码编写对象事件过程代码-5-5 “字体背景色”框架中复选框的事件过程 Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged 单击“Red”复选框 If CheckBox5.Checked = True Then R = 255 Else R = 0 End If rr = RGB(R, G, B) Textbox1.BackColor = System.Drawing.

21、ColorTranslator.FromOle(rr) End Sub Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged 单击“Green”复选框 If CheckBox6.Checked = True Then G = 255 Else G = 0 End If rr = RGB(R, G, B) Textbox1.BackColor = System.Drawing.ColorTra

22、nslator.FromOle(rr) End Sub 252539 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 编写对象事件过程代码编写对象事件过程代码-5-5 “字体背景色”框架中复选框的事件过程 Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged 单击“blue”复选框 If CheckBox7.Checked = True Then B = 255 Else

23、B = 0 End If rr = RGB(R, G, B) Textbox1.BackColor = System.Drawing.ColorTranslator.FromOle(rr) End Sub 262639 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 编写对象事件过程代码编写对象事件过程代码-6-6 “字体前景色”框架中下拉列表框的事件过程 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 选择“字体前景色”下拉列表 Select Case ComboBox1.Text Case Black Textbox1.ForeColor = Color.Black Case White Textbox1.ForeColor = Color.White Case Yellow Textbox1.ForeColor = Color.Yellow End Select End Sub 272739 页页 大学VB.NET程序设计实践教程（第三版）项目五 文字处理 上机练习 P149 (1) P151 (3) 39 页