Sub Button1_Click
wve.executeJavascript(webView1, "document.style.color='white'")
wve.executeJavascript(webView1, "document.style.color='black'")
End Sub
Sub Globals
Dim wve As WebViewExtras
Dim WebView1 As WebView
End Sub
Sub webView1_PageFinished(Url As String)
wve.executeJavascript(WebView1,"document.body.style.backgroundColor='black'")
wve.executeJavascript(WebView1,"document.body.style.color='white'")
End Sub
Fabulous. Many thanks. And I've added:
wve.executeJavascript(WebView1,"document.linkColor='lightblue'")
to make links more readable on a black background.