moduleweb.bas

100个vb编程实例,什么都有

Attribute VB_Name = "Moduleweb"
Public Function AddUrl()
Dim Nomatch As Boolean
Nomatch = True
For i = 0 To FrmWebBroswer.ComboUrl.ListCount - 1
If FrmWebBroswer.ComboUrl.List(i) = FrmWebBroswer.WebBrowser(FrmWebBroswer.SSTabUrl.Tab).LocationURL Then
    Nomatch = False
    Exit For
End If
Next
If Nomatch Then
    FrmWebBroswer.ComboUrl.AddItem FrmWebBroswer.WebBrowser(FrmWebBroswer.SSTabUrl.Tab).LocationURL
    FrmWebBroswer.ComboUrl.ListIndex = FrmWebBroswer.ComboUrl.ListCount - 1
End If
End Function