vb的check

Private Sub Check1_Click()

If Check1 = 1 Then

MsgBox "现在是选中状态", vbInformation

Else

MsgBox "现在是未选中状态", vbInformation

End If

End Sub

你应该用

Optionbutton控件，这样就只能选择一个了。有关用法如下：

OptionButton

控件

OptionButton

控件显示一个可以打开或者关闭的选项。

语法

OptionButton

说明

在选项组中用

OptionButton

显示选项，用户只能选择其中的一项。在

Frame

控件、PictureBox

控件或者窗体这样的容器中绘制

OptionButton

控件，就可以把这些控件分组。为了在

Frame

或者PictureBox

中将

OptionButton

控件分组，首先绘制

Frame

或

PictureBox，然后在内部绘制

OptionButton

控件。同一容器中的

OptionButton

控件为一个组。

OptionButton

控件和

CheckBox

控件功能相似，但是二者间也存在着重要差别。在选择一个

OptionButton

时，同组中的其它

OptionButton

控件自动无效。相反，可以选择任意数量的

CheckBox

控件。

CheckBox是复选框---需要同时选择几个条件时使用。

举例：

选修课程：语文，数学，英语，美术，音乐，。。。。

这时可以使用CheckBox，你可以同时选择几个不同的课程。

OptiongButton是单选按钮---需要在几个条件中

只

选定一个条件时使用。

举例：

性别：男，女，不选。

这时可以使用OptiongButton，当你选定一个时候，其他2个自动成为非选定状态。

如果你希望在不同类别里每类只许选择一项（单选）时，就需要使用

Frame

，把OptiongButton分组放置在“容器”里，这样一个容器里的OptiongButton就不会影响其他类别中的OptiongButton了。

根据楼上的思路，我推荐一种正好符合楼主需求的方案。（可以无限增加控件）

使用Select Case 的方法。函数详细说明请查询百度。这里直接贴了。

首先，建议将CheckBox和TextBox分别做成一个控件组。（先创建一个CheckBox，然后复制，系统会询问是否创建，点击是。你会看到CheckBox的名字变成CheckBox1(0)和CheckBox1(1)，此时目标达成，TextBox也是同理，注意位置摆放的配对，控件摆放根据括号里的数字，一样的组成一对。）

Private Sub Check1_Click(Index As Integer)

Dim a As Integer

a = Check1(Index)Value‘获得被点击CheckBox1的返回值

If a = 1 Then’勾选

Select Case Index

Case 1‘数字代表括号里的数值

Text1(Index)Text = "选中"

Case 2

。。。

Case 3

。。。

无限添加

End Select

ElseIf a=0 Then

Text1(Index)Text = "未选中"

End If

1 你可以将那几个checkbox控件放入一个frame控件中，需要变动位置时调用frame控件的move方法即可

2 如果只有两三种可能，if，case都可以；如果情况比较多，建议采用case语句

checkbox传递一个布尔值，不选中为“false"，同时也为“0”，选中时值为“true”，同时也为“1”

在检测其值时，这样判断：

if

requestform("checkboxname")

=

true

then

或

if

requestform("checkboxname")

=

1

then

if

requestform("checkboxname")

=

false

then

或

if

requestform("checkboxname")

=

0

then

Private Sub Command1_Click()

If Check1Value = 1 Then

SaveSetting AppTitle, "setting", "text", Text1Text

Else

SaveSetting AppTitle, "setting", "text", ""

End If

MsgBox "ok"

End Sub

Private Sub Form_Load()

Text1Text = GetSetting(AppTitle, "Setting", "Text", "")

End Sub

以上就是关于vb的check全部的内容，包括:vb的check、VB check的用法、vb的CheckBox和OptionButton怎么用等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！