ダウンロードの進行状況 への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 MAXV  (中学生)
投稿日時
2010/7/13 22:29:55
皆さんありがとうございます。
>進行状況とはこのようなことでよろしいでしょうか?
結構簡単なものが見つかりました。
この動画は結構気に入ってます。
>http://www.youtube.com/watch?v=Gd5xh_HF7EE
「タブブラウザの作り方(基礎)」
>進行状況とはこのようなことでよろしいでしょうか?
結構簡単なものが見つかりました。
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End Sub
この動画は結構気に入ってます。
>http://www.youtube.com/watch?v=Gd5xh_HF7EE
「タブブラウザの作り方(基礎)」
投稿者 まだまだ  (高校生)
投稿日時
2010/6/7 20:05:24
進行状況とはこのようなことでよろしいでしょうか?
BackgroundWorker1_ProgressChangedはBackgroundWorkerの進歩状況を示すものであって、
WebBrowserとは関係ありませんね。
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
ToolStripProgressBar1.Value = _
Integer.Parse(System.Math.Floor((e.CurrentProgress / e.MaximumProgress) * _
(ToolStripProgressBar1.Maximum - ToolStripProgressBar1.Minimum) + ToolStripProgressBar1.Minimum).ToString)
End Sub
BackgroundWorker1_ProgressChangedはBackgroundWorkerの進歩状況を示すものであって、
WebBrowserとは関係ありませんね。
投稿者 人  (中学生)
投稿日時
2010/6/7 16:10:05
ステータス文字列はStatusTextプロパティで参照可能です。
Private Sub WebBrowser1_StatusTextChanged( _
ByVal sender As Object, ByVal e As EventArgs) Handles WebBrowser1.StatusTextChanged
Me.ToolStripStatusLabel1.Text = WebBrowser1.StatusText
End Sub
投稿者 MAXV  (中学生)
投稿日時
2010/6/6 16:51:27
私は、でウェブブラウザを作っています。
http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=9661
ウェブブラウザ(WebBrowser1)を読み込んだときに、プログレスバー(ToolStripProgressBar1)の値(Value)をWebBrowser1の進行状況にし、
進行状況ラベル(ToolStripStatusLabel1)の内容を、「ページが表示されました。」や、「ページでエラーが発生しました。」などを表示するには、どうすればいいですか?
http://rucio.cloudapp.net/ThreadDetail.aspx?ThreadId=9661
ウェブブラウザ(WebBrowser1)を読み込んだときに、プログレスバー(ToolStripProgressBar1)の値(Value)をWebBrowser1の進行状況にし、
進行状況ラベル(ToolStripStatusLabel1)の内容を、「ページが表示されました。」や、「ページでエラーが発生しました。」などを表示するには、どうすればいいですか?
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
ToolStripProgressBar1.Value = e.ProgressPercentage
ToolStripStatusLabel2.Text = e.ProgressPercentage
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim i As Integer
For i = 1 To 100
System.Threading.Thread.Sleep(100)
BackgroundWorker1.ReportProgress(i)
Next
End Sub
参考になるでしょうか。
http://homepage1.nifty.com/yasunari/VB/VB2005/BasicTabBrowser.htm