Visual Basic自定义进度栏不移动

Question

我是VB的初学者，我尝试从两个面板制作进度条，但前面的一个没有移动。代码：

Public Class Startup
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Front.Width < Me.Width Then
            Front.Width = Front.Width + 10
        End If
        If Front.Width = "1366" Then
            Timer1.Stop()
            Login.Show()
            Me.Close()
        End If

    End Sub

Answer 1

INDEX所说的绝对正确！

你应该测试一个不是字符串的数字

  

如果Front.Width = 1366那么

然后注意他/她的第二点！ 你以10步递增，你将通过1366而没有击中它！

因此，您应该将IF语句更改为

  

如果Front.Width＆gt; = 1366那么