请教一个问题,我做的程序,界面有n个按钮,分管打开不同的窗口,将按钮的名称存到数据库相应的人员名称后边,这样当这个人登陆程序后,它可以访问的界面对应的按钮就可见,否则就不可见,比如用户甲可访问的按钮为A,那么就写成A.visible=true就行了,现在界面里的按钮很多,我不想一个一个的写可见属性,很麻烦,所以想从数据库直接取出用户对应按钮名称的字符串,这样一个循环就可以搞定,但是
字符串.visible=true 的写法不行,怎样写才能办到让字符串名等同于控件实体。
字符串.visible=true 的写法不行,怎样写才能办到让字符串名等同于控件实体。
Dim myButton As CommandButtonFor Each myButton In Me.Controls
If InStr(1, "A B C ", myButton.Name) Then
myButton.Visible = True
End If
Next
End Sub
for each a in me
if a.name="A" then
a.visible=true
endif
next
可以实现
用户登陆后修改按键的Caption就行了