WEB开发网
开发学院WEB开发ASP.NET 用asp.net 实现“九连环” 小游戏 阅读

用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 ChinaR

   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

Tags:asp net 实现

编辑录入:coldstar [复制链接] [打 印]
赞助商链接