VB初学新手求指导关于checkbox如何使用~

Private Sub Command1_Click()

If Check1Value = 1 Then Form2Show

If Check1Value = 0 Then Form3Show

End Sub

或

Private Sub Command1_Click()

If Check1Value = 1 Then Form2Show

Else

Form3Show

End If

End Sub

这段代码是在按下Command1时检测Check1的Value为几，也就是说Check1如果打勾的话按下Command1显示Form2，不打勾的话显示Form3。

Private Sub Check1_Click()

Text1FontBold = Check1Value

End Sub

Private Sub Check2_Click()

Text1FontItalic = Check2Value

End Sub

Private Sub Form_Load()

Text1FontSize = 30

Check1Caption = "粗体"

Check2Caption = "斜体"

End Sub

窗体上一个textbox 两个checkbox

帐号解封 庆祝一下~~~~~偶回来啰~~~~~~~~

value——返回或设置复选框的状态。其值为0时(默认值，对应常数为vbUnchecked)，表示复选框没有选中；为1时（对应常数为vbchecked），表示复选框处于选中状态；为2时，表示复选框前面的v处于灰色模糊状态（对应常数为vbGrayed）。Enabled——表示复选框当前是否可用。其值为True时，表示复选框为正常可用状态；为False时，表示复选框处于不可用状态，此时运行时选择项内容变为雕刻状。Check Box控件与Option Button控件有些相似，但在使用时有一个很大的不同，即CheckBox控件是彼此独立工作的，它们互不相干，没有丝毫的制约关系。只要您愿意，全选上或者一个也不选都可以。CheckBox复选框控件有时也以组的形式出现，但即使是这样，它们仍然是毫不相干的，给它们分组只是为了使界面上的复选框显得含义清楚，比如我们总是把反映同一问题的复选框归为一组。（2）常用事件——Click（不支持双击）事件CheckBox控件的常用事件为Click事件，用户的单击 *** 作即触发该事件。（3）例子：每次单击复选框控件时都将使其Caption属性以指示选中或未选中状态（见教材P122）。Private Sub Check1_Click()If Check1Value = 1 Then '当check1被选中时Check1Caption = "checked"ElseIf Check1Value = 0 ThenCheck1Caption = "unchecked"End IfEnd Sub响应鼠标和键盘：在键盘上使用[TAB]键并按[空格]键，由此将焦点转移到复选框控件上，也会触发复选框控件的Click事件。也可以在Caption属性的一个字母之前添加连字符“&”，创建一个键盘快捷方式来切换复选框控件的选择。如上例中：Private Sub Check1_Click()If Check1Value = 1 Then '当check1被选中时Check1Caption = "&checked" '定义快捷键ElseIf Check1Value = 0 ThenEnd IfEnd Sub则按“Alt+c”组合键将使控件在选中和未选中之间切换。注意：这种快捷键定义方法对于菜单和许多其它控件同样适用。

代码如下：

Private

Sub

Command1_Click()

If

Option1Value

=

True

Then

MsgBox

"你选择了复选框"

‘如果Option1被选中，则d出消息框

If

Check1Value

=

1

Then

MsgBox

"你选择了复选框"

‘如果Check1被选中，则d出消息框

else

if

Check1Value

=

0

Then

MsgBox

"你选择了复选框"

‘如果Check1被选中，则d出消息框

End

If

End

Sub

这个代码明白吗？

Private Sub Check1_Click()

End Sub

Private Sub Check2_Click()

Label2 = Label2 & Check2Caption & vbCrLf

Check2Enabled = False

End Sub

Private Sub Check3_Click()

Label2 = Label2 & Check3Caption & vbCrLf

Check3Enabled = False

End Sub

Private Sub Option1_Click()

End Sub

Private Sub Option2_Click()

End Sub

Private Sub Option3_Click()

Label2 = ""

Label1 = "你选择了" & Option3Caption

End Sub

前提是属性已经按你说的设置了

以上就是关于VB初学新手求指导关于checkbox如何使用~全部的内容，包括:VB初学新手求指导关于checkbox如何使用~、VB如何用复选框、vb中checkbox控仵怎样使用等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！