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

WebBrowser タブブラウザ
タグの編集
返答する
投稿者 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

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

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


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


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

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

0
管理
返答する