ublic Class ChinaRing
Inherits SystemWebUIPage
#Region Web 窗体设计器生成的代码
该调用是 Web 窗体设计器所必需的
<SystemDiagnosticsDebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingCkBox As SystemWebUIWebControlsCheckBox
Protected WithEvents ChinaRingLb As SystemWebUIWebControlsLabel
Protected ChinaRingCkBox() As SystemWebUIWebControlsCheckBox
注意: 以下占位符声明是 Web 窗体设计器所必需的
不要删除或移动它
Private designerPlaceholderDeclaration As SystemObject
Private Sub Page_Init(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseInit
CODEGEN: 此方法调用是 Web 窗体设计器所必需的
不要使用代码编辑器修改它
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles MyBaseLoad
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
ChinaRingCkBox() = ChinaRingCkBox
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal sender As SystemObject ByVal e As SystemEventArgs) Handles ChinaRingCkBoxCheckedChanged
ChinaRingCkBox_CheckedChanged( sender e)
End Sub
Private Sub ChinaRingCkBox_CheckedChanged(ByVal index As Integer ByVal sender As SystemObject ByVal e As SystemEventArgs)
Dim i As Integer
i =
Dim ChinaRingCk As Boolean = False
If index = Then
ChinaRingCk = True
Else
If ChinaRingCkBox(index )Checked Then
ChinaRingCk = True
End If
Do While i < index
If ChinaRingCkBox(i)Checked Then
ChinaRingCk = False
End If
i = i +
Loop
End If
If Not ChinaRingCk Then
ChinaRingCkBox(index )Checked = Not ChinaRingCkBox(index )Checked
可以在这里加一个提示根据条件提示不能套入或不能拿出该环
End If
End Sub
End Class
