VB的WebBrowser如何在任意位置插入html代码？
我想在vb的webbrowser控件的任意位置插入代码。该如何实现例子：<body><table><tr><td>第一行数据</td></tr><tr><td>……这里是...
我想在vb的webbrowser控件的任意位置插入代码。该如何实现
例子：
<body>
<table>
<tr>
<td>第一行数据</td>
</tr>
<tr>
<td>……这里是第二行，该如何插入……</td>
</tr>
</table>
</body>
非常感谢1楼的回答，
我的问题是。不能用鼠标点击的
》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
能不能改下代码,就是用户点选择区域那块让代码完成
自动选择一个地方。比如</tabel>
然后在</table>那个地方插入代码
谢谢了。解决后在加分呀。。。没多少分了。呵呵 展开
例子：
<body>
<table>
<tr>
<td>第一行数据</td>
</tr>
<tr>
<td>……这里是第二行，该如何插入……</td>
</tr>
</table>
</body>
非常感谢1楼的回答，
我的问题是。不能用鼠标点击的
》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
能不能改下代码,就是用户点选择区域那块让代码完成
自动选择一个地方。比如</tabel>
然后在</table>那个地方插入代码
谢谢了。解决后在加分呀。。。没多少分了。呵呵 展开
展开全部
一、在窗体内加入控件Webbrowser,command1控件,然后复制下面代码：
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub Command1_Click()
Dim o, s As String
Set o = Webbrowser1.Document.selection.createRange
If (Not o Is Nothing) Then
s = InputBox("请输入HTML代码：", "插入代码")
s = o.htmlText & s
o.pasteHTML s
Set o = Nothing
End If
End Sub
二、F5运行，等网页装入完毕，在需要插入代码的地方用鼠标选择作记号；
三、点击Command1按钮，根据提示插入HTML代码，即可实现上述目标。
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub
Private Sub Command1_Click()
Dim o, s As String
Set o = Webbrowser1.Document.selection.createRange
If (Not o Is Nothing) Then
s = InputBox("请输入HTML代码：", "插入代码")
s = o.htmlText & s
o.pasteHTML s
Set o = Nothing
End If
End Sub
二、F5运行，等网页装入完毕，在需要插入代码的地方用鼠标选择作记号；
三、点击Command1按钮，根据提示插入HTML代码，即可实现上述目标。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Command1_Click()
Set newrow = WB.Document.getElementById("tb1").insertrow
Set newcol = newrow.insertCell
newcol.innertext = "现在时间是：" & Time()
End Sub
Private Sub Form_Load()
WB.Navigate App.Path & "\1.htm"
End Sub
Set newrow = WB.Document.getElementById("tb1").insertrow
Set newcol = newrow.insertCell
newcol.innertext = "现在时间是：" & Time()
End Sub
Private Sub Form_Load()
WB.Navigate App.Path & "\1.htm"
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你设个首页， 和程序安装时，调用这个页就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
