Excel VBA -当文本长度溢出用户表单文本框时是否可能触发事件

zzoitvuj  于 2023-08-08  发布在  其他
关注(0)|答案(1)|浏览(99)

我有一个带有文本框的用户表单(在其他控件中)。启用多行和自动换行。当我在文本框中输入文本时,该行在该行的右端换行,并继续这样做,直到文本框填满,此时会出现一个垂直滚动条。这一切都是正常的和工作。
我希望检测盒子何时已满,以便触发宏。有人知道怎么做吗?
我曾想过使用一个'改变'事件的文本框,以检查是否垂直滚动条是活跃的,但我无法找到办法来检测滚动条是否可见。如果我能检测到这一点,我就可以使用滚动条的激活来达到预期的目的。有什么想法吗?
谢啦,谢啦
兰诺罗布

qvtsj1bj

qvtsj1bj1#

我假设文本框的高度是稳定的,你不需要改变它。
然后你可以尝试以下方法。
插入文本,直到TextBox已满,并计算可见行。
在这个例子中,我猜是5。
然后在TextBox的Change事件中放入以下内容。

Private Sub TextBox1_Change()
    If Me.TextBox1.LineCount > 5 Then
        'fire your macro here
    End If
End Sub

字符串

相关问题