Hello agraham,
it works on my Desktop, but not at the Device, kann you check this for me?
Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
url = "http://www.vhs-brandenburg.de/googlemap.html?lat=52.4028&lon=12.5547"
'url = "http://www.vhs-brandenburg.de/"
Form1.Show
web.New1("Form1",0,22,240,223)
web.url = url 'either Navigate or assigning to Url will load the web page
End Sub
Sub Button1_Click
'web.Navigate(Textbox1.Text)
web.url = Textbox1.Text 'either Navigate or assigning to Url will load the web page
End Sub
Sub Button2_Click
For i = 0 To 4
HtmStr = HtmStr & "<tr>" & crlf
HtmStr = HtmStr & "<td " & Chr(34) & "width=33%" & Chr(34) & " style= " & Chr(34) & "white-space:normal" & "; " & "background-color:#E0E0E0" & Chr(34) & ">" & "<a href='" & "Choice" & i& "'>" & i & "</a></td>" & crlf
HtmStr = HtmStr & "</tr>" & crlf
Next
web.DocumentText = HtmStr
End Sub
'Sub web_DocumentCompleted
' Msgbox("Completed", web.Url)
'End Sub
Sub web_Navigating
msg = "Navigating to" & crlf & web.NavigatingURL
If Checkbox1.Checked Then
web.CancelNavigate = true
msg = msg & crlf & "cancelled"
End If
'Msgbox(Msg)
End Sub
Sub web_Navigated
'Msgbox("Navigated to" & crlf & web.Url)
Textbox1.Text = web.Url
End Sub
