主题：[求助]图片（htm）

Dim file As String = ProjectPath & "show"
With Tables("htm数据文件")
    Dim html As String = FileSys.ReadAllText(file)
    html = html.Replace("{body}", .current("内容")).Replace("{title}", .current("标题"))
    FileSys.WriteAllText(ProjectPath & "test.html", html, False)
    e.Form.Controls("WebBrowser1").Address = ProjectPath & "test.html"
    e.Form.text=.current("标题") '窗口标题改为文章标题
End With