InetのCreateObjectとWithEvents

解決

ｚｚｚ 2006-08-07 19:44:00 No: 96192

CreateObject("InetCtls.Inet")したInetに
StateChangedイベントを設定したいのですが
WithEventsを使用しようにも型が違いますと言われてしまい
方法がわかりません

どうか宜しくおねがいします

K.J.K. 2006-08-08 05:37:24 No: 96193

"コンポーネント"ではなく"参照設定"で追加していますか?

ｚｚｚ 2006-08-09 02:55:28 No: 96194

K.J.K.さんの言うとおり
参照設定したらできました

どうもありがとうございました。

以下ソース
Private WithEvents objInet As Inet

Private Sub objInet_StateChanged(ByVal State As Integer)
Debug.Print State
End Sub

Private Sub Command1_Click()
    Dim byteData() As Byte
    Set objInet = New Inet
    byteData() = objInet.OpenURL("http://〜", icByteArray)
    If (UBound(byteData) >= 0) Then
        Debug.Print StrConv(byteData, vbUnicode)
    End If
    Set objInet = Nothing
End Sub