帮忙看下我这程序怎还么开始的时候OptionButton是有一个被选中呢

显示全部楼层 · 2010-9-16 00:24:53

Private Sub Form_Load()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub
Private Sub Option1_Click()
Picture1.Visible = True
Picture2.Visible = False
Picture3.Visible = False
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Text1.Text = "1"
End Sub
Private Sub Option2_Click()
Picture2.Visible = True
Picture1.Visible = False
Picture3.Visible = False
Text2.Visible = True
Text1.Visible = False
Text3.Visible = False
Text2.Text = "2"
End Sub
Private Sub Option3_Click()
Picture3.Visible = True
Picture2.Visible = False
Picture1.Visible = False
Text3.Visible = True
Text2.Visible = False
Text1.Visible = False
Text3.Text = "3"
End Sub

千问 · 2010-9-16 00:24:53

看起来没问题。可以再加个OptionButton并设置为选中和不显示就行了。

帮忙看下我这程序 怎还么开始的时候OptionButton是有一个被选中呢

帮忙看下我这程序怎还么开始的时候OptionButton是有一个被选中呢