Private Sub Combo1_Change() 的问题```````

来源:百度知道 编辑:UC知道 时间:2024/04/27 17:02:26
Private Sub Combo1_Change()
WebBrowser1.Navigate ("www.baidu.com")
End Sub

我的意思就是想让Combo1输入的时候发生打开网页事件```但是不行。
这样弄Combo1会输入不了,才输入了1个字就被更新了。。。

但是用文本是可以的,,,`````
其实我想做的是这个效果````` 但是这个代码非常麻烦``需要TEXT1 ...
Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub

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

Private Sub Text1_Change()
WebBrowser1.Navigate ("http://qqshow-user.tencent.com/" & Text1 & "/10/0")
Combo1.Text = Text1.Text
End Sub

Private Sub Timer1_Timer()
Text1.Text = Combo1.Text
Timer1.Enabled = False
End Sub

- -是不是要做成浏览器的效果?

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
WebBrowser1.Navigate (Combo1.Text)
End If
End Sub

你把事件改成click看看,在添加一个COMMAND做为连接网页的按钮