有关treeview展开结点问题 我需要单击就展开其中有子结点的结点,请问高手如何写啊?急需! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 '如果是展开当前节点Private Sub TreeView1_Click() TreeView1.SelectedItem.Expanded = TrueEnd Sub'如果是展开全部节点Private Sub TreeView1_Click() Dim i As Long For i = 1 To TreeView1.Nodes.Count TreeView1.Nodes(i).Expanded = True NextEnd Sub 事件触发Dialog,调用EDIT控件无法获取焦点 关于网页调用软件的功能 水晶报表"插入菜单->字段标题"灰化,不能使用问题? 完全照"新用户快速入门"做的啊! 请教一个简单的小问题。。。 如何得到Outlook Express 通訊錄中的聯繫人及E-Mail地址 请教如何将数码照片的文件名改成拍摄日期和时间? 关于Treeview 请教一个关于webbrowser的session的问题. 打开文件的对话框怎样显示在屏幕中央? 大家好,请教高手一个问题VB 一个简单问题 删除帖子的问题
Private Sub TreeView1_Click()
TreeView1.SelectedItem.Expanded = True
End Sub'如果是展开全部节点
Private Sub TreeView1_Click()
Dim i As Long
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next
End Sub