主题：[求助]面板

参考代码，SelectedIndexChanged

If e.Sender.Text > "" Then
    e.Form.controls(e.sender.text).Visible = False
End If

那就类似这样写代码

Dim pns() As String = {"面板1", "面板2", "面板3", "面板4"}
For Each pn As String In pns
    e.Form.controls(pn).Visible = False
Next

汗，控件名要改啊。要说多少次？自己加上内部函数啊

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:加载目录树.table