以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码的独立  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194053)
--  作者：1234567
--  发布时间：2024/11/6 13:47:00
--  代码的独立
在事件代码中，如果需要复制一段有同样结构的代码，需要把变量名修改成不重复的名字。是否可以用代码改成整段独立的代码? 这样的话就不用修改变量名了。
--  作者：有点蓝
--  发布时间：2024/11/6 13:56:00
--  
没看懂，举例说明一下
--  作者：1234567
--  发布时间：2024/11/6 14:21:00
--  

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")

程序尾
--  作者：cd_tdh
--  发布时间：2024/11/6 14:31:00
--  
搞一个控件，做个目录树，加上筛选代码就不好了啊，没必要弄那么多个控件。
[此贴子已经被作者于2024/11/6 14:36:33编辑过]
--  作者：有点蓝
--  发布时间：2024/11/6 14:31:00
--  
同一个变量，可以多次赋值的

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("目录树", "加工人", "加工人列节点=\'机加工\'", "_Identify")
trv  = e.Form.Controls("TreeView2")
trv.BuildTree("目录树", "加工人", "加工人列节点=\'电加工\'", "_Identify")
--  作者：1234567
--  发布时间：2024/11/6 14:45:00
--  

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