关于单选按钮的VB编程

在窗体上添加

2个frame控件

里面各放两个单选按扭冲丛

Private

Sub

btnShow_Click()

Dim

a,

b

As

String

If

Op1.Value

=

True

Then

a

=

"火车"

ElseIf

Op2.Value

=

True

Then

a

=

"飞机"

End

If

If

Op3.Value

=

True

Then

b

=

"广州"

ElseIf

Op4.Value

=

True

Then

b

=

"上海"歼举

End

If

txtResult

=

"坐"

&

a

&

"去"

&

b

End

Sub

这是很简单的代码

没有

判断4个按扭

选没选

可以散改樱自己在添加一下

if xxxx then yyyy

这样的用法是简便，和

if xxxx then

yyyy

end if

一样的，

如果判断条件为真颂梁凳就执行一句代码，这样写最方便。举个例子你看一下,比较其中的区别

private sub Cmd1_click()

dim filename as string

filename=trim(text.text)

if filename<>"" then

'检查文件是否存在，存在就打开，不存在就创建

'创建文件成功后，将text2中的内容写入文件野旅

...

...

msgbox "写入文件成功"

end if

end sub

private sub Cmd1_click()

dim filename as string

filename=trim(text.text)

if filename="" then exit sub

'检查文件是否存在，存在就打开，不存在就创建

'创建文件成功后，将text2中的内容写入文件

...

...

msgbox "写渣猛入文件成功"

end sub

假如有三道单选题。我们把它分丛梁布排列好。按理是每一行只有一个被选上。但运行时，6个选项只能选旁郑孝择一个。

END

错误示范二

1

用容器将它们分组。结果和示范一是一样。无法实现单行单选。

END

正确示范

1

先画出一个frame

2

在frame1上面画出optionbutton单选按钮。此处是关键，不可以直接双击。

3

补齐三道题目。运行结果，正是我们想要的，每一行都可以选上。

END

补充

如果单选按钮optionbutton是双击出来的运稿。直接移到frame里面去是不行的。补救方法是：右键单选按钮，选择剪切，在frame里面右键选择粘贴。

2

检查单选按钮是否在容器frame内：直接移动frame，内容都跟着一起移动则表明是在容器内。

---