dkfr.net
当前位置:首页 >> vB复选框默认选中 >>

vB复选框默认选中

复选框的VALUE的值有3个: 0表示Unchecked,即复选框处于未被选中状态 1表示checked即复选框处于被选中状态 2表示Unavailable即复选框处于禁止状态,不可使用,复选框将以灰色显示

checkbox的valve有三种数值选择: 0--不选 1--选择 2--不完全选择(对钩是灰色的)

添加一个复选框 if check1.value=1 then '复选框选中,进行如下操作 else '复选框未选中,进行如下操作 endif

private sub checkbox1_click() if checkbox1.checked then '当对checkbox1单击时,判断是否被选中,还是取消选中! msgbox "复选框被选中" else msgbox "复选框被取消选中" endifend sub

当勾选A时,B项不能选,当不勾选A时,B项可以选,这代码组合: CheckBox 控件 组中可以使用 CheckBox 控件显示多项选择,从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置 CheckBox 的值。 在一个窗体中可以同时选择任意数量的 Che...

CheckBox 控件 组中可以使用 CheckBox 控件显示多项选择,从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置 CheckBox 的值。 在一个窗体中可以同时选择任意数量的 CheckBox 控件。 以下代码会告诉CheckBox 控件单选或多选的状态 Op...

Private Sub Command1_Click() Dim i As Integer Text1.Text = "" For i = 0 To Check1.Count - 1 If Check1(i).Value = 1 Then Text1.Text = Text1.Text & Check1(i).Caption & vbCrLf Next End Sub

当复选框处于选中状态时,其value属性值为1

用value判断,假设您的复选框为check1,则代码为:private sub check1_click() | if check1.value=1 then | call setwindowpos(me.hwnd,-1,0,0,0,0,3) else | call setwindowpos(me.hwnd,-2,0,0,0,0,3) | end if | end sub (注:以上代码使用时...

当勾选A时,B项不能选,当不勾选A时,B项可以选,这代码组合: CheckBox 控件 组中可以使用 CheckBox 控件显示多项选择,从而可选择其中的一项或多项。也可以通过对 Value 属性编程设置 CheckBox 的值。 在一个窗体中可以同时选择任意数量的 Che...

网站首页 | 网站地图
All rights reserved Powered by www.dkfr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com