请教在VB里如何写代码生成.html文件
1个回答
展开全部
Option Explicit
'工程-部件中，找到并勾选 Microsoft Internet Controls
'加入一个webbrowser控件，命名为 Text1
'添加一个TextBox，命名为 Text1，并且设置 MultLine 属性为 True
'添加一个Command，命名为 Command1
Private Sub Command1_Click()
WebBrowser1.Document.Write Text1.Text '加载自定义的网页
Me.Caption = WebBrowser1.Document.Title '刷新网页的标题
End Sub
Private Sub Form_Load()
Dim s As String
WebBrowser1.Navigate "about:blank" '设置为空白网页
s = "<html><head><meta http-equiv='content-type' content='text/html;charset=gbk'/>"
s = s & vbCrLf & "<title>这是个标题</title></head>"
s = s & vbCrLf & "<body>"
s = s & vbCrLf & "你好。<p>"
s = s & vbCrLf & "这是一个测试网页。"
s = s & vbCrLf & "</body>"
s = s & vbCrLf & "</html>"
Text1.Text = s '初始化网页
Command1_Click '显示自定义网页
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
