用asp.net 实现“九连环” 小游戏
2007-12-15 09:33:21 来源:WEB开发网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
Else
If ChinaRingCkBox(index - 2).Checked Then
ChinaRingCk = True
End If
更多精彩
赞助商链接