展开全部
CheckBox 控件
组中可以使用 CheckBox 控件显示多项选择,从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置
CheckBox 的值。
在一个窗体中可以同时选择任意数量的 CheckBox 控件。
以下代码会告诉CheckBox 控件单选或多选的状态
Option Explicit
Private Sub Check1_Click()
Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub
Private Sub Check2_Click()
Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub
Private Sub Check3_Click()
Debug.Print Check1.Value; Check2.Value; Check3.Value
End Sub
展开全部
Dim 判断1 As Boolean, 判断2 As Boolean, 判断3 As Boolean
Private Sub Check1_Click()
If Check1.Value = 1 Then 判断1 = True
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then 判断2 = True
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then 判断3 = True
End Sub
Private Sub Command1_Click()
If 判断1 = True Then Text1.Text = Text1.Text & Check1.Caption
If 判断2 = True Then Text1.Text = Text1.Text & Check2.Caption
If 判断3 = True Then Text1.Text = Text1.Text & Check3.Caption
End Sub
Private Sub Form_Load()
判断1 = fasle
判断2 = fasle
判断3 = fasle
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then 判断1 = True
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then 判断2 = True
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then 判断3 = True
End Sub
Private Sub Command1_Click()
If 判断1 = True Then Text1.Text = Text1.Text & Check1.Caption
If 判断2 = True Then Text1.Text = Text1.Text & Check2.Caption
If 判断3 = True Then Text1.Text = Text1.Text & Check3.Caption
End Sub
Private Sub Form_Load()
判断1 = fasle
判断2 = fasle
判断3 = fasle
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
假设复选框名为XX,用if语句编程
if xx.value=ture then
'写选中的代码
else
'写未选中代码
endif
if xx.value=ture then
'写选中的代码
else
'写未选中代码
endif
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐于2018-04-02
展开全部
添加一个复选框
if check1.value=1 then
'复选框选中,进行如下操作
else
'复选框未选中,进行如下操作
endif
if check1.value=1 then
'复选框选中,进行如下操作
else
'复选框未选中,进行如下操作
endif
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
无Text属性,有Caption属性
Value可以是:vbUnchecked or vbChecked or vbGrayed
Value可以是:vbUnchecked or vbChecked or vbGrayed
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询