×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
酷素材!视频教程打包下手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 624046|回复: 6

[vb,vc,delphi] VB获得一页的html代码

[复制链接]
发表于 2006-3-22 13:08:49 | 显示全部楼层 |阅读模式
  Private Sub Command1_Click()

  WebBrowser1.Navigate "http://localhost/"

  Timer1.Enabled = TrueEnd Sub

  Private Sub Timer1_Timer()

  Dim doc, objhtml As Object

  Dim i As Integer

  Dim strhtml As String

  

  If Not WebBrowser1.Busy Then

  Set doc = WebBrowser1.Document

  i = 0

  Set objhtml = doc.body.createtextrange()

  If Not IsNull(objhtml) Then

  Text1.Text = objhtml.htmltext

  End If

  Timer1.Enabled = False

  End If

  End Sub

本栏文章均来自于
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=9757
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2007-4-9 05:18:21 | 显示全部楼层
酷素材
樓主又是你啊???你是不是這麼行啊```可以教我一個快速學VB的方法嗎?
发表于 2018-1-13 21:28:37 | 显示全部楼层
很不错。。。
回复 支持 反对

使用道具 举报

发表于 2018-1-13 21:11:24 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

发表于 2018-1-13 22:00:04 | 显示全部楼层
酷素材
学习了。。。
回复 支持 反对

使用道具 举报

发表于 2018-1-13 21:26:21 | 显示全部楼层
酷素材
教程网我挺你
回复 支持 反对

使用道具 举报

发表于 2018-1-13 21:12:11 | 显示全部楼层
楼主我支持你
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345