Question

VB 单选框复选框的问题

VB作业：

以下为要求，图片可以参照。关键在于我怎么编辑单选框和复选框的命令？

当程序运行时，单击命令按钮，根据选择的单选按钮情况，在第一个文本框中显示“我是07级学生”或“我是08级学生”，根据复选框的选择情况，在第二个文本框中显示“我选修的课有”（复选框均未选中）或“我选修的课有音乐”（音乐复选框被选中） 或“我选修的课有美术” （美术复选框被选中）或“我选修的课有音乐美术” （音乐和美术复选框都被选中）

Answer 1

Private Sub Command1_Click()

Dim Str As String

If Option1.Value = True Then Text1.Text = "我是" & Option1.Caption & "学生 "
If Option2.Value = True Then Text1.Text = "我是" & Option2.Caption & "学生 "

Str = "我选修的课有"

If Check1.Value = 1 Then Str = Str & Check1.Caption
If Check2.Value = 1 Then Str = Str & Check2.Caption
Text2.Text = Str

End Sub

Private Sub Form_Load()

Option1.Caption = "07级": Option2.Caption = "08级"
Check1.Caption = "音乐": Check2.Caption = "美术"
Command1.Caption = "确定"

End Sub

Answer 2

Text1.Font.Underline
=
Not
Text1.Font.Underline
文本框
的
字体
.
N种状态
=
NOT
(
取反)
文本框
的
字体
.
N种状态
取反就是非
这样解释,
如果
"有下划线"
那本次的点击事件就是
"删除下划线".
NOT(相反),
如果
"没有下划线"
那就
"加上下划线"
不可能同时有多条下划线是吧~~.

Answer 3

这样就可以了，你的True写成ture了
Private
Sub
Command1_Click()
If
Option1.Value
=
True
Then
Text1.Text
=
"1"
ElseIf
Option2.Value
=
True
Then
Text1.Text
=
"2"
Else
Text1.Text
=
"3"
End
If
End
Sub

Answer 4

默认会选得,
想样试下另外建单选框,
把Visible设flase,
value设TRUE