当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB 判断按钮是否选中 判断Text输入内容是否正确

来看一下这个例子,这虽然是一个比较入门的VB窗体控件元素用法示例,但是我觉得熟悉这些技巧,对以后的VB编程帮助很大,本代码演示了如何定位光标、如何判断用户选择了哪一个Option项,判断用户是否单击了复选框的任意项等,为了演示方便,制作成了一个窗体,如下图示:

 Visual basic 6.0 Option Text Lable Checkbox等控件运用例子

实现这些功能的核心代码(不包括元素布局部分)如下:

Private Sub Command1_Click()
If Text1 = "" Then'姓名不允许为空
  MsgBox "请输入姓名!", , "错误" '否则弹出警告对话框
  Text1.SetFocus  '光标重新回去定位,等待输入姓名
  Exit Sub   '然后退出本事件过程
End If
p1 = Text1 & ""
p2 = IIf(Option1, "男", "女") & ","  '一组单选按钮

If Option3.Value = True Then  '判断用户选择了哪一项按钮
  p3 = "研究生" & "。"
ElseIf Option4 = True Then
 p3 = "大学" & "。"
Else
 p3 = "大学以下" & "。"
End If

p4 = "个人爱好:"
If Check1.Value = 1 Then p4 = p4 & Check1.Caption & "、"   '复选框的使用
If Check2.Value = 1 Then p4 = p4 & Check2.Caption & "、"
If Check3.Value = 1 Then p4 = p4 & Check3.Caption & "、"
If Check4.Value = 1 Then p4 = p4 & Check4.Caption & "、"
If Check5.Value = 1 Then p4 = p4 & Check5.Caption & "、"
If Check6.Value = 1 Then p4 = p4 & Check6.Caption & "、"
a = p1 & p2 & p3 & Chr(13) & Chr(10) & IIf(p4 = "个人爱好:", "无爱好", p4)
Label3.Caption = Left(a, Len(a) - 1) + "。"
Text1.SetFocus
'最后的结果整理后放到标签上显示出来。
End Sub

Private Sub Command2_Click()
Text1 = ""    '清空文本框
Option1.Value = False '清空单选按钮
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Check1.Value = 0'清空复选框
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Label3.Caption = ""
Text1.SetFocus  '光标回去定位
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Frame4_DragDrop(Source As Control, X As Single, Y As Single)
End Sub

若需要更完整的代码,你可以参考这里:Visual basic vb6.0 制作个人调查表窗体

相关内容:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图