ex4.vb

ssd4 ex4parA源码 卡耐基教程练习四部分代码

Public Class Ex4
    Private numOne As Int32
    Private numTwo As Int32
    Private numThree As Int32
    Private type As Int32

    Public Property NumFirst() As Int32

        Get
            Return numOne
        End Get
        Set(ByVal value As Int32)
            numOne = value
        End Set
    End Property
    Public Property NumSecond() As Int32
        Get
            Return numTwo
        End Get
        Set(ByVal value As Int32)
            numTwo = value
        End Set
    End Property
    Public Property numThird() As Int32
        Get
            Return numThree
        End Get
        Set(ByVal value As Int32)
            numThree = value
        End Set
    End Property
    Public Property btnType() As Int32
        Get
            Return type
        End Get
        Set(ByVal value As Int32)
            type = value
        End Set
    End Property
    Private Sub btnUpOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpOne.Click
        Try
            Me.NumFirst = Convert.ToInt32(Me.lblOne.Text)
            If (Me.NumFirst < 23) Then
                Me.NumFirst = Me.NumFirst + 1
                Me.lblOne.Text = Me.NumFirst
            End If


        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try

    End Sub

    Private Sub btnDownOne_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownOne.Click
        Try
            Me.NumFirst = Convert.ToInt32(Me.lblOne.Text)
            If (Me.NumFirst > 0) Then
                Me.NumFirst = Me.NumFirst - 1
                Me.lblOne.Text = Me.NumFirst
            End If

        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try
    End Sub

    Private Sub btnUpTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpTwo.Click
        Try
            Me.NumSecond = Convert.ToInt32(Me.lblTwo.Text)
            If (Me.NumSecond < 59) Then
                Me.NumSecond = Me.NumSecond + 1
                Me.lblTwo.Text = Me.NumSecond
            End If

        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try
    End Sub

    Private Sub btnDownTwo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownTwo.Click
        Try
            Me.NumSecond = Convert.ToInt32(Me.lblTwo.Text)
            If (Me.NumSecond > 0) Then
                Me.NumSecond = Me.NumSecond - 1
                Me.lblTwo.Text = Me.NumSecond
            End If

        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try
    End Sub

    Private Sub btnUpThree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpThree.Click
        Try
            Me.numThird = Convert.ToInt32(Me.lblThree.Text)
            If (Me.numThird < 59) Then
                Me.numThird = Me.numThird + 1
                Me.lblThree.Text = Me.numThird
            End If

        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try
    End Sub

    Private Sub btnDownThree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownThree.Click
        Try
            Me.numThird = Convert.ToInt32(Me.lblThree.Text)
            If (Me.numThird > 0) Then
                Me.numThird = Me.numThird - 1
                Me.lblThree.Text = Me.numThird
            End If

        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        End
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        End
    End Sub

    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
        Try
            Select Case Me.type
                Case 1
                    Me.NumFirst = Convert.ToInt32(Me.lblOne.Text)
                    If (Me.NumFirst < 23) Then
                        Me.NumFirst = Me.NumFirst + 1
                        Me.lblOne.Text = Me.NumFirst
                    End If
                Case 2
                    Me.NumFirst = Convert.ToInt32(Me.lblOne.Text)
                    If (Me.NumFirst > 0) Then
                        Me.NumFirst = Me.NumFirst - 1
                        Me.lblOne.Text = Me.NumFirst
                    End If
                Case 3
                    Me.NumSecond = Convert.ToInt32(Me.lblTwo.Text)
                    If (Me.NumSecond < 59) Then
                        Me.NumSecond = Me.NumSecond + 1
                        Me.lblTwo.Text = Me.NumSecond
                    End If
                Case 4
                    Me.NumSecond = Convert.ToInt32(Me.lblTwo.Text)
                    If (Me.NumSecond > 0) Then
                        Me.NumSecond = Me.NumSecond - 1
                        Me.lblTwo.Text = Me.NumSecond
                    End If
                Case 5
                    Me.numThird = Convert.ToInt32(Me.lblThree.Text)
                    If (Me.numThird < 59) Then
                        Me.numThird = Me.numThird + 1
                        Me.lblThree.Text = Me.numThird
                    End If
                Case 6
                    Me.numThird = Convert.ToInt32(Me.lblThree.Text)
                    If (Me.numThird > 0) Then
                        Me.numThird = Me.numThird - 1
                        Me.lblThree.Text = Me.numThird
                    End If
            End Select
            
        Catch ex As Exception
            MessageBox.Show(ex.StackTrace)
        End Try
    End Sub

    Private Sub btnUpOne_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnUpOne.MouseUp
        Me.Timer.Enabled = False
    End Sub

    Private Sub btnUpOne_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnUpOne.MouseDown
        Me.Timer.Enabled = True
        Me.type = 1

    End Sub

    Private Sub btnUpTwo_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnUpTwo.MouseDown
        Me.Timer.Enabled = True
        Me.type = 3
    End Sub

    Private Sub btnDownTwo_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnDownTwo.MouseUp
        Me.Timer.Enabled = False
    End Sub

    Private Sub btnUpThree_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnUpThree.MouseDown
        Me.Timer.Enabled = True
        Me.type = 5

    End Sub

    Private Sub btnDownThree_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnDownThree.MouseUp
        Me.Timer.Enabled = False

    End Sub

    Private Sub btnDownOne_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnDownOne.MouseDown
        Me.Timer.Enabled = True
        Me.type = 2
    End Sub

    Private Sub btnDownOne_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnDownOne.MouseUp
        Me.Timer.Enabled = False
    End Sub

    Private Sub btnDownTwo_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnDownTwo.MouseDown
        Me.Timer.Enabled = True
        Me.type = 4
    End Sub

    Private Sub btnUpTwo_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnUpTwo.MouseUp
        Me.Timer.Enabled = False
    End Sub

    Private Sub btnUpThree_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnUpThree.MouseUp
        Me.Timer.Enabled = False
    End Sub

    Private Sub btnDownThree_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnDownThree.MouseDown
        Me.Timer.Enabled = True
        Me.type = 6
    End Sub
End Class