4、将DropDownBox的TextChanged事件代码设置为:
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
If drp.Text > "" Then '如果内容不为空
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Text.IndexOf(drp.Text) >= 0 Then
trv.StopRedraw()
trv.SelectedNode = nd
nd.EnsureVisible()
trv.ResumeRedraw()
Exit For
End If
Next
End If
End If
那这段代码中的FORMS("窗口1"),窗口1也要用变量表示了?
dim wn as string =forms("窗口1")的名称
dim wn as string =forms("窗口2")的名称
Dim trv As WinForm.TreeView = Forms("wn").Controls("TreeView1")
这三行代码怎么正确写呀?