- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这下按钮能否进行授权 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114126)
-- 发布时间：2018/1/29 14:57:00
-- 这下按钮能否进行授权
此主题相关图片如下：1.png
这下按钮能否进行授权
-- 发布时间：2018/1/29 15:28:00
--
做个计划，写代码
http://www.foxtable.com/webhelp/scr/0657.htm
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name = Nothing AndAlso frm.text = "图片管理器" Then
Dim lbs = frm.Controls(0).controls(0).panel2.controls(0)
lbs.controls("Add").visible = False
lbs.controls("Open").visible = False
\'Add
\'Open
\'Delete
\'Clear
\'NextRecord
\'PrevRecord
\'Manager
\'Full
\'Stretch
\'SaveAs
\'lblConnect
\'lblUpdate
End If
End If
-- 发布时间：2018/2/22 14:40:00
--
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
If frm.Name = Nothing AndAlso frm.text = "文件管理器" Then
Dim lbs = frm.Controls(0).controls(0).panel2.controls(0)
If User.Group = "员工之家" Then
lbs.controls("Add").visible = False
lbs.controls("Open").visible = True
lbs.controls("Delete").visible = False
lbs.controls("Clear").visible = False
lbs.controls("Manager").visible = False
lbs.controls("SaveAs").visible = False
lbs.controls("--------").visible = False
End If
End If
End If
想把目录的功能关闭 这块应该怎么写
-- 发布时间：2018/2/22 14:54:00
--
全部控件名
Add
Folder
Open
Delete
Clear
Manager
SaveAs
Connect
FullView
代码，如 lbs.controls("Folder").visible = False