关于单选按钮的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个按扭

选没选

可以自己在添加一下

⒃谙允景磁サ氖录?刑砑尹br

/>me.backgroundimage=system.drawing.bitmap.fromfile("你的图片文件路径")

命令按钮1.visable=false'或者命令按钮1.hide

命令按钮2.visable=false'或者命令按钮2.hide

在窗体的click事件中添加

命令按钮1.visable=true'或者命令按钮1.show

命令按钮2.visable=true'或者命令按钮2.show

me.backgroundimage=nothing

在退出按钮的事件中添加

end

2、这里应该还有两个timer,timer1和timer2

在开始按钮的事件中添加

timer1.interval=1000

timer1.enable=true

timer2.interval=500

timer2.enable=true

在timer1的tick事件中添加

label1.text=timeofday

在timer2的tick事件中添加

label2.left=label2.left

10

if

label2.left

两种方法,一种是在资源编辑器里点击一下要设置默认的单选按钮,再在属性栏里把Value属性改为True,另一种就是在form_load或form_active事件里加上 单选按钮名称.value=1

---