UC知道VB 变量赋属性的问题
来源：百度知道 编辑：UC知道 时间：2024/07/11 02:24:45
我的程序是这样的：
Dim rs As New ADODB.Recordset
rs.Open "select * from menulist where qx='1'", db, adOpenStatic, adLockReadOnly
If rs.EOF = True And rs.BOF = True Then
MsgBox "此用户为新注册用户,请到管理员处办理权限分配手续！", vbOKOnly + vbInformation, "提醒"
Else
Dim i As String
For T = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("bm").value)
i.visible=true '我总想这样可以给菜单的名称赋予可见的属性 ,但是提示不对
rs.MoveNext
Next T
End If
我解决掉了！！
Dim rs As New ADODB.Recordset
rs.Open "select * from menulist where qx='1'", db, adOpenStatic, adLockReadOnly
If rs.EOF = True And rs.BOF = True Then
MsgBox "此用户为新注册用户,请到管理员处办理权限分配手续！", vbOKOnly + vbInformation, "提醒"
Else
Dim i As Menu
For T = 0 To Val(rs.RecordCount) - 1
m = Trim(rs.Fields("bm").value)
Set i = Controls(m)
rs.Mo
Dim rs As New ADODB.Recordset
rs.Open "select * from menulist where qx='1'", db, adOpenStatic, adLockReadOnly
If rs.EOF = True And rs.BOF = True Then
MsgBox "此用户为新注册用户,请到管理员处办理权限分配手续！", vbOKOnly + vbInformation, "提醒"
Else
Dim i As String
For T = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("bm").value)
i.visible=true '我总想这样可以给菜单的名称赋予可见的属性 ,但是提示不对
rs.MoveNext
Next T
End If
我解决掉了！！
Dim rs As New ADODB.Recordset
rs.Open "select * from menulist where qx='1'", db, adOpenStatic, adLockReadOnly
If rs.EOF = True And rs.BOF = True Then
MsgBox "此用户为新注册用户,请到管理员处办理权限分配手续！", vbOKOnly + vbInformation, "提醒"
Else
Dim i As Menu
For T = 0 To Val(rs.RecordCount) - 1
m = Trim(rs.Fields("bm").value)
Set i = Controls(m)
rs.Mo
变量有visible属性吗？是控件有visible吧。
这个问题要解决的话我建议你用一下这个方法：
i.enable=true;
如果要是再不可以看见的话就把i.visible=true;加上
i.Visible = True
这句真怪