永发信息网

vb webbrowser控件问题

答案:1  悬赏:30  手机版
解决时间 2021-05-18 16:48
  • 提问者网友:城市野鹿
  • 2021-05-18 01:48

我敲了一段最简单的代码程序 觉得没问题 可是不成 大家看一哈 哪里错了 提示

有问题的地方在Combo1_KeyPress事件中

代码如下:

Private Sub Combo1_Click()
Dim urlstring As String
urlstring = Combo1.Text
WebBrowser1.Navigate (urlstring)
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim urlstring As String
Dim i As Integer
urlstring = Trim(Combo1.Text)
If Mid(urlstring, 1, 4) <> "http" Then
urlstring = "http://" & Combo1.Text & ".com"
End If
WebBrowser1.Navigate (urlstring)
Combo1.Text = urlstring
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
Exit Sub
End If
Next

Combo1.AddItem urlstring

End Sub
Private Sub Command1_Click()
Dim urlstring As String
Dim i As Integer
urlstring = Trim(Combo1.Text)

If Mid(urlstring, 1, 4) <> "http" Then
urlstring = "http://www." & Combo1.Text & ".com"

End If
WebBrowser1.Navigate (urlstring)
Combo1.Text = urlstring
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then
Exit Sub
End If
Next


Combo1.AddItem urlstring
End Sub

最佳答案
  • 五星知识达人网友:猎心人
  • 2021-05-18 03:21


在这里加+ End If

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯