为treeview VB.NET中的每个节点生成一个包含相同复选框的新面板(附图像)

时间:2012-07-24 18:00:34

标签: vb.net treeview panel

我想生成一个新面板,点击树视图中的每个节点。但是每个新生成的面板都有相同的复选框。此外,这些复选框链接到具有已检查条件的组框。

我可以通过为每个节点添加一个面板来为4-5个节点执行此操作。但我有大约90个这样的节点。 请参考以下图片, Node1 is selected & check box is clicked Node2 is selected 有90个这样的节点。

有没有更简单的方法,如循环等来实现这一目标?或硬路(为每个节点添加面板并使用show / hide)是唯一的方法吗?

非常感谢帮助。

干杯,

1 个答案:

答案 0 :(得分:-1)

你可以使用循环。

这是一个示例:

首先,您需要定义一些全局变量:

Dim Panels(100) As Panel
Dim CheckBox1(100) As CheckBox
Dim CheckBox2(100) As CheckBox
Dim CheckBox3(100) As CheckBox
Dim Label1(100) As Label

然后,您应该初始化Form_Load()事件的控件:

For i As Integer = 0 To 100

    'Initialize Controls
    Panels(i) = New Panel()
    CheckBox1(i) = New CheckBox()
    CheckBox2(i) = New CheckBox()
    CheckBox3(i) = New CheckBox()
    Label1(i) = New Label()

    'Set properties
    CheckBox1.Left = 100
    CheckBox2.Left = 100
    CheckBox3.Left = 100
    CheckBox1.Top = 100
    CheckBox2.Top = 200
    CheckBox3.Top = 300
    Label1.Left = 100
    Label1.Top = 50
    Label1.Text = "ID : " & NodeNames(i) 'You should replace NodeNames(i) with a variable that you are using for the name of nodes.

    'Add Controls to panel
    Panels(i).Controls.Add(CheckBox1(i))
    Panels(i).Controls.Add(CheckBox2(i))
    Panels(i).Controls.Add(CheckBox3(i))
    Panels(i).Controls.Add(Label1(i))

    'Set visiblity of panel to false
    Panels(i).Visible = False

    'Add panel to the form.
    Me.Controls.Add(Panels(i))       
Next

当你需要展示一个小组时,你应该这样做:

Panels(i).BringToFront()
Panels(i).Visible = True

但是RAM中有很多面板并不是一个好主意。我建议您只使用一个面板,并按代码为每个节点进行修改。因为如果你有许多面板和许多控件,你的应用程序可能会使用大量的RAM。