+ -
当前位置:首页 → 问答吧 → 如何动态设置菜单?麻烦大哥们指点一二。

如何动态设置菜单?麻烦大哥们指点一二。

时间:2011-10-21

来源:互联网

我想让我的程序有权限分配功能。
如:在数据库里建一个表:QXFP
表字段:ID '主键,自动编号
  QX'权限,可在此权限所能打开的菜单名称,与程序菜单名称一致

登录程序,分配到权限,读取QX字段内的所有菜单名称,
现在是如何动态设置所读取的 菜单名称.Enabled = True
我主要是不知道代码怎么写,下面这个代码一定是错的,我只想让大家知道我的意思,还有让大家帮我改改。
Dim vCD As Variant
Rs.Open "select * from QXFP where username='" & txtUserName & "'", Conn, 1
If Not Rs.EOF Then
vCD = Split(Rs!QX, "|")
End If
Rs.Close
Dim I As Integer
For I = 0 To UBound(vCD)
vCD(I).Enabled = True
Next I

作者: kellyicu   发布时间: 2011-10-21

窗体上有一个菜单File,子菜单File1,File2,File3
其实菜单和子菜单都是窗体的控件,其他控件已经不能命名为File,或者File2了.
VB code

Private Sub Command1_Click()
Dim a As Object
For Each a In Form1.Controls
    Debug.Print a.Name, TypeName(a)
Next
Dim x As Menu
Set x = Form1.Controls("File1")
x.Enabled = False
End Sub

作者: spt_petrolor   发布时间: 2011-10-21

我还是有些糊涂。。

作者: Veron_04   发布时间: 2011-10-21

引用 1 楼 spt_petrolor 的回复:
窗体上有一个菜单File,子菜单File1,File2,File3
其实菜单和子菜单都是窗体的控件,其他控件已经不能命名为File,或者File2了.

VB code


Private Sub Command1_Click()
Dim a As Object
For Each a In Form1.Controls
Debug.Print a.Name, TypeNa……


谢谢兄弟了!

作者: kellyicu   发布时间: 2011-10-21

热门下载

更多