哪位高人帮指点我一下，将这几行代码写成一个函数或者类，以便以后好调用。

Question

哪位高人帮指点我一下，将这几行代码写成一个函数或者类，以便以后好调用。Web1.Navigate2 URL0
Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '
Dim i As Long
Dim LinkNum As LongIf Not (pDisp Is Web1.Object) Then Exit SubIf URL0 = URL 
   '对数据进行处理。
End IfEnd Sub
我的想法是，将上面的代码写成一个函数,比如GetURLData（URL，WebName），其中：
URL－－－网址
webName－－是webbrowser控件的名字
函数返回的是网页源代码怎么办？
请教请教！

Answer 1

GetURLData(byval URL as string,byval WebName as control) as string
    if typeof WebName is Web1 then
        .
        .
        .
    end if

Answer 2

public retValue as stringpublic function GetURLData(byval strURL as string,byref objWebName as object,byval retVal as string) as booleanon error goto err_finobjWebName.Navigate2 strURLdo while (retvalue=vbnullstring)
    doevents
loop retVal = retvalue
retvalue=vbnullstring
GetURLData=trueexit functionerr_fin:
GetURLData=false
end function

Answer 3

retvalue的值写在Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant) '
Dim i As Long
Dim LinkNum As LongIf Not (pDisp Is Web1.Object) Then Exit SubIf URL0 = URL 
   End Ifretvalue=XXXXXXXXXX内容End Sub

Answer 4

真是太谢谢楼上两位大侠了！
综合一下，请教一下：
1、在函数GetURLData的定义时，究竟是byref objWebName as object还是byval WebName as control？或者是两者都可以？
2、horsefly() 大侠：要是 byval WebName as control，那么下面应该是if typeof WebName is Webbrowser then吧？
3、Kivic(享受·生活)大侠：要是byref objWebName as object这样定义，那么下面一句
 objWebName.Navigate2 strURL
它怎么知道objWebName有个方法Navigate2 ？继续请教！
 

Answer 5

还有个问题： Kivic(享受·生活) 的那个retvalue值要在Web1_DocumentComplete中求。问题是：调用GetURLData函数时，objWebName 是一个参数啊，那个web1那里来的呢？继续请教！

Answer 6

web1我估计是举个例子吧，你可以用具体的地址。

Answer 7

byref 和byval 定义是不同的前一个是动态的后一个是静态的

Answer 8

谢谢楼上大侠的答复！祝新春愉快！
请教：我想GetURLData（URL，webName）这样调用是，其中URL是webName控件要游览的网址。
请问怎么写下面Web1_DocumentComplete方法的代码？

Answer 9

Function GetURLData(URL As String, WebName As WebBrowser) As String
    GetURLData = ""
    
    Dim i As Long
    Dim LinkNum As Long
    
    If Not (pDisp Is Web1.Object) Then Exit Function
    
    If URL0 = URL Then
    
       '对数据进行处理。对 GetURLData 进行赋值。。
       
    End If
    
    End Function

Answer 10

谢谢大侠的答复！
但是你的答复没有给出怎么调用那个webname参数的 Webname_DocumentComplete方法怎么写啊！请教请教！