1

5 から 1 までカウントし、capture と表示するこの単純な vb.net コードを参照してください。開始ボタンがクリックされた後、これを4回連続して実行する必要があります..ループまで実行しようとしましたが、うまくいきませんでした.私はここの初心者なので、助けてください..

Public Class Form_welcome
    Dim Count As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Count -= 1
        Label2.Text = Count
        If (Count = 0) Then
            Timer1.Enabled = False
            Label2.Hide()
            Label3.Show()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Count = 5
        Timer1.Enabled = True
        Label2.Text = Count
        Timer1.Interval = 1000
    End Sub

End Class
4

2 に答える 2

0

Public Class Form_welcome Dim Count As Integer

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    Admin_Login.Show()
    Me.Hide()

End Sub

Private Sub Form_welcome_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    Application.Exit()

End Sub

Private Sub Form_welcome_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Button4.Hide()
    Button5.Hide()
    Button6.Hide()


    'Timer1.Enabled = True
    'Label2.Text = Count
    'Timer1.Interval = 1000

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Count -= 1
    'Label2.Text = Count
    If (Count = -1) Then
        Timer1.Enabled = False
        Label3.Show()
        Label3.Hide()
        Label2.Hide()
        Button4.Show()
        Button5.Show()
        Button6.Show()
        PictureBox4.Hide()
        PictureBox3.Show()
        pict1.Show()
        pict2.Show()
        pict3.Show()
        pict4.Show()
        Button2.Hide()
    End If
    If (Count Mod 3) = 0 Then
        Label2.Text = "Captured!"
    Else
        Label2.Text = Count

    End If


End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Count = 12
    Timer1.Enabled = True
    Label2.Text = Count
    Label2.Show()
    Timer1.Interval = 1000
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    Application.Exit()

End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    Button2.Show()
    Button4.Hide()
    Button5.Hide()
    Button6.Hide()
    PictureBox3.Hide()
    pict1.Hide()
    pict2.Hide()
    pict3.Hide()
    pict4.Hide()
    PictureBox4.Show()

End Sub

クラス終了

于 2012-11-21T02:57:57.970 に答える
0

このようなもの？

Public Class Form_welcome

    Dim Count As Integer
    Dim pictureCount as integer = 4

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Count -= 1
        Label2.Text = Count
        If (Count = 0) Then
            pictureCount -=1
            If pictureCount = 0 then
                Timer1.Enabled = False
           End If
                'take a picture
            Label2.Hide()
            Label3.Show()
            Count = 5
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Count = 5
        Timer1.Enabled = True
        Label2.Text = Count
        Timer1.Interval = 1000
    End Sub

End Class
于 2012-11-20T13:06:36.767 に答える