以下是引用nothing在2017/6/21 17:35:00的发言:
什么加,窗口越多,越来越困难了
做一个任务管理,写代码
Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
If frm.Text = "窗口管理" Then
Dim trv = frm.controls("TreeView1")
Dim nd = trv.nodes.find(vars("窗口"),True)
If nd.Length > 0 Then
trv.SelectedNode = nd(0)
trv.Select
MyTimers("计划1").Enabled = False
End If
End If
End If
调用代码
vars("窗口") = "窗口2"
MyTimers("计划1").Enabled = True
Syscmd.Project.FormDesigner()