无法在VB.Net中编辑导入的控件

时间:2016-05-30 09:31:13

标签: vb.net treeview

我已将一个名为ctrlTreeViewMutiCtrl的控件导入到我的vb.net项目中。因此,在我的工具箱中,在测试组件下,有一个选项可以将ctrlTreeViewMutiCtrl对象添加到Form1中。但是,当我尝试编辑树视图控件(我使用的命令从我下载控件的网站上使用)然后运行程序时,我加载到Form1的树视图控件根本没有改变。有什么建议?这是我的代码:

    Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    CtrlTreeViewMultiCtrl1.Show()
End Sub

Private Sub CtrlTreeViewMultiCtrl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CtrlTreeViewMultiCtrl1.Load
    Dim row1, row2 As ctrlTreeViewMultiCtrl.Row
    Dim tvmc As New ctrlTreeViewMultiCtrl

    tvmc.AddColumn("Column 1")
    tvmc.AddColumn("Column 2")
    tvmc.AddColumn("Column 3")
    tvmc.AddColumn("Column 4")

    tvmc.Head.SetControl(0, "Head Node")

    row1 = tvmc.Head.AddChild()
    row1.SetControl(0, "Sub Node 1")

    row2 = row1.AddChild()
    row2.SetControl(0, "Row 1")
    row2.SetControl(1, "Text 1")
    row2.SetControl(2, New DateTimePicker())
    row2.SetControl(3, "Sample 4")
    row2.Controls(3).ForeColor = Color.Red

    row2 = row1.AddChild()
    row2.SetControl(0, "Row 2")
    row2.SetControl(1, "Text 2")
    row2.SetControl(2, New DateTimePicker())
    row2.SetControl(3, "Sample 5")
    row2.Controls(3).ForeColor = Color.Green

    row1 = tvmc.Head.AddChild()
    row1.SetControl(0, "Sub Node 2")

    row2 = row1.AddChild()
    row2.SetControl(0, "Row 3")
    row2.SetControl(1, "Text 3")
    row2.SetControl(1, "Text 6")
    row2.SetControl(2, New DateTimePicker())
    row2.SetControl(3, "Sample 10")
    row2.Controls(3).ForeColor = Color.Yellow
End Sub
End Class

0 个答案:

没有答案