正在阅读：用asp.net 实现九连环小游戏用asp.net 实现九连环小游戏

2004-04-27 10:02 出处：CSDN 作者：wildcatsky 责任编辑：linjixiong

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ChinaRingCkBox(0) = ChinaRingCkBox1
        ChinaRingCkBox(1) = ChinaRingCkBox2
        ChinaRingCkBox(2) = ChinaRingCkBox3
        ChinaRingCkBox(3) = ChinaRingCkBox4
        ChinaRingCkBox(4) = ChinaRingCkBox5
        ChinaRingCkBox(5) = ChinaRingCkBox6
        ChinaRingCkBox(6) = ChinaRingCkBox7
        ChinaRingCkBox(7) = ChinaRingCkBox8
        ChinaRingCkBox(8) = ChinaRingCkBox9
    End Sub

    Private Sub ChinaRingCkBox1_CheckedChanged(ByVal sender As System.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

察看评论详细内容我要发表评论