有点甜老师
我现在在做的项目都是动态增加TabControl，然后再在该TabControl上增加控件，我用你给我的代码，可以直接找到该控件所属的TabControl，我现在定义所有 标题名为:关闭窗口的 bottom,
除了窗口自带一个TabControl，名称为导航窗口，其它的都是用代码动态增加的。
在该窗口的 click 事件写以下代码：
If Typeof e.Sender Is WinForm.Button Then
Dim gb As WinForm.Button = e.Form.Controls(e.Sender.name)
Dim o = e.sender.parent
Dim qd As Boolean = False
If gb.Text = "关闭窗口" Then
qd = True
End If
Dim name As String
Do While o IsNot Nothing
If o.Gettype.name = "Tabpage" Then
If o.name <> "导航窗口" Then
name = o.name
End If
Exit Do
End If
o = o.parent
Loop
If name > "" Then
If qd = True Then
If e.Form.Controls("DH").TabPages.Contains(name) = True Then
e.Form.Controls("DH").TabPages.Delete(name)
Return
End If
End If
End If
End If
用这个代码，可以关闭当前的TabControl，但是一关闭完全成就会出错。如下图
此主题相关图片如下：5w15kq94yfjip2h6%@u0fz4.png
这个窗口一直在闪，只有用任务管理器关闭。我有菜单systemidle 中没有代码。老师能帮我看看是什么原因吗？
加好友 
发短信
Post By：2018/3/29 15:39:00 [显示全部帖子]
