文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页精文荟萃软件资讯 → 用asp.net 实现九连环小游戏

用asp.net 实现九连环小游戏

时间:2004/10/7 18:28:00来源:本站整理作者:蓝点我要评论(0)


            
             
              
             
            

               
               

            



            呵呵,培训时老师讲的简单例子,俺自己作了一下,还可以运行。

  public Class ChinaRing1
    Inherits System.Web.UI.Page


 


  #Region " Web 窗体设计器生成的代码 "


    '该调用是 Web 窗体设计器所必需的。
    Private Sub InitializeComponent()


    End Sub
    Protected WithEvents ChinaRingCkBox1 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox2 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox3 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox4 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox5 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox6 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox7 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox8 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingCkBox9 As System.Web.UI.WebControls.CheckBox
    Protected WithEvents ChinaRingLb1 As System.Web.UI.WebControls.Label
    Protected ChinaRingCkBox(8) As System.Web.UI.WebControls.CheckBox



    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object


    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub


  #End Region


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


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
            Do While i < index - 2
                If ChinaRingCkBox(i).Checked Then
                    ChinaRingCk = False
                End If
                i = i + 1
            Loop
        End If
        If Not ChinaRingCk Then
            ChinaRingCkBox(index - 1).Checked = Not ChinaRingCkBox(index - 1).Checked
            '可以在这里加一个提示,根据条件提示不能套入,或不能拿出该环。
        End If
    End Sub


  End Class

相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论
发表评论

热门文章 360随身Wifi 4G版什么怎样提高origin下载速百度收购PPS已敲定!3

最新文章 伊森卡特的消失通关流千牛怎么设置自动回复 增加新功能,S版Moto G喜获Android 4.4.4更鸡肋?谷歌Play Music发布更新版本千牛怎么设置自动回复​千牛云盘怎么用

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方office2013安装教程图解:手把手教你安装与同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载VeryCD镜像网站逐个数,电驴资料库全集利用PHP程序设定防止MySQL注入或HTML表单滥web服务器和应用服务器的区别安卓android 系统支持什么视频格式