标题：代码的独立

在事件代码中，如果需要复制一段有同样结构的代码，需要把变量名修改成不重复的名字。是否可以用代码改成整段独立的代码? 这样的话就不用修改变量名了。

没看懂，举例说明一下

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("目录树", "加工人", "加工人列节点='机加工'", "_Identify")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv2.BuildTree("目录树", "加工人", "加工人列节点='电加工'", "_Identify")
Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv3.BuildTree("目录树", "加工人", "加工人列节点='检验'", "_Identify")
Dim trv4 As WinForm.TreeView = e.Form.Controls("TreeView4")
trv4.BuildTree("目录树", "加工人", "加工人列节点='钳工'", "_Identify")

需要修改变量名

 

能否改成？

程序头

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("目录树", "加工人", "加工人列节点='机加工'", "_Identify")

程序尾

搞一个控件，做个目录树，加上筛选代码就不好了啊，没必要弄那么多个控件。

同一个变量，可以多次赋值的

回复4楼：搞多个控件，目的是为了在数据录入时，减少鼠标点击次数。