テキスト領域から以前のすべてのテキストをクリアする方法は？

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

は、私はあなたが

をプロパティテキストを設定することができます前に、私はこれが機能すると思うのTextAreaを入力するCTLをキャストする必要があると思う

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よりもいくらか優れたパフォーマンスを提供する可能性があります。