1

VB 6.0 でインターネット ブラウザを作成し、進行状況バーを表示しました... リンクを入力して [GO] をクリックした後。進行状況バーのボタンの値が増加し始めますが、完全にいっぱいになるとエラーが発生します.. 実行時エラー '380': 無効なプロパティ値。

Private Sub Command1_Click()
    WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Command2_Click()
    WebBrowser1.GoBack
End Sub

Private Sub Command3_Click()
    WebBrowser1.GoForward
End Sub

Private Sub menuchangetheme_Click()
    CDB1.ShowColor
    Form1.BackColor = CDB1.Color
End Sub

Private Sub menuexit_Click()
    End
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    ProgressBar1.Value = 0
    If ProgressBar1.Value <> Val(ProgressBar1.Max) Then
        ProgressBar1.Value = ProgressBar1.Value + Val(Progress)
        ProgressBar1.Max = ProgressBar1.Value + 1
    Else
        ProgressBar1.Value = 0
    End If
End Sub
4

1 に答える 1

0

パラメータProgressおよびProgressMaxはすでに数値であるため、変換する必要はありません。Deanna が指摘したように、あなたのコードは Progress をプログレスバーの Value に追加しています。プログレスバーのMaxプロパティよりも大きな値を割り当てようとすると、エラーが発生します。

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

    On Local Error Resume Next 'suppress errors because they are not important enough to display to user

    If Progress > 0 Then                   'the page download is not complete
        ProgressBar1.Min = 0               'not really needed, but also doesn't hurt to set it here
        ProgressBar1.Max = ProgressMax + 1 'needs to be set because the ProgressMax can change every time the event is raised
        ProgressBar1.Value= Progress       'set the displayed value of the progressbar
    Else
        ProgressBar1.Value = 0             'the page load is finished
    End If

End Sub
于 2013-01-19T04:07:34.223 に答える