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
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做为连接网页的按钮