项目五曾剑平PPT演示文稿

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

1、大学VB.NET程序设计实践教程（第三版） 项目五 文字处理VBVB程序设计程序设计-文字处理文字处理(1)(1)曾剑平曾剑平 博士博士http:/ 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程序设计实践教程（第三版） 项目五 文字处理常用事件Click事件点击单选按钮都会触发该事件 Chec

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

4、ick和DblClick事件。一般情况下，不需要编写有关框架的事件过程。739 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理列表框列表框（ListBox）显示一个项列表，用户可从中选择一项或多项。常用属性Items属性Items.Count 属性 SelectedIndex属性和SelectedItem属性Text属性MultiColumn 属性Sorted属性8常用方法若要在 ListBox 控件中添加或删除项，请使用 Add、Insert、Clear 或 Remove 方法。或者，可以在设计时使用 Items 属性向列表添加项。常用事件Click事件SelectedIn

5、dexChanged事件839 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理与Textbox的区别TextBox:允许多行时,外观上与ListBox基本类似.但是TextBox是text属性代表了输入的所有文本；而ListBox是按照记录格式来组织每行文字39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理Items属性:属性值是一个字符数组：listbox1.items(n)， 获得第n+1项下标从0开始也可作一个对象,具有属性和方法listbox1.items.item(n)方法: items.add, items.insert,items.clear

6、, items.remove, items.removeAt39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理判断选择了哪一项: (1) 如果 SelectMode为oneListbox1.selectedIndex -选择的项的序号Listbox1.selectedItem -选择的项的文本内容, 等同于ListBox1.text39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理判断选择了哪一项: (2) 如果 SelectMode 为MultiSimple或MultiExtendedListbox1.selectedIndices -选择的项的序号集

7、(数组)Listbox1.selectedItems -选择的项的文本内容集(数组)Listbox1.selectedItems.Count 所选择的项数39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理其他属性：MultiColumn 是否多列显示Sorted 内容按字母排序39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理复选列表框复选列表框 (CheckedListBox)控件，几乎可以完成列表框控件可以完成的所有任务，并且还可以在列表中的项旁边显示复选的标记。常用属性Items属性CheckOnClick属性GetItemChecked(inde

8、x)属性常用事件Click、DblClick和 SelectedIndexChanged 事件是常用事件。意义及用法与Listbox控件相同。 141439 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理如果 SelectMode 为MultiSimple或MultiExtendedCheckedListbox1.CheckedIndices -选择的项的序号集(数组)CheckedListbox1. CheckedItems -选择的项的文本内容集(数组)CheckedListbox1. CheckedItems.Count 所选择的项数39 页页大学VB.NET程序设计实

9、践教程（第三版） 项目五 文字处理组合框组合框 ComboBox 控件用于在下拉组合框中显示数据。常用属性Items属性Text属性DropDownStyle属性MaxDropDownItems 属性 SelectedIndex 属性和 SelectedItem 属性 SelectedText 属性 Count 属性 常用事件能响应Click事件和SelectedIndexChanged事件。常用方法可以使用 Add、Insert、Clear 或 Remove方法。161639 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理DropDownStyleDropDownListD

10、ropDownSimple39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理字体的使用Font设定字体Label1.Font = New Font(宋体, 20)Label1.Font = New Font(宋体, 20,FontStyle.Underline)为现有的字体增加效果，如下划线： label1.Font = new Font (label1.Font ,FontStyle.Underline )可以使用哪些字体名称？39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理颜色的使用如设置文本的背景颜色： 使用RGB函数Textbox1.BackC

11、olor = System.Drawing.ColorTranslator.FromOle( RGB(255, 100, 100) 使用枚举值：颜色值有限Color.White，color.blue,Textbox1.BackColor = Color.White使用FromArgb TextBox1.BackColor = Color.FromArgb( 255，100，100)39 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理程序界面设计按图建立窗体上的各个控件，并进行设置：使用 按钮双击工具箱的双击工具箱的“容器容器”选项选项卡下的卡下的 按钮：按钮：在窗体上建立5个

12、框架控件,并将其Text属性按图示进行设置。使用 按钮使用 按钮使用 按钮使用 按钮2039 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理编写对象事件过程代码-1-1Form_Load事件过程代码双击TextBox1文本框，进入代码窗口，输入如下程序代码：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(

13、Black) ComboBox1.Items.Add(White) ComboBox1.Items.Add(Yellow) ComboBox1.Text = Black End Sub蓝色部分自动产生2139 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理编写对象事件过程代码-2-2“字体”框架中单选按钮的事件过程代码Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click 单击“宋体”单选按钮 f = 宋体 Te

14、xtBox1.Font = New Font(f, s) End SubPrivate Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.Click 单击“黑体”单选按钮 f = 黑体 TextBox1.Font = New Font(f, s)End SubPrivate Sub RadioButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioB

15、utton3.Click 单击“楷体”单选按钮 f = 楷体 TextBox1.Font = New Font(f, s)End Sub注释部分，可以不输入2239 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理编写对象事件过程代码-3-3“字体大小”框架中单选按钮的事件过程代码Private Sub RadioButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton4.Click 单击“12”单选按钮 s = 12 TextBox1.Font = New Fo

16、nt(f, s) End Sub Private Sub RadioButton5_Click(ByVal sender As Object, ByVal e As System.EventArgs) 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 单击“3

17、2”单选按钮 s = 32 TextBox1.Font = New Font(f, s)End Sub232339 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理编写对象事件过程代码-4-4“字体效果”框架中列表框的事件过程 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged Select Case ListBox1.SelectedIndex Cas

18、e 0 TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold) Case 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,

19、FontStyle.Strikeout) End Select End Sub242439 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理编写对象事件过程代码-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

20、= 0 End If rr = RGB(R, G, B) Textbox1.BackColor = System.Drawing.ColorTranslator.FromOle(rr)End SubPrivate 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

21、 rr = RGB(R, G, B) Textbox1.BackColor = System.Drawing.ColorTranslator.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”

22、复选框 If CheckBox7.Checked = True Then B = 255 Else B = 0 End If rr = RGB(R, G, B) Textbox1.BackColor = System.Drawing.ColorTranslator.FromOle(rr) End Sub262639 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理编写对象事件过程代码-6-6“字体前景色”框架中下拉列表框的事件过程 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,

23、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 Sub272739 页页大学VB.NET程序设计实践教程（第三版） 项目五 文字处理上机练习P149 (1)P151 (3)39 页页