0

自動化されたプログラムを作成していますが、タイマーに行き詰まっています。プログラムを開始したとき、間隔が0であるとだけ表示されます

ここに私が得たものがあります:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim TextBox1 As String
    Dim URL As String
    Dim Textbox3 As Integer
    Dim i As Integer
    Dim Times As Integer
    Dim Time As Integer
    Dim Textbox2 As Integer
    Dim rampTimer As New Timer
    Dim Tyme As Integer
Restart:
    TextBox1 = URL
    UseProxy(ListBox1.Items.Item(i))
    WebBrowser1.Navigate(URL)
    Tyme = Textbox3 * 1000 * 6
    rampTimer.Interval = Tyme
    rampTimer.Enabled = True
    Time = Times + 1
    If Time = Textbox2 Then
        MsgBox("Done! Made by Laboboy31", "Done")
        GoTo Last
    End If
    Times = Time
    GoTo Restart
Last:
End Sub
4

1 に答える 1

4

ここで少し大げさな推測をしますが、あなたの主な問題はこの種のことだと思います

Dim TextBox3 as Integer
    Tyme = Textbox3 * 1000 * 6
    rampTimer.Interval = Tyme

ここで、フォームに「textbox3」というテキストボックスがあると思います。まず、ClickInterval のように意味のある名前に変更します。コードで参照する他のすべての Windows コンポーネント。

ルーチンの TextBox3 は、dim ステートメントで宣言した整数です。整数であるため、0 に初期化されるため、Tyme = 0 * 1000 * 6、つまり 0...

したがって、TextBox3 という TextBox があるとすれば、それがコンポーネントそのものです。コンテンツが必要な場合は、TextBox3.Text を参照してください。

最後になりましたが、TextBox.Text は文字列であるため、整数に変換する必要があります (整数ではないことに対処します)。暗いステートメントを取り除き、試してみてください

ramptimer.Interval = Convert.ToInt32(textBox3.text) * 1000 * 6

私が正しい行にいる場合。

于 2013-02-03T03:16:09.743 に答える