VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1047|回复: 1

[求助] framede的问题!!!

[复制链接]
发表于 2018-1-25 12:29:57 | 显示全部楼层 |阅读模式
求助,我的一个窗体,里面有一个下拉框和两个frame,当下拉框选择1时,frame1可用,frame2的内容清除,同时frame2不可用;当下拉框选择2时,frame2可用,frame1的内容清除,同时frame1不可用,麻烦大神给个代码,本人初学,求教了!!!!
发表于 2018-1-29 09:31:44 | 显示全部楼层
本帖最后由 yiziwuya 于 2018-1-29 09:50 编辑

Private Sub Form_Load()
    Combo1.AddItem "1"
    Combo1.AddItem "2"
    Combo1.Text = "请选择"
    Text1 = ""
    Text2 = ""
    Frame1.Visible = False
    Frame2.Visible = False
   
End Sub


Private Sub Combo1_Click()
    If Combo1.Text = "1" Then
        Frame1.Visible = True
        Frame2.Visible = False
        Text2 = ""
      Else
        Frame2.Visible = True
        Frame1.Visible = False
        Text1 = ""
    End If
End Sub

如果项目多,用select

Private Sub Combo1_Click()

    Select Case Combo1.Text
    Case "1"
        Frame1.Visible = True
        Frame2.Visible = False
        Text2 = ""
    Case "2"
        Frame2.Visible = True
        Frame1.Visible = False
        Text1 = ""
    End Select
   
End Sub
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-8-15 08:50

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表