这是引用什么类型库:??Set ObjectAccessControl = CreateObject("SecurityMgr.AccessControl")

yuejun 2003-10-16 04:29:19
Set ObjectAccessControl = CreateObject("SecurityMgr.AccessControl")

不明白啊, 请知情者告之,谢谢
...全文
70 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
onedream 2003-10-16
  • 打赏
  • 举报
回复
作者自己写的类啊
changechange 2003-10-16
  • 打赏
  • 举报
回复
自定义类不在这里的,这里只是生成这个类的实例
yuejun 2003-10-16
  • 打赏
  • 举报
回复

Private Sub Command1_Click()
Dim ObjectAccessControl As Object
Dim sUserName As String
Dim lreqFunction As Long
Dim bSuccess As Boolean

Set ObjectAccessControl = CreateObject("SecurityMgr.AccessControl")

sUserName = "AnyUserName"

lreqFunction = 3

bSuccess = ObjectAccessControl.isUserAllowed(sUserName, lreqFunction)

If bSuccess Then
MsgBox "use is Allowed access", vbInformation, "Access Check"

Else
MsgBox "use is denied access", vbCritical, "access check"
End If

Set ObjectAccessControl = Nothing

End Sub

yuejun 2003-10-16
  • 打赏
  • 举报
回复
不会吧, 我是在书上找到的一个例子, 晕倒
zjcxc 2003-10-16
  • 打赏
  • 举报
回复
这个应该是自己做的类吧.
SecurityMgr.AccessControl
online 2003-10-16
  • 打赏
  • 举报
回复
是不是自己做的?
不是系统的!

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧