求教：能否通过遍历得到所有事件的名称？

todaynew

想研究一下权限的设计问题。考虑仅仅对按钮事件进行设计还不够，窗体中还有一些除了按钮以外的事件，不知道怎么能通过遍历的方式得到所有事件的名称？请求指导和帮助。谢谢。

石橡

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

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属性。