moduleweb.bas

来自「一款漂亮的控件。 快」· BAS 代码 · 共 16 行

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