vb 关于TreeView和StatusBar控件问题。急!急!急!
用MDI窗体为主界面,TreeView各节点与子节点也已经做好了,但我不知道怎么编程才能实现单击TreeView上的各个项,就可以弹出相应的窗体,并在StatusBar显...
用MDI窗体为主界面,TreeView各节点与子节点也已经做好了,但我不知道怎么编程才能实现单击TreeView上的各个项,就可以弹出相应的窗体,并在StatusBar显示各窗体打开与否的状态。程序最好有注释,越详细越好,请各位高手帮帮忙吧!感激不尽!
展开
1个回答
展开全部
★★举个简单例子★★:
Private Sub Form_Load()
TreeView1.Nodes.Add , , , "窗体1" '★加载项
TreeView1.Nodes.Add , , , "窗体2"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Select Case Node.Text
Case "窗体1" '★当点击窗体1时
Form1.Show '★显示Form1
'★让状态栏第一个窗格显示打开窗体信息
StatusBar1.Panels(1).Text = "当前打开窗体:窗体1"
Case "窗体2"
Form2.Show
StatusBar1.Panels(1).Text = "当前打开窗体:窗体2"
End Select
End Sub
Private Sub Form_Load()
TreeView1.Nodes.Add , , , "窗体1" '★加载项
TreeView1.Nodes.Add , , , "窗体2"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Select Case Node.Text
Case "窗体1" '★当点击窗体1时
Form1.Show '★显示Form1
'★让状态栏第一个窗格显示打开窗体信息
StatusBar1.Panels(1).Text = "当前打开窗体:窗体1"
Case "窗体2"
Form2.Show
StatusBar1.Panels(1).Text = "当前打开窗体:窗体2"
End Select
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询