Question

我正在创建一个自动程序，而且我很沮丧。当我启动程序时，它只是说间隔是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

Answer 1

在这里采取一些疯狂的猜测，但我怀疑你的主要问题是围绕这种事情

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

现在我猜你的表单上有一个文本框，名为＆＃34; textbox3＆＃34;。首先将其重命名为有意义的内容，如ClickInterval。以及您将在代码中引用的所有其他窗口组件。

例程中的TextBox3是使用dim语句声明的整数。因为它是一个整数，它被初始化为0，所以Tyme = 0 * 1000 * 6，这是0 ......

所以假设你有一个名为TextBox3的TextBox，它就是组件本身。如果你想要内容那么你就是指TextBox3.Text。

最后但并非最不重要的TextBox.Text是一个字符串，因此您需要将其转换为整数（并处理它不是一个整数）。所以摆脱昏暗的声明并尝试

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

如果我在正确的路线上。

如何使用变量作为计时器的间隔？

1 个答案: