我是VB的初学者,这个管理系统的思路是这样的:
后台用ACCESS做了一个数据库,前面用VB编写应用界面。
我已经做了一个软件的启动封面,进入后要求通过管理员密码登陆,才使所有的功能菜单项enable。因此,我先建了个模块写了这样一个子程序
Public Sub InitSystem()
MDIManageSystem.mnuInfo.Enabled = False
MDIManageSystem.mnuSearch.Enabled = False
End Sub
然后在启动封面的FORM中用
Private Sub Form_Load()
……
Call InitSystem
End Sub
问题:
1、请教这样的思路好吗?
2、我用了Call InitSystem,进入软件后功能菜单项灰掉(达到目的!),但是鼠标移到上面还有按钮嵌下去的效果,能否实现鼠标移到上面没有任何效果的目的,怎么实现?
3、菜鸟的问题:我在模块或窗体中用PUBLIC声明子程序或函数,是不是这个子程序或函数就成了全局项,在整个工程都可见呢?
后台用ACCESS做了一个数据库,前面用VB编写应用界面。
我已经做了一个软件的启动封面,进入后要求通过管理员密码登陆,才使所有的功能菜单项enable。因此,我先建了个模块写了这样一个子程序
Public Sub InitSystem()
MDIManageSystem.mnuInfo.Enabled = False
MDIManageSystem.mnuSearch.Enabled = False
End Sub
然后在启动封面的FORM中用
Private Sub Form_Load()
……
Call InitSystem
End Sub
问题:
1、请教这样的思路好吗?
2、我用了Call InitSystem,进入软件后功能菜单项灰掉(达到目的!),但是鼠标移到上面还有按钮嵌下去的效果,能否实现鼠标移到上面没有任何效果的目的,怎么实现?
3、菜鸟的问题:我在模块或窗体中用PUBLIC声明子程序或函数,是不是这个子程序或函数就成了全局项,在整个工程都可见呢?
解决方案 »
- 浏览程序的时候,怎么回到之前的代码处?工具条上有按钮用吗?
- 请教如何用VB做ActiveXDLL
- 为什么在ACCESS中已经进行了更新,用ACCESS打开库,已有更新|但查询结果却没有更新???????????急!急!!!
- 以二进制输出时为什么会有两种结果
- 我是VB新手,编了一个小程序,想加个修改密码的功能,请大家帮忙告诉我一下实现的思想,谢谢
- inputbox内的输入字符能否用“*”代替?
- 请问如何把一个Byte数组中的内容复制到另外一个数组中呢?
- 等米下锅!!!
- 如何用一个按钮打开对话框
- 怎样通过数据库显示出图片字段??
- 请高手指教--如何改变VB生成可执行文件后的图标!
- StatusBar的用法
2、可以用MDIManageSystem.mnuSearch.Visible = False,隐藏菜单,效果会更好一点。我发现在WORD里面,灰色的菜单不高亮显示(背景变蓝),但是IE里灰色菜单会变蓝。
3、是的,整个工程里都可见。因为它是公共的。