tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルErrorProvider1のクリア
記事No6179
投稿日: 2007/08/28(Tue) 15:00
投稿者びぎ
 こんにちは。

以前、Formの全コントロールをクリアする方法を

Private Sub GetAllControls(ByVal control As Control)
   If control.HasChildren Then
      For Each childControl As Control In control.Controls
         GetAllControls(childControl)
        ' If TypeOf childControl Is TextBox Then
            childControl.Text = "花ちゃん"
        ' End If
      Next childControl
   End If
End Sub

と教えて頂きました。

ErrorProviderもクリアしたいのですが、
どうするとよいのですか?

宜しくお願いします。

[ツリー表示へ]
タイトルRe: ErrorProvider1のクリア
記事No6180
投稿日: 2007/08/28(Tue) 15:26
投稿者NANAC
http://msdn2.microsoft.com/ja-jp/library/system.windows.forms.errorprovider.clear(VS.80).aspx

これはどうでしょうか?

[ツリー表示へ]
タイトルRe: ErrorProvider1のクリア
記事No6181
投稿日: 2007/08/28(Tue) 15:27
投稿者びぎ
すいません。
ErrorProvider1.Clear()でOKでした。

[ツリー表示へ]
タイトルRe: ErrorProvider1のクリア
記事No6182
投稿日: 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

のような感じでどうでしょう。

[ツリー表示へ]