VB optionbutton的一个功能实现问题
我做了两个optionbutton1和2,隐藏frame1和frame2,点第一个option使frame1出现,但是fame2不显示.点第二个使frame2出现,fra...
我做了两个optionbutton1和2,隐藏frame1和frame2,点第一个option使frame1出现,但是fame2不显示.点第二个使frame2出现,frame1消失.
希望可以给我满足要求的代码,我放在Form_Load里不行.. 展开
希望可以给我满足要求的代码,我放在Form_Load里不行.. 展开
3个回答
展开全部
1.需设置默认状态,即程序运行时按钮的状态及Frame1,frame2的显示状态.否则刚运行时可能会与所需要的效果背道而驰.
Private sub Form_load()
OptionButton1.value=true
Frame1.visible=true
Frame2.visible=false
end
2.单击选项按钮时发生的事件.
Private sub Optionbutton1_click()
Frame1.visible=true
Frame2.visible=false
end
Private sub Optionbutton1_click()
Frame1.visible=false
Frame2.visible=true
end
Private sub Form_load()
OptionButton1.value=true
Frame1.visible=true
Frame2.visible=false
end
2.单击选项按钮时发生的事件.
Private sub Optionbutton1_click()
Frame1.visible=true
Frame2.visible=false
end
Private sub Optionbutton1_click()
Frame1.visible=false
Frame2.visible=true
end
展开全部
放够足够的控件option1、option2、option3,frame1、frame2,注意,先放option控件,再放frame控件,不要把任何一个option控件放在frame控件里面!切记。下面是全部代码:
Private Sub Form_Load()
Frame1.Visible = False
Frame2.Visible = False
Option1.Value = False
Option2.Value = False
Option3.Value = True
Option3.Left = Form1.Width + 10000
End Sub
Private Sub Option1_Click()
Option2.Value = False
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub Option2_Click()
Option1.Value = False
Frame1.Visible = False
Frame2.Visible = True
End Sub
注意:将所有代码全放到Form_Load里,永远达不到你说的效果。
Private Sub Form_Load()
Frame1.Visible = False
Frame2.Visible = False
Option1.Value = False
Option2.Value = False
Option3.Value = True
Option3.Left = Form1.Width + 10000
End Sub
Private Sub Option1_Click()
Option2.Value = False
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub Option2_Click()
Option1.Value = False
Frame1.Visible = False
Frame2.Visible = True
End Sub
注意:将所有代码全放到Form_Load里,永远达不到你说的效果。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不用放到form_load里面,加入下面代码就可以实现
Private Sub Option1_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub Option2_Click()
Frame1.Visible = False
Frame2.Visible = True
End Sub
Private Sub Option1_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub Option2_Click()
Frame1.Visible = False
Frame2.Visible = True
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询