- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请狐大大帮忙一下 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154274)
-- 发布时间：2020/9/9 22:20:00
-- 请狐大大帮忙一下
此主题相关图片如下：2.png
各位狐大大们好
此主题相关图片如下：1.png
我想在主页里面按下某个按钮，然后打开另外一个窗口里面的页面集合的所对应的页面，希望狐大大们帮帮忙，谢谢
-- 发布时间：2020/9/10 8:46:00
--
按钮代码
if forms("另外一个窗口").opened then
Dim tab As WinForm.TabControl = forms("另外一个窗口").Controls("TabControl1")
tab.SelectedPage=tab.TabPages(e.sender.text)
end if
[此贴子已经被作者于2020/9/10 8:46:32编辑过]
-- 发布时间：2020/9/10 15:51:00
--
蓝大大，按照这个代码，我只能打开综合管理界面，但是无法进入到页签，把e.sender.text改成了数字也无法进入所对应的页签
forms("综合管理").Open
If forms("综合管理").opened Then
Dim tab As WinForm.TabControl = forms("综合管理").Controls("页面合集")
tab.SelectedPage = tab.TabPages(2)
End If
[此贴子已经被作者于2020/9/10 15:53:25编辑过]
-- 发布时间：2020/9/10 15:55:00
--
页签没有设置名称（只是设置 标题），或者名称和按钮标题不是一样的，可以改为一样的名称
-- 发布时间：2020/9/10 16:31:00
--
蓝大大，我按照你的方法更改了，但是仍然只是能打开这个窗口，而不能进入对应的页签
forms("综合管理").Open
If forms("综合管理").opened Then
Dim tab As WinForm.TabControl = forms("综合管理").Controls("页面合集")
tab.SelectedPage = tab.TabPages(e.Sender.text)
End If
此主题相关图片如下：微信图片_20200910162558.png
此主题相关图片如下：微信图片_20200910162558.png-- 发布时间：2020/9/10 16:34:00
--
请上传实例说明
-- 发布时间：2020/9/10 16:43:00
--
蓝大大，麻烦你看看这不是上传这个文件，谢谢
-- 发布时间：2020/9/10 16:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:仓库管理系统.table |
-- 发布时间：2020/9/10 16:45:00
--
上传文件：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
一次不成功，重复多试几次。注意文件不能大于2M
-- 发布时间：2020/9/16 20:55:00
--
蓝老师，我上传的文件有上传成功吗？