当前位置：网学 > 编程文档 > ASP.net > 正文

asp.net实现“九连环”小游戏

作者：用户投稿来源：网络发布时间： 12/10/12

Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox1.CheckedChanged
        ChinaRingCkBox_CheckedChanged(1, sender, e)
    End Sub

    Private Sub ChinaRingCkBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox2.CheckedChanged
        ChinaRingCkBox_CheckedChanged(2, sender, e)
    End Sub

    Private Sub ChinaRingCkBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox3.CheckedChanged
        ChinaRingCkBox_CheckedChanged(3, sender, e)
    End Sub

    Private Sub ChinaRingCkBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox4.CheckedChanged
        ChinaRingCkBox_CheckedChanged(4, sender, e)
    End Sub

    Private Sub ChinaRingCkBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox5.CheckedChanged
        ChinaRingCkBox_CheckedChanged(5, sender, e)
    End Sub

    Private Sub ChinaRingCkBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox6.CheckedChanged
        ChinaRingCkBox_CheckedChanged(6, sender, e)
    End Sub

    Private Sub ChinaRingCkBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox7.CheckedChanged
        ChinaRingCkBox_CheckedChanged(7, sender, e)
    End Sub

    Private Sub ChinaRingCkBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox8.CheckedChanged
        ChinaRingCkBox_CheckedChanged(8, sender, e)
    End Sub

    Private Sub ChinaRingCkBox9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChinaRingCkBox9.CheckedChanged
        ChinaRingCkBox_CheckedChanged(9, sender, e)
    End Sub

    Private Sub ChinaRingCkBox_CheckedChanged(ByVal index As Integer, ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim i As Integer
        i = 0
        Dim ChinaRingCk As Boolean = False
        If index = 1 Then
            ChinaRingCk = True
&nbs