Question

VB下拉框事件

Answer 1

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0 '选第一个选项
Text1.Enabled = True
Text1.Text = "192.168.1.1"
Text2.Enabled = True
Text2.Text = "8080"
Case 1 '选第二个选项
......
Case 2 '选第三个选项
......
Case 3 '选第四个选项
......
End Sub

追问

不懂，就照QQ设置里面的写一下代码

Answer 2

Private Sub Combo1_Click()
If Combo1.Text = "不使用代理" Then
Combo2.Enabled = 0
Combo3.Enabled = 0
Else
Combo2.Enabled = 1
Combo3.Enabled = 1
End If
End Sub

Answer 3

Private Sub Combo1_Click()
Text1.Enabled = True
End Sub

追问

不是，你打开QQ设置就明白了

追答

不明白。。。请说明你要干什么。

追问

QQ设置里的样子当选择不使用代理时其他的不能输入，当选择其他的时，网络设置里的可以选择或者自己填写

追答

Private Sub Combo1_Click()
If combo1.text = "不使用代理" Then
Text1.Enabled = False
Text2.Enabled = False
……………………………………………… '有多少个文本框就写多少行代码
Else
Text1.Enabled = True
Text2.Enabled = True
……………………………………………… '有多少个文本框就写多少行代码
End If
End Sub

追问

不能用，写全点，全部代码都帮忙写上

追答

都给你写着示例了还不会写？？？我怎么知道你的程序是什么样的。总得把form的界面给出来吧？

追问

我就是制作的QQ，我现在做的这就是QQ登陆里面的设置

追答

就是上面的代码了。省略号里的依据你的控件写。不会的话自己看书。

Answer 4

建议你看msdn，里面讲得很详细

追问

能有代码吗？，有具体的网址吗？

追答

这个是vb的帮助文件，里面东西很全的。你没有吗？那你留下邮箱，我发给你。

追问

905221117@qq.com

追答

发过去了，名为“VB帮助文件”的邮件