| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]怎么能改变WebBrowser查看记事本的默认字体 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179082) |
| -- 作者：2425004926 -- 发布时间：2022/8/6 11:29:00 -- [求助]怎么能改变WebBrowser查看记事本的默认字体 把文本文件、网页放到一起，用浏览器控件WebBrowser打开查看，非常方便，可是在记事本里更改了字体大小，用WebBrowser查看时字体还是没有变化，非常小，怎么能改变WebBrowser查看记事本的默认字体，老师指点一下 |
| -- 作者：有点蓝 -- 发布时间：2022/8/6 12:03:00 -- Dim w As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl w.Document.body.style = "font-size: 30px;"
|
| -- 作者：2425004926 -- 发布时间：2022/8/6 12:43:00 -- 老师，帮忙在看一下： 我把那段代码放在下面红色两个位置，字体大小都没有变化，放在AfterLoad事件里也不行 Dim f1 As String = ProjectPath & "Attachments\\html\\" & e.Node.text & ".htm" Dim f2 As String = ProjectPath & "Attachments\\html\\" & e.Node.text & ".html"Dim f3 As String = ProjectPath & "Attachments\\html\\" & e.Node.text & ".txt" If FileSys.FileExists(f1) Then e.Form.Controls("WebBrowser1").Address = f1 ElseIf FileSys.FileExists(f2) Then e.Form.Controls("WebBrowser1").Address = f2 ElseIf FileSys.FileExists(f3) Then Dim w As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl w.Document.body.style = "font-size: 30px;" e.Form.Controls("WebBrowser1").Address = f3 Dim w As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl w.Document.body.style = "font-size: 30px;" |
| -- 作者：有点蓝 -- 发布时间：2022/8/6 14:01:00 -- e.Form.Controls("WebBrowser1").Address = f3 Dim w As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl Do Until w.ReadyState = 4 Application.DoEvents Loop w.Document.body.style = "font-size: 30px;"
|
| -- 作者：2425004926 -- 发布时间：2022/8/6 14:27:00 -- 好了！谢谢老师！ |