vb中checkbox控仵怎样使用?

vb中checkbox控仵怎样使用?,第1张

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”组合键将使控件在选中和未选中之间切换。注意:这种快捷键定义方法对于菜单和许多其它控件同样适用。

If DataGridView1CurrentRowCells(3)Selected = True Then
If MessageBoxShow("确定要删除", MeText, MessageBoxButtonsYesNo, MessageBoxIconNone) = WindowsFormsDialogResultYes Then
Dim s As String = "delete from tablename where id=" & DataGridView1CurrentRowCells(0)Value
'执行删除 *** 作
End If
Else
MessageBoxShow("未选中任何信息")
End If
需要先编辑DataGridView的列,在里面的ColumnType里选择CheckBox即可

答案修改:原来如此啊。以下是修改完毕的代码。
建command1,command2,command3,command4,check1,check2,check3
================
Sub Run()
If Check1Value = vbChecked Then
Open "c:\test\file1txt" For Output As 1
Print #1, InputBox("A")
Close
End If
If Check2Value = vbChecked Then
Open "c:\test\file2txt" For Output As 2
Print #2, InputBox("B")
Close
End If
If Check3Value = vbChecked Then
Open "c:\test\file3txt" For Output As 3
Print #3, InputBox("C")
Close
End If
End Sub
Private Sub Command1_Click()
Check1Value = vbChecked
Check2Value = vbChecked
Check3Value = vbUnchecked
End Sub
Private Sub Command2_Click()
Run
MsgBox "执行完毕"
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Run
Command1_Click
MsgBox "已还原"
End Sub
Private Sub Form_Load()
Command1Caption = "默认"
Command2Caption = "确定"
Command3Caption = "取消"
Command4Caption = "还原"
Check1Caption = "A"
Check2Caption = "B"
Check3Caption = "C"
Check1Value = vbChecked
Check2Value = vbChecked
End Sub

代码如下:
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
 
这个代码明白吗?

CheckBox是复选框---需要同时选择几个条件时使用。
举例:
选修课程:语文,数学,英语,美术,音乐,。。。。
这时可以使用CheckBox,你可以同时选择几个不同的课程。
OptiongButton是单选按钮---需要在几个条件中

选定一个条件时使用。
举例:
性别:男,女,不选。
这时可以使用OptiongButton,当你选定一个时候,其他2个自动成为非选定状态。
如果你希望在不同类别里每类只许选择一项(单选)时,就需要使用
Frame
,把OptiongButton分组放置在“容器”里,这样一个容器里的OptiongButton就不会影响其他类别中的OptiongButton了。

Private Sub Form_Load()
'属性栏内设置:List1Style = 1
'初始化
For i = 65 To 69
List1AddItem Chr(i)
Next i
MeShow
'设置a,c,e选中
For i = 0 To List1ListCount - 1
If LCase(List1List(i)) = "a" Then
List1Selected(i) = True
MsgBox List1List(i) & "选中了,谢谢"
End If
If LCase(List1List(i)) = "c" Then
List1Selected(i) = True
MsgBox List1List(i) & "选中了,谢谢"
End If
If LCase(List1List(i)) = "e" Then
List1Selected(i) = True
MsgBox List1List(i) & "选中了,谢谢"
End If
Next i
End Sub

创建一个main过程用来处理标签1
Sub main()
Label1Caption = ""
If Check1Value = 1 Then Label1Caption = Label1Caption & Check1Caption
If Check2Value = 1 Then Label1Caption = Label1Caption & Check2Caption
If Check3Value = 1 Then Label1Caption = Label1Caption & Check3Caption
End Sub
Private Sub Check1_Click()
Call main '复选框调用main过程
End Sub
Private Sub Check2_Click()
Call main
End Sub
Private Sub Check3_Click()
Call main
End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/10547086.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-09
下一篇 2023-05-09

发表评论

登录后才能评论

评论列表(0条)

保存