通过Messagebox调试，从第一条语句就错了，是想实现，本来系统所有的导航不可用，但是当用户切换之后，又可用了。
以下代码放在项目的LoadUserSetting事件中，当用户切换的时候没有问题，但是，当重新登系统的时候，会提示未将对象引用到实例的错误。
难道是新登陆的时候当项目还没有打开，这些窗口不存在吗？但是，当我判断该窗口是否存在，如果存在才执行，也是同样错误。
'导航窗口所有按钮可用
For Each npg As WinForm.NavPage In Forms("导航窗口").Controls("常用查询导航").NavPages
For Each c As WinForm.Control In npg.Children
c.enabled = True
Next
Next
For Each npg As WinForm.NavPage In Forms("导航窗口").Controls("数据资料导航").NavPages
For Each c As WinForm.Control In npg.Children
c.enabled = True
Next
Next
If Forms("主窗口").Controls("Label1").Visible = True Then '主窗口提示信息隐藏
Forms("主窗口").Controls("Label1").Visible = False
End If
If Forms("主窗口").Controls("激活按钮").Visible = True Then '激活主窗口的激活按钮
Forms("主窗口").Controls("激活按钮").Visible = False
End If
加好友 
发短信
Post By：2016/9/1 11:49:00 [只看该作者]
