可以用代码写出与直接用鼠标点击TreeView结点相同的效果吗?

Question

可以模拟任何事件。我想你的意思是，比如在时间到达、数据到达时，执行某事件程序？
我都是用LABEL的CHANGE事件：
SUB Lable1_change()
if label1="" then exit sub
'处理LABEL1内容，比如 CALL ...._CLICK()
label1=""
end sub

Answer 1

你的意思是不是当点击某个按钮（如移动到数据库的下一个按钮时），保持Treeview的当前选择
节点与数据库当前记录的同步？
可以调用下面这个过程。
Private Sub TreeSelect()
   '让当前节点呈选择状态 注意:TreeView1.HideSelection=False 才能看见
    dim sKey as string '关键字
    sKey=CStr(rstAll.Fields("产品ID")) '你希望被模拟单击的节点的关键字   
    TreeView1.Nodes(sKey).Selected = True
End Sub

Answer 2

我想你的意思是展开吧，用node对象的ensureVisible,如Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(,,"R","Root")   '添加第一个节点。
Set nodX = TreeView1.Nodes.Add("R",tvwchild,"C1","Node " & CStr(i))
    nodx.EnsureVisible'展开这个节点就象你用mouse点击效果一样。