TabControl怎么根据选择的卡片项不同执行对应的动作！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → TabControl怎么根据选择的卡片项不同执行对应的动作！

共有6191人关注过本帖树形打印复制链接主题：TabControl怎么根据选择的卡片项不同执行对应的动作！

cnsjroom

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

TabControl怎么根据选择的卡片项不同执行对应的动作！ 发帖心情

Post By：2022/5/24 10:29:00 [显示全部帖子]

方式一：

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl2")

If tb.SelectedIndex = 0 Then

e.Form.Controls("Panel1").Basecontrol.controls("mplayer").close

End If

方式二：

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl2")

If tb.SelectedPage.Text = "知识库" Then

e.Form.Controls("Panel1").Basecontrol.controls("mplayer").close

End If

两种方式均没有实现close关闭动作！

[此贴子已经被作者于2022/5/24 10:30:08编辑过]

cnsjroom

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）方式一判断是如果选择的是第一个页签... 发帖心情

Post By：2022/5/24 10:39:00 [显示全部帖子]

Dim mplayer As new AxWMPLib.AxWindowsMediaPlayer()

mplayer.name = "mplayer"

mplayer.Dock = System.Windows.Forms.DockStyle.Fill

e.Form.Controls("Panel1").Basecontrol.controls.add(mplayer)

在操作方式1.2之前运行了如上代码

然后操作方式1.2结果没有运行e.Form.Controls("Panel1").Basecontrol.controls("mplayer").close

且方式一还提示错误：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：窗口,知识库,TabControl1,SelectedIndexChanged

详细错误信息：

未设置对象变量或 With 块变量。

[此贴子已经被作者于2022/5/24 10:41:39编辑过]

cnsjroom

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）完整代码 发帖心情

Post By：2022/5/24 11:12:00 [显示全部帖子]

全局代码：Public mplayer As new AxWMPLib.AxWindowsMediaPlayer()

播放视频按钮代码：

Dim wb As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl2")

Dim pc As WinForm.PictureBox = e.Form.Controls("PictureBox1")

tb.SelectedIndex=2

'Dim mplayer As new AxWMPLib.AxWindowsMediaPlayer()

mplayer.name = "mplayer"

mplayer.Dock = System.Windows.Forms.DockStyle.Fill

e.Form.Controls("Panel1").Basecontrol.controls.add(mplayer)

mplayer.url = vars("文件")

wb.Address = Nothing

pc.Image = GetImage(Nothing)

TabControl2控件SelectedIndexChanged代码：

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl2")

If tb.SelectedPage.text = "知识库" Then

e.Form.Controls("Panel1").Basecontrol.controls("mplayer").ctlcontrols.pause

End If

'Dim tb As WinForm.TabControl = e.Form.Controls("TabControl2")

'If tb.SelectedIndex = 0 Then

'MessageBox.Show("1")

'e.Form.Controls("Panel1").Basecontrol.controls("mplayer").close

'End If

cnsjroom

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）TabControl2控件SelectedIndexChange... 发帖心情

Post By：2022/5/24 11:36:00 [显示全部帖子]

提示如下错误：

---------------------------

编译错误:需要对程序集“Interop.WMPLib, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null”(包含类型“WMPLib.IWMPControls”)的引用。请在项目中添加一个。

错误代码：mplayer.ctlcontrols.pause

---------------------------

cnsjroom

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）请上传实例说明 发帖心情

Post By：2022/5/24 16:16:00 [显示全部帖子]

以下内容是专门发给有点蓝浏览

麻烦老师指导下，另外在打开或关闭的时候会报错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：窗口,知识库,BeforeClose

详细错误信息：

引发类型为“System.Windows.Forms.AxHost+InvalidActiveXStateException”的异常。

cnsjroom

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）下面用法我测试都没有问题e.Form.Con... 发帖心情

Post By：2022/5/24 17:27:00 [显示全部帖子]

奇怪了我删除了bin重新启动也会报错……还得麻烦老师帮忙看看

下一主题 >> << 上一主题

主题：TabControl怎么根据选择的卡片项不同执行对应的动作！