• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 网站程序 >> vb编程 >> VB中使复选框实现单选框功能

VB中使复选框实现单选框功能

• 作者：创新互联 文章来源：网站程序部 点击数： 更新时间：2008-08-08

• 下面给大家贴出VB中使复选框实现单选框功能代码！

  Dim lastIndex%, bCheck As Boolean

  Private Sub chkHonbu_Click(Index As Integer)
      If bCheck3 Then Exit Sub Else bCheck3 = True
      If lastIndex3 <> Index Then
          chkHonbu(lastIndex3).Value = 0
          lastIndex3 = Index
      Else
          chkHonbu(Index).Value = 1
      End If
      bCheck3 = False
  End Sub
  
  方法2
  Private Sub Check1_Click()
      If Check1.Value Then Check2.Value = 0
      If Check1.Value = 0 And Check2.Value = 0 Then Check1.Value = 1
  End Sub

  Private Sub Check2_Click()
      If Check2.Value Then Check1.Value = 0
      If Check1.Value = 0 And Check2.Value = 0 Then Check2.Value = 1
  
  End Sub方法3(最强的方法)
  Private i As Integer
  Private Sub Check1_Click()
      i = i + 1
      If i = 1 Then
          Check2.Value = (Not Check2.Value) And 1
          i = 0
      End If
      
  End Sub

  Private Sub Check2_Click()
      i = i + 1
      If i = 1 Then
          Check1.Value = (Not Check1.Value) And 1
          i = 0
      End If
  End Sub

• VB程序中如何产生出另一个Exe文件？ :上一篇
  没有了! :下一篇