"Harald Staff" <innocent@enron.invalid> skrev i en meddelelse
news:B_a_d.2475$SL4.56021@news4.e.nsc.no...
> Hei Brian
>
> Valider URL i BeforeNavigate2. Som dette:
>
> Private Sub Form_Load()
> Dim S As String
> S = "<html><body><h2>DAV</h2>" & _
> "<a href=""felle1.htm"">Noget</a><br>" & _
> "<a href=""felle2.htm"">Noget andet</a><br>" & _
> "<a href=""
http://www.google.com"">Google" & _
> "</body></html>"
> Open App.Path & "\demo.htm" For Output As #1
> Print #1, S
> Close #1
> DoEvents
> WebBrowser1.Navigate2 App.Path & "\demo.htm"
> End Sub
>
> Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
> URL As Variant, Flags As Variant, _
> TargetFrameName As Variant, _
> PostData As Variant, Headers As Variant, _
> Cancel As Boolean)
> If InStr(URL, "felle1.htm") > 0 Then
> Cancel = True
> Call Test1("Der var den første")
> ElseIf InStr(URL, "felle2.htm") > 0 Then
> Cancel = True
> Call Test1("Der var den anden")
>
> End If
> End Sub
>
> Sub Test1(Melding As String)
> MsgBox Melding, , "Test 1 sier:"
> End Sub
>
> HTH. Beste hilsen Harald
>
> "Brian Oestergaard" <mantabrianREMOVE@hotmail.com> skrev i melding
> news:39bu9iF60b3a1U1@individual.net...
>> Hej
>>
>> Jeg en "WebBrowser" indsat på en form hvor jeg viser et lille
> reklamebanner.
>>
>> Jeg ville gerne have at et klik på WebBrowseren skulle afvikle noget
>> kode,
>> men tilsyneladende understøttes WebBrowser_Click ikke ?
>>
>> Er der en smart måde at omgås det på ?. Jeg synes ikke jeg kan komme på
>> nogle ideer selv
>>
>> På forhånd tak for svar.
>>
>> --
>> Med venlig hilsen
>> Brian Østergård
>>
>>
>
>
Hej
Så først dit indlæg nu. Tak for hjælpen
--
Med venlig hilsen
Brian Østergård