Visual BasicNET 程序设计第四章B.pptVIP

4.4 TreeView树视图控件 树视图（TreeView）控件类似于“Windows资源管理器”左窗格中显示文件和文件夹的方式显示节点的层次结构，如图4-45所示。使用该控件需要解决以下问题： ⑴如何建立节点 ⑵如何插入、删除和修改节点 ⑶如何得到选择的节点 ⑷如何遍历节点 4.3.5 单选按钮（RadioButton）控件与容器（GroupBox）控件 [知识点分析] 单选按钮控件的作用是在提供的选项中仅选择一个；如果有多个单选按钮组，必须将不同的单选按钮组包含在不同的容器控件中；GroupBox容器控件作用与Panel控件相似，区别是GroupBox容器控件有标题栏（Text属性），而Panel控件没有。 ⑴单选按钮（RadioButton）的属性值： ●Text属性值：显示在单选按钮中的文本。 ●Checked属性值：如果选中，属性值为True，否则属性值为False。 ⑵RadioButton事件 CheckedChanged事件：用户选择或取消选择单选按钮时发生的事件。 案例4-8 检测用户在单选按钮上的选择 [界面布局] 向窗体添加两个GroupBox控件GroupBox1和GroupBox2，向GroupBox1添加两个单选按钮控件；向GroupBox2添加三个单选按钮控件，界面布局如图4-36所示。按图4-36设置各控件的Text属性。 GroupBox1 GroupBox2 RadioButton1 RadioButton2 RadioButton3 RadioButton4 RadioButton5 Button1 Label1 图4-36 案例4-8界面布局 [程序代码] 1. 方法一： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ResultStr As String = For Each rd1 As RadioButton In Me.GroupBox1.Controls If rd1.Checked Then ResultStr = 性别: rd1.Text Exit For End If Next For Each rd2 As RadioButton In Me.GroupBox2.Controls If rd2.Checked Then ResultStr = ResultStr 政治面目: rd2.Text Exit For End If Next Label1.Text = 你的选择是: ResultStr End Sub 2. 方法二： Dim SexStr As String, ZzStr As String Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.Click SexStr = 性别: CType(sender, RadioButton).Text Label1.Text = 你的选择是: SexStr ZzStr End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged, RadioButton4.Click, RadioButton5.Click ZzStr = 政治面目: CType(sender, RadioButton).Text Label1.Text = 你的选择是: SexStr ZzStr End Sub [代码说明] 1. 方法一的代码中，For 结构列举容器中的每一个控件。由于容器控件中全部是单选按钮，不需要再判断控件类型。 2. 方法二的代码中，通过响应CheckedChanged事件实现即时