计算机项目五

1、项目五 文字处理之一1主要内容字体设置单选按钮复选框框架列表框复选列表框 组合框 2活动一 例13框架单选按钮复选框单选按钮和复选框-1是常用的选择控件常用属性Text属性Checked属性TextAlign属性常用事件Click事件 CheckedChanged事件 44学习支持框架 -2框架(GroupBox)：用于对其他控件分组 常用属性Text属性Enabled属性Visible属性常用事件可以响应Click和DblClick事件。一般情况下，不需要编写有关框架的事件过程。5学习支持例1 对象事件过程代码-1Private Sub RadioButton1_Click(ByVal se

2、nder As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click GroupBox3.Visible = True GroupBox2.Visible = False End SubPrivate Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click GroupBox2.Visible = True GroupBox3.Visible = False End Sub6

3、例1 对象事件过程代码-2 Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click If CheckBox1.Checked Then Label1.Text = Label1.Text & vbCrLf & CheckBox1.Text End If End Sub7例1 对象事件过程代码-3Private Sub CheckBox2_Click(ByVal sender As Object, ByVal e As System.Event

4、Args) Handles CheckBox1.Click If CheckBox2.Checked Then Label1.Text = Label1.Text & vbCrLf & CheckBox2.Text End If End Sub8例1 对象事件过程代码-4Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click If CheckBox3.Checked Then Label1.Text = Label1.Text & vbCrL

5、f & CheckBox3.Text End If End Sub9例1 对象事件过程代码-5Private Sub CheckBox4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click If CheckBox4.Checked Then Label1.Text = Label1.Text & vbCrLf & CheckBox4.Text End If End Sub10列表框 -3列表框（ListBox）：显示一个列表项，用户可从中选择一项或多项。常用属性Items属性Sel

6、ectedIndex属性和SelectedItem属性Text属性Items.Count 属性 MultiColumn 属性Sorted属性1111学习支持列表框 -4常用方法除了可以在设计时使用 Items 属性向列表添加项，也可使用下列方法 添加、插入、删除项或清除AddInsert（下标, 添加项内容）ClearRemove （选项）或 Remove At(下标)列表框 -5常用事件Click事件SelectedIndexChanged事件共 39 页13例2 列表框14列表框 例2 程序Private Sub Button1_Click(ByVal sender As System.O

7、bject, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Add(TextBox1.Text)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Remove(ListBox1.Text)End Sub15例2 程序 Private Sub Button3_Click(ByVal sender As S

8、ystem.Object, ByVal e As System.EventArgs) Handles Button3.Click ListBox1.Items.Clear() End Sub16例2-1 程序 17例2-1 程序Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox2.Text “” Then ListBox1.Items.Insert(Val(TextBox2.Text) - 1, TextBox

9、1.Text) Else ListBox1.Items.Add(TextBox1.Text) End If End Sub18例2-1 程序Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click If TextBox2.Text Then ListBox1.Items.RemoveAt(Val(TextBox2.Text) - 1) Else ListBox1.Items.Remove(TextBox1.Text) End IfEnd Sub19复选

10、列表框（CheckedListBox）-5功能几乎可以完成列表框控件可以完成的所有任务还可以在列表中的项旁边显示复选的标记。常用属性Items属性CheckOnClick属性GetItemChecked(index)属性常用事件Click、DblClick 和 SelectedIndexChanged意义及用法与Listbox控件相同。 2020学习支持组合框ComboBox -5功能：用于在下拉组合框中显示数据。常用属性Items属性Text属性DropDownStyle属性MaxDropDownItems 属性 SelectedIndex 属性和 SelectedItem 属性 Selec

11、tedText属性 Count 属性 常用事件能响应Click事件和 SelectedIndexChanged事件。常用方法可以使用 Add、Insert、 Remove 或 Clear方法。2121学习支持SimpleDropDownDropDownList1-100例3 组合框22DropDownStyle属性：DropDownList例3 程序 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Short

12、For i = 0 To ComboBox1.Items.Count - 1 Label1.Text & = ComboBox1.Items(i) & vbCrLf Next End Sub23例3 程序Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged Label2.Text = ComboBox1.SelectedItemEnd Sub24Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click Select Case ComboBox1.SelectedIndex Case 0 PictureBox1.Visible = True PictureBox2.Visible = False PictureBox3.Visible = False Case 1 PictureBox2.Visible = Tr