frmmain.vb

一个游戏 初学者做的 用VB。net做的

Public Class frmMain

#Region "吴同学之前的代码"
    'Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    'End Sub

    'Private Sub btnP1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP1.Click
    '    Dim x As Integer
    '    x = 0
    '    x = x + 1
    '    If x = 1 Then
    '        Me.btnP1.Enabled = False
    '    End If
    'End Sub

    'Private Sub btnP2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP2.Click
    '    Dim y As Integer
    '    y = 0
    '    y = y + 1
    '    If y = 1 Then
    '        Me.btnP2.Enabled = False
    '    End If
    'End Sub

    'Private Sub btnP3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP3.Click
    '    Dim z, z1 As Integer
    '    z = 0
    '    z = z + 1
    '    If z = 1 Then
    '        Me.btnP3.Enabled = False
    '    End If
    'End Sub

    'Private Sub btnP4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP4.Click
    '    Dim a As Integer
    '    a = 0
    '    a = a + 1
    '    If a = 1 Then
    '        Me.btnP4.Enabled = False
    '    End If

    'End Sub

    'Private Sub btnP5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP5.Click
    '    Dim b As Integer
    '    b = 0
    '    b = b + 1
    '    If b = 1 Then
    '        Me.btnP5.Enabled = False
    '    End If
    'End Sub

    'Private Sub btnP6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP6.Click
    '    Dim c As Integer
    '    c = 0
    '    c = c + 1
    '    If c = 1 Then
    '        Me.btnP6.Enabled = False
    '    End If
    'End Sub

#End Region

    '================BySeven==============
    '在Handles的后面加事件
    '=====================================
    Private Sub btnP1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP1.Click, btnP2.Click, btnP3.Click, btnP4.Click, btnP5.Click, btnP6.Click
        Dim x As Integer
        x = 0
        x = x + 1
        If x = 1 Then
            sender.Enabled = False
        End If
    End Sub
    '===============以上==================

    Private Sub btnAnswer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnswer.Click
        Dim answer, a1, b1, c1, z1, x1, y1 As Integer
        If Me.btnP1.Enabled = False Then
            a1 = 1
        Else
            a1 = 0
        End If
        If Me.btnP2.Enabled = False Then
            b1 = 2
        Else
            b1 = 0
        End If
        If Me.btnP3.Enabled = False Then
            c1 = 4
        Else
            c1 = 0
        End If
        If Me.btnP4.Enabled = False Then
            x1 = 8
        Else
            x1 = 0
        End If
        If Me.btnP5.Enabled = False Then
            y1 = 16
        Else
            y1 = 0
        End If
        If Me.btnP6.Enabled = False Then
            z1 = 32
        Else
            z1 = 0
        End If
        answer = a1 + b1 + c1 + x1 + y1 + z1
        Me.txtAnswer.Text = answer
        Me.btnP1.Enabled = False
        Me.btnP2.Enabled = False
        Me.btnP3.Enabled = False
        Me.btnP4.Enabled = False
        Me.btnP5.Enabled = False
        Me.btnP6.Enabled = False

    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub btnreturn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreturn.Click
        Me.btnP1.Enabled = True
        Me.btnP2.Enabled = True
        Me.btnP3.Enabled = True
        Me.btnP4.Enabled = True
        Me.btnP5.Enabled = True
        Me.btnP6.Enabled = True
        Me.txtAnswer.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIllstrate.Click
        MsgBox("请你心中想一个1-63的数字，点击拥有该数字的图片，点击（你所想的数字按钮），看看猜出数字是不是你所想的？快去试试吧")
    End Sub
End Class