VB中用TAG防止控件属性赋值引起的不必要的事件

VBA控件事件触发技巧

最新推荐文章于 2020-02-17 22:22:21 发布

转载最新推荐文章于 2020-02-17 22:22:21 发布 · 2.2k 阅读

文章标签：

#vb #list #command

控件同时被 2 个专栏收录

29 篇文章

订阅专栏

事件及消息

9 篇文章

订阅专栏

本文介绍了一种在VBA中避免因属性修改而触发不必要的事件的方法，通过使用控件的Tag属性来判断是否执行相应的事件处理程序，以此提高程序效率。

看到yachong在一个帖子回了一段有意思的，转贴在这里：

很多时候给属性赋值会触发事件，至于哪个属性触发哪个事件就要靠经验了:)

Private Sub Command1_Click() ''这三个属性会触发下面的三个事件 Option1.Value = True Text1.Text = "12345" List1.ListIndex = 1 End Sub Private Sub List1_Click() Debug.Print "List1_Click" End Sub Private Sub Option1_Click() Debug.Print "Option1_Click" End Sub Private Sub Text1_Change() Debug.Print "Text1_Change" End Sub
程序简单并且对性能要求不高的时候，我就用下面的办法

Private Sub Command1_Click() '每个控件都有tag属性 '使用tag属性比使用全局变量方便 Option1.Tag = "啥也别干" Option1.Value = True Text1.Tag = "啥也别干" Text1.Text = "12345" List1.Tag = "啥也别干" List1.ListIndex = 1 End Sub Private Sub List1_Click() If List1.Tag = "啥也别干" Then List1.Tag = "" Exit Sub End If Debug.Print "List1_Click" End Sub Private Sub Option1_Click() If Option1.Tag = "啥也别干" Then Option1.Tag = "" Exit Sub End If Debug.Print "Option1_Click" End Sub Private Sub Text1_Change() If Text1.Tag = "啥也别干" Then Text1.Tag = "" Exit Sub End If Debug.Print "Text1_Change" End Sub