[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re: ErrorProvider1のクリア 投稿日 ： 2007/08/28(Tue) 15:32 投稿者 ： 魔界の仮面弁士
| > Private Sub GetAllControls(ByVal control As Control) メソッド名と実際の処理が一致していないので、違和感があります。(^^; Get は、「〜を取得する」といった意味ですし。 > ErrorProviderもクリアしたいのですが、 ErrorProvider は「コントロール」ではなく「コンポーネント」なので、列挙するには For Each c As Component In Me.Container.Components Dim ep As ErrorProvider = TryCast(c, ErrorProvider) If ep IsNot Nothing Then ep.Clear() End If Next のような感じでどうでしょう。 |
をクリックするとツリー全体を一括表示します） - ErrorProvider1のクリア - びぎ 07/08/28-15:00No.6179