Sub iBtn4_click
'Hilfe als HTML-Seite in Dialogfenster öffnen
'
Dim cdH As CustomDialog
Dim pnlH As Panel
pnlH.Initialize("pnlH")
Dim bgndH As ColorDrawable
bgndH.Initialize(Colors.Black, 5dip)
pnlH.Background = bgndH
Dim wv As WebView
wv.Initialize("")
pnlH.AddView(wv,0,0,100%x,100%y)
wv.LoadUrl("file:///android_asset/App-Hilfe.html")
cdH.AddView(pnlH, 0, 0, 90%x,90%y)
'
Dim ret As Int
ret = cdH.show("App-Hilfe","Website","schliessen","", Null)
If ret = DialogResponse.POSITIVE Then
Dim P As PhoneIntents
StartActivity(P.OpenBrowser("http://www.meineWebsite.de"))
Else If ret = DialogResponse.CANCEL Then
Return
End If
End Sub