- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]面板 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86121)
-- 发布时间：2016/6/11 9:27:00
-- [求助]面板
老师好，通过组合框显示和隐藏面板。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:隐藏显示面板.table |
-- 发布时间：2016/6/11 14:09:00
--
参考代码，SelectedIndexChanged
If e.Sender.Text > "" Then
e.Form.controls(e.sender.text).Visible = False
End If
-- 发布时间：2016/6/11 15:10:00
--
老师好，打开窗口默认全部隐藏，点击组合框下拉链项目显示一个面板同时隐藏另一个已被开启的面板。
-- 发布时间：2016/6/12 1:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:隐藏显示面板.table |
-- 发布时间：2016/6/12 10:40:00
--
以下是引用江南小城在2016/6/11 15:10:00的发言：
老师好，打开窗口默认全部隐藏，点击组合框下拉链项目显示一个面板同时隐藏另一个已被开启的面板。
老师好，打开窗口默认全部隐藏，点击组合框下拉链项目显示一个面板同时隐藏另一个已被开启的面板。
谢谢老师，你给我的例子意思是准确的。可是我没有把问题说清楚，面板的名称不是统一的面板-、面板2......，而是入库、销售、统计.....
-- 发布时间：2016/6/12 11:10:00
--
以下是引用江南小城在2016/6/12 10:40:00的发言：
谢谢老师，你给我的例子意思是准确的。可是我没有把问题说清楚，面板的名称不是统一的面板-、面板2......，而是入库、销售、统计.....
那就类似这样写代码
Dim pns() As String = {"面板1", "面板2", "面板3", "面板4"}
For Each pn As String In pns
e.Form.controls(pn).Visible = False
Next
-- 发布时间：2016/6/12 12:01:00
--
For i As Integer = 1 To 4
e.Form.controls("面板" & i).Visible = False
Next
If e.Sender.Text > "" Then
e.Form.controls(e.sender.text).Visible = True
End If
请老师帮忙上面对面修改
-- 发布时间：2016/6/12 12:20:00
--
汗，把第一段代码替换成6楼的代码。你能不能看懂一下代码？建议你把视频教程帮助文档看一遍。
-- 发布时间：2016/6/12 12:31:00
--
我替换了，没有。
-- 发布时间：2016/6/12 13:18:00
--
老师，我把代码放错位置了，现在好了。