なぜこの視覚的な基本的なスクリプトはうまくいかないのですか？

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

コメントするにはポイントが足りません。

まず、あなたのフォームがどのように見えているか、あなたが何を期待しているかわからないので、他の人はこれを再現できないと言っているように、

第2に、0.6が有効な整数ではないため、ProgressBar2.Increment（0.6）のような技術的なエラーを避けるために、プロジェクトプロパティのコンパイルセクションでOption Strictをオンにする必要があります。

3つのタブと、論理的なファッションのように見えるさまざまなボタンとプログレスバーが表示されたTabControl（OPでは一度も言及していません）を一緒に投げました。各タブのボタンをクリックすると、各プログレスバーが最終的に100％になりました。あなたが他に何を期待しているのか分かりません。

Answer 2

あなたはすべての空の潜水艦とアクションリスナーを削除した場合、おそらく、あなたは親切にも間違っているかを説明するのだろう問題