爲什麼不用這個可視化的基本腳本工作？

Question

我真的很生氣這個代碼的視覺基本 請你能幫忙。我已經看過YouTube和其他地方甚至vb網站！我真的很感激，如果有人可以幫助我

Public Class Form1 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    MessageBox.Show("Hi!!") 
    Timer1.Start() 

End Sub 

Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click 
End Sub 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    ProgressBar1.Increment(1) 
    If ProgressBar1.Value = 100 Then 
     Timer1.Stop() 
     MsgBox("Jeff") 

    End If 
End Sub 

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) 
End Sub 


Private Function GetNumericUpDown1(v As Integer) As Boolean 
End Function 

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged 
    If (: () Then 
     MessageBox.Show("Well Done!") 


    End If 
End Sub 



Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
    MessageBox.Show("!!Stopped!!") 
    Timer2.Stop() 

End Sub 

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick 
    ProgressBar2.Increment(0.6) 
    If ProgressBar2.Value = 100 Then 
     Timer2.Stop() 
     MsgBox("Jeff") 

    End If 
End Sub 


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    MessageBox.Show("!!Started!!") 
    Timer2.Start() 

End Sub 

Private Sub SplitContainer1_Panel1_Paint(sender As Object, e As PaintEventArgs) Handles SplitContainer1.Panel1.Paint 

End Sub 

Private Sub NotifyIcon1_MouseDoubleClick(sender As Object, e As MouseEventArgs) 

End Sub 

Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) 

End Sub 




Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick 
    ProgressBar3.Increment(1) 
    If ProgressBar3.Value = 100 Then 
     Timer3.Stop() 


    End If 
End Sub 

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 
    Timer3.Start() 


End Sub 

Private Sub ProgressBar3_Click(sender As Object, e As EventArgs) Handles ProgressBar3.Click 

End Sub 
End Class 

順便說一句：這是我的第一篇文章，所以它可能是垃圾！

Answer 1

我沒有足夠的評論意見。

首先，正如其他人所說，我們不能重新創建這個，因爲我們不知道你的表單看起來像什麼或者你期望它做什麼。

其次，您應該在Project屬性的Compile部分中打開Option Strict以避免諸如ProgressBar2.Increment（0.6）之類的技術錯誤，因爲0.6不是有效整數。

我把TabControl（你從來沒有在OP中提到過）與3個選項卡以及你列出的各種按鈕和進度條放在一起，看起來對我來說是合乎邏輯的方式，它對你的代碼運行得很好。點擊每個標籤上的按鈕，每個進度條最終達到100％。我不知道你還在期待什麼。

Answer 2

如果您刪除所有的空潛艇和動作偵聽器，它會更容易發現問題