コントロールの存在確認

タグの編集
投稿者 xvmmtnk  (中学生) 投稿日時 2011/4/30 18:35:39
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser)

で、コントロールの存在確認をしたいのですが、上記のページで試しても、エラーがでて出来ません。
どうすれば良いのですか? 教えてください。
投稿者 xvmmtnk  (中学生) 投稿日時 2011/4/30 18:38:08
試したコードはこれです。
If TabControl1.SelectedTab.Control.Item(0).Contains("WebBrowser")
End If
投稿者 ぺぺたろう  (中学生) 投稿日時 2011/4/30 20:01:41
.Item(0)を消してみればどうでしょう?
投稿者 るきお  (社会人) 投稿日時 2011/4/30 23:58:34
Controls.Containsの引数には文字列ではなくコントロールそのものを渡します。
    
If TabControl1.SelectedTab.Controls.Contains(WebBrowser1) Then
    MsgBox("SelectedTabはWebBrowser1を含んでいます。")
End If
投稿者 shu  (社会人) 投稿日時 2011/5/2 11:03:37
Dim lstBrws = TabControl1.SelectedTab.Controls.OfType(of WebBrowser)
if lstBrws.count>0 then
end if

OfTypeが使えるバージョンならこんなんでどうでしょう?(未検証)
投稿者 xvmmtnk  (中学生) 投稿日時 2011/5/9 12:01:47
回答してくださったみなさんありがとうございます。
shuさんの方法でうまくいきました。
本当にありがとうございました。