主题：这个错误是何故呢？

以下代码在tabcontrol的SelectedIndexChangging事件里

Dim yq As String = e.Sender.SelectedPage.Name
Select Case yq
    Case "供应商信息"
        Forms("主界面").Controls("SplitContainer1").Panel1.Collapsed = True
End Select

 

以下代码在tabcontrol的双击事件里

If e.Sender.SelectedPage.text <> "首页" Then
     e.Sender.SelectedPage.Visible = False
End If
Forms("主界面").Controls("页签").SelectedIndex = 0
e.form.controls("页签").basecontrol.visualstyle =5

 

SelectedIndexChangging的代码取掉，双击事件正常，添加后双击就出错，出错提示为,求解

此主题相关图片如下：qq图片20130719171404.jpg

上例子,原因是某个变量是空值.

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

点击浏览该文件:测试页签.foxdb

没有问题啊.一切正常啊.

要加一个页面就有，我刚才多手删除掉了一个，所以没错误，我也发现了

3个页码也没报错啊.正常变换样式了啊.

你先关第三个页面，然后再双击关第二个页面看看，我怎么测试都报错的

要最后关PAGE2就会报错

原因很简单因为你关闭了就不存在e.Sender.SelectedPage.Name了.自然会报错.  

那我应该直接用forms("XX").xxx.xx指明对吗？