Question

有一个用户表单有很多文本框，我需要检测每个文本框中的更改。所以我为表单中的每个文本框编写了一个子例程，结果是一大段代码。由于每个文本框的代码都相同，我想优化它。那么是否可以只编写一个子程序来检测表单任何文本框中的更改？

Answer 1

实现这一目标的唯一方法是使用类和WithEvents

这是一个最小的例子：

名为mytextbox的类模块的代码：

Private WithEvents txtbox As MSForms.TextBox


Public Property Set TextBox(ByVal t As MSForms.TextBox)
    Set txtbox = t
End Property


Private Sub txtbox_Change()
    ' code for handling the event
End Sub

Userform中的代码，假设您要处理每个文本框的事件

Private myEventHandlers As Collection

Private Sub UserForm_Initialize()
    Dim txtbox As mytextbox

    Set myEventHandlers = New Collection

    Dim c As Control
    For Each c In Me.Controls
        If TypeName(c) = "TextBox" Then
            Set txtbox = New mytextbox

            Set txtbox.TextBox = c

            myEventHandlers.Add txtbox
        End If
    Next c
End Sub

VBA：检测用户表单的任何文本框中的更改

1 个答案: