一个有treeview控件的奇怪问题：

[AOX]

picturebox控件上有一个treeview控件。下面这段代码：
1 Picture1.Visible = True
2 TreeView1.Visible = True
3 Picture1.Height = Me.Height - Me.StatusBar1.Height - Me.Toolbar1.Height
4 TreeView1.Height = Picture1.Height - 400
5 Picture1.Align = vbAlignLeft
6 后面跟的是填充treeview1的结点代码
应用程序第一次调用此段代码正常，调用完之后treeview控件结点都填充好了。我另外还有一个打开文件菜单，想把treeview控件重新填充一次，但点击打开后第二次调用此段代码时，调试发现，运行完第三行代码后就跳出本子程序。总之，症状好象是treeview控件被填充后就不再执行4行后的代码。这算是什么问题？
请指教

[脆皮大雪糕]

执行了Picture1.Align = vbAlignLeft以后picture1.heigh就不能改了，其实第三行可以不要了

[kimurakenshin]

up 关注

[AOX]

这与其它代码应该是没联系的。
我是一个MDI窗体上放了一个picturebox，picturebox上再放一个treeview，mdi窗体上有新建和打开菜单。我希望在点击“打开”后，把treeview里的结点重写一遍。我上面的代码就上用来重写的。但是它读到第4行就跳出本子程序了，（我是按F8一步步调试的）。这段代码前面部分就是用一个commondialog控件打开一个文件。后面部分就是TreeView1.Nodes.Add了。
与之可能有关的还有这样一段代码：
If mdimain.ActiveForm Is Nothing Then
Picture1.Visible = False
TreeView1.Visible = False
Else
Picture1.Visible = True
TreeView1.Visible = True
Picture1.Left = 0
Picture1.Height = Me.Height - Me.StatusBar1.Height - Me.Toolbar1.Height
TreeView1.Left = 0
TreeView1.Height = Picture1.Height - 200
End If
问题该清楚了吧，大家有什么替代办法也可帮我想想啊

[AOX]

上面所加的代码是form_resize里的。

[脆皮大雪糕]

Private Sub MDIForm_Resize()
Picture1.Visible = True
TreeView1.Visible = True
Picture1.Left = 0
TreeView1.Left = 0
TreeView1.Height = Me.Height - Me.StatusBar1.Height - Me.Toolbar1.Height
Picture1.Align = vbAlignLeft
End Sub
用上面的代码应该就没问题了，我试过了！！！

[flc]

关注
帮你UP

[yuesongboy]

你原来的代码请贴出来