Office中国论坛/Access中国论坛

标题: 求教：能否通过遍历得到所有事件的名称？ [打印本页]

作者: todaynew 时间: 2010-1-19 11:26
标题: 求教：能否通过遍历得到所有事件的名称？
想研究一下权限的设计问题。考虑仅仅对按钮事件进行设计还不够，窗体中还有一些除了按钮以外的事件，不知道怎么能通过遍历的方式得到所有事件的名称？请求指导和帮助。谢谢。

作者: 石橡 时间: 2010-2-28 22:21
本帖最后由石橡于 2010-2-28 22:22 编辑

Public Function Events遍历() As String
   Dim objevent As Property
      Dim frm As Form
   Set frm = Forms("窗体1")
      For Each objevent In frm.Properties
   If objevent.Type = 8 Then Debug.Print objevent.Name, objevent.Value
      Next
End Function
form 的事件控件的事件都可以用这种方法来是不是呢？
for each objevent in Object.properties
其中有几个属性不是事件，name caption 等等，其他都是事件，我也不知道如何进一步只是列举出事件,还需要高人指点，属性列表里的分类是如何实现的呢？

作者: todaynew 时间: 2010-3-2 07:39

Public Function Events遍历() As String
   Dim objevent As Property
      Dim frm As Form
   Set frm = Forms("窗体1")
      For Each objevent In frm.Properties
   If objevent.Typ ...
石橡发表于 2010-2-28 22:21

谢谢，这个问题我曾用一个其他的方法解决了。不过你提到的Properties
属性还没研究过，应该可以由此找到更简单的方法，回头我研究一下Properties属性。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)