如何从文本区域清除所有以前的文本？

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键入文本区域，然后才能设置属性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更好的性能。