VB 6.0 中checkbox控件的使用

我想用 checkbox 绘制复选框,在选中后(可选一个或多个),单击确定按钮,可打印相关选项的Caption值。例如:三个复选框的Caption值分别为 A, B , C 。选中B、C确定后, 打印:你选择了B 、C 。
求各位大虾帮帮忙~~~

建立控件数组,然后再按钮单击事件里进行循环判断每个复选框的状态。。
只有3个复选框的话,也可以简单的这样写,

label1.caption="你选择了" & iif(check1(0).value,check1(0).caption,"") & ","& iif(check1(1).value,check1(1).caption,"") & ","& iif(check1(2).value,check1(2).caption,"")追问

我建立了控件数组,但是不清楚具体怎样循环判断。 三个选项只是举例,多的话就麻烦了。还有我不清楚是否要用数组,判断语句是用Value 还是Check , 总之各种尝试都以失败告终,望高人指点,越详细越好

追答

x="你选择了"

for n = o to 2
if check1(n).value then x=x & check1(n).caption

next
label1.caption=x

温馨提示:内容为网友见解,仅供参考
第1个回答  2013-07-09
Option Explicit

Private Sub Command1_Click()
Dim i As Integer, s As String
For i = 0 To Check1.Count - 1
    s = s & IIf(Check1(i).Value, Check1(i).Caption & ",", "")
Next
If s <> "" Then Mid(s, Len(s), 1) = "。": Print s

End Sub

Private Sub Form_Load()
Dim i As Integer
Check1(0).Caption = "A"
For i = 1 To 9
    Load Check1(i)
    Check1(i).Move Check1(0).Left, Check1(0).Top + Check1(0).Height * i
    Check1(i).Caption = Chr(65 + i)
    Check1(i).Visible = True
Next

End Sub

本回答被网友采纳
第2个回答  2013-07-08

追问

请问是如何实现的呢?

追答

首先判断哪个复选被选中,然后把选中的复选添加到字符串,打印即可。

vb6.0中组合框的使用给个介绍吧
Click 事件无论何时单击 CheckBox 控件都将触发 Click 事件,然后编写应用程序,根据复选框的状态执行某些操作。在下例中,每次单击 CheckBox 控件时都将改变其 Caption 属性以指示选定或未选定状态。Private Sub Check1_Click()If Check1.Value = vbChecked Then Check1.Caption = "Checked"ElseIf Che...

VB6.0中checkbox控件方法和控件事件是什么?
事件在代码筐上方有2个combobox,第一个选择你需要查看的控件,第二个combobox列表里就是事件

VB6.0里checkbox控件怎么用
if check1.value=1 then '选中 else '未选中 end if

VB6.0里cheakbox设置属性问题
呵呵 要透明得换控件的,在添加控件中 添加 Microsoft Forms2.0 Object Libary 工具栏新出现的cheakbox就可以设定checkbox1.BackStyle =fmBackStyleTransparent 背景就可以透明了。记得给我加分

vb中的checkbox如何使用
checkbox传递一个布尔值,不选中为“false",同时也为“0”,选中时值为“true”,同时也为“1”在检测其值时,这样判断:if request.form("checkboxname")= true then...或 if request.form("checkboxname")= 1 then...if request.form("checkboxname")= false then...或 if request.form("...

VB中的工具箱的每一个的作用是什么?(我家的是“VB6·0精简版”)_百度...
)加载)Image 插入图片label标签(编辑它的Caption属性可以添加文本内容)Textbox 文本框(用来输入或显示文本信息)Frame 框架(美化窗口,比如:字体大小14,20,24,32 你可以用一个框架将所以字体大小放到里面比较整齐)CommandButton命令按钮(编写语句点击该按钮可以执行的命令)CheckBox复选按钮(可一...

vb6中 三个Checkbox控件只要选中一个就可以激活frome组去操作里面的东西...
通过复制粘贴把chekbox1 做成控件组,代码如下:Private Sub Check1_Click(Index As Integer)Dim i As Integer For i = 0 To 2 If Check1(i).Value = 1 Then Exit For Next If i > 2 Then frome.enable = False Else frome.enable = True End If End Sub 下边这样更简洁一点 Private ...

怎样设置checkbox是否选中
一,在VB.NET中 1,在设计时设置其属性 选中该控件,在属性窗口找到Checked属性,设置为True就是选中、设置为False就是不选中。在Checked属性右边的True或False文本上双击,可以改变该属性。2,在运行时设置其属性 CheckBox1.Checked = True '设置为选中状态 CheckBox1.Checked = False '设置为非...

vb 复选框用法
CheckBox 控件 组中可以使用 CheckBox 控件显示多项选择,从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置 CheckBox 的值。在一个窗体中可以同时选择任意数量的 CheckBox 控件。以下代码会告诉CheckBox 控件单选或多选的状态 Option ExplicitPrivate Sub Check1_Click() Debug.Print Check1....

VB中如何 用vb代码设置checkbox的默认值为打勾
checkbox的valve有三种数值选择:0--不选 1--选择 2--不完全选择(对钩是灰色的)

相似回答