在部件中加的名称是inteinte controls
添加后控件箱中多一个地球样式控件就是WebBrowser
添加后控件箱中多一个地球样式控件就是WebBrowser
学海无涯
2007-05-27 15:46
2007-05-27 16:02
2007-05-27 16:16
2007-05-27 16:41
2007-05-27 16:53
你好象误会我意思 我不是说 按下Command1 可以打开或跳转网页 我是要可以运行网页源码
比如运行 如下Html代码
<html>
<body>
<a target=blank href=tencent://message/?
uin=27485203&Site=im.qq.com&Menu=yes><img border="0"
SRC=http://wpa.qq.com/pa?p=1:27485203:1 alt="有事点这"></a>
</body>
</html>
2007-05-27 18:19
2007-05-27 18:45
Dim k As Boolean
Private Sub Command1_Click()
WebBrowser1.Document.body.innerHTML = Text1
k = False
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
If (Not k) And Text = "完成" Then k = True: WebBrowser1.Refresh
End Sub
[此贴子已经被作者于2007-5-27 18:57:47编辑过]
2007-05-27 18:51
2007-05-27 18:57
2007-05-27 18:58
v1rn4U0o.rar