新しいタブを作ったときにエラーが起きる

タグの編集
投稿者 VAIVAIO  (社会人) 投稿日時 2012/6/18 16:53:32
僕はvbでタブブラウザを作っています。
でも、新しいタブを表示した途端、エラーが出てしまいます
現在は下のようになっています
Public Class Form1
Dim int As Integer = 0
Dim Browser As New WebBrowser

Private Sub Done(ByVal sender As System.Object,e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
ToolStripTextBox2.Text = CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.ToString 
'上の行でここでエラーが起きる 
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
End Sub

(中略)

End Class

これをどうやって対処すればいいんでしょうか。
出来ればソースコードもお願いします。
投稿者 (削除されました)  () 投稿日時 2012/6/18 19:09:26
(削除されました)
投稿者 (削除されました)  () 投稿日時 2012/6/18 19:43:59
(削除されました)
投稿者 るきお  (社会人) 投稿日時 2012/6/18 20:08:07
■確認1
エラーメッセージはなんでしょうか?
エラーで困っているときはエラーメッセージを載せましょう。
どんな達人でもエラーメッセージがないとわからないことは多いです。

■確認2
エラーになっているのは、
この行ですか?
ToolStripTextBox2.Text = CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Url.ToString


それとも、この行ですか?
TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle


■確認3
みたところ、選択されているタブの最初のコントロールがWebBrowserであることが前提になっているようですが、この前提で間違いありませんか?
投稿者 VAIVAIO  (小学生) 投稿日時 2012/6/23 15:25:13
るきおさん、エラーメッセージは、
「ArgumentOutOfRangeExceptionはハンドルされませんでした。」
です
投稿者 shu  (社会人) 投稿日時 2012/6/23 15:33:27
> 「ArgumentOutOfRangeExceptionはハンドルされませんでした。」
TabControl1.SelectedTab.Controls.Item(0)
に該当するものがないということだと思いますので、
TabControl1.SelectedTabに
相当するタブに
WebBrowserコントロールがControlsの最初にくるように配置して下さい。
投稿者 VAIVAIO  (小学生) 投稿日時 2012/6/23 15:50:56
shuさん、僕はWebBrowserを使わないということを前提としています。
> TabControl1.SelectedTabに
> 相当するタブに
> WebBrowserコントロールがControlsの最初にくるように配置して下さい。 
上の方法は僕の方法では無理です
投稿者 shu  (社会人) 投稿日時 2012/6/23 15:57:09
> shuさん、僕はWebBrowserを使わないということを前提としています。
そうすると

> CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).
ここでWebBrowserへの変換は出来ませんので、まったく別の
コーディングをする必要があります。