如何清除文本区域中的所有先前文本？

Question

我尝试了这段代码，但却抛出了错误。

Private Sub ClearText
    Dim ctl As Control

    ' Clear all the TextBoxes on the form.
    For Each ctl In Controls
        If TypeOf ctl Is TextArea Then ctl.Text = ""
    Next
End Sub

任何人都可以提出一些逻辑，谢谢

Answer 1

我认为您需要先将ctl转换为TextArea类型，然后才能设置属性Text

我认为这会起作用

Private Sub ClearText
    Dim ctl As Control

    ' Clear all the TextBoxes on the form.
    For Each ctl In Controls
        If TypeOf ctl Is TextArea Then CType(ctl, TextArea).Text = ""
    Next
End Sub

您也可以使用DirectCast，它可能提供比CType更好的性能。