vb里combobox取值问题 急!!!!在线等
类似QQ登录的时候,如果选中隐身登陆,然后下一个页面里的combobox显示隐身.如何作到的.为什么我这么写不行
Private Sub Form_Load()
If frmLogin.Check1 = True Then
Image7.Visible = True
Image1.Visible = False
Combo1.Text = "隐身"
ElseIf frmLogin.Check1 = False Then
Image7.Visible = False
Image1.Visible = True
Combo1.Text = "我在线上"
End If
End Sub
请教高手怎么写!!!急!!!!! --------------------编程问答-------------------- 求高手回答 谢谢 --------------------编程问答-------------------- frmLogin是被unload了,还是hide了?如果是unload ,在主窗口中用这段代码肯定要出错 --------------------编程问答-------------------- 可以考虑用全局变量
--------------------编程问答-------------------- '请注意 CheckBox的用法
1.首先先建立一个 .bas 标准模块
里面宣告 Public HideYN AS Boolean
2.你的代码改为
Private Sub Form_Load()
If Check1.Value = 1 Then
Image7.Visible = True
Image1.Visible = False
Combo1.Text = "隐身"
HideYN = True
Else
Image7.Visible = False
Image1.Visible = True
Combo1.Text = "我在线上"
HideYN = False
End If
End Sub
3.在你的另个窗体
Private Sub Form_Load()
If HideYN Then
Image7.Visible = True
Image1.Visible = False
Combo1.Text = "隐身"
Else
Image7.Visible = False
Image1.Visible = True
Combo1.Text = "我在线上"
End If
End Sub
--------------------编程问答-------------------- 你这么来一个思路
你启动的不是你的Login,而是你的主程序
你启动你的主程序后,你需要有一个用户登录验证
因此就弹出一个Login窗口,以模态显示,等待其返回
那么你可以在窗体里面设置一个属性(Property),注意不能是控件里面的值,必须是变量
然后你到主程序里面取就可以了
补充:VB , 控件