vb点虐 inet1的简单介绍

vb点虐 中有没有Inet1控件，在哪里如何弄出来？

在工具箱的而某一个菜单上右键选择项

成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、成都网站制作、北戴河网络推广、成都微信小程序、北戴河网络营销、北戴河企业策划、北戴河品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供北戴河建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

进去要么选择已经有的

要么自己浏览dll文件，添加进去再选择

VB问题,Inet1错误:仍在执行上一请求

Dim iBusy As Boolean

Private Sub Inet1_StateChanged(ByVal State As Integer)

iBusy = State = icReceivingResponse

End Sub

Private Sub Command1_Click()

'接收应答时不响应用户操作

If iBusy Then Exit Sub

'其他代码

End Sub

=============

学习楼上的，更简单

Private Sub Command1_Click()

If Inet1.StillExecuting Then Exit Sub

'其他代码

End Sub

VB如何使用 Inet1 控件下载图片

我只知道第一个

利用webrower控件可以。

ctrl+t 在其中找到microsft internet control 控件打上勾点应用

然后在部件中就多了一个控件，拉控件到一个到窗体上

Private Sub Form_Load()

WebBrowser1.Navigate2 ""

End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

On Error Resume Next

WebBrowser1.Document.body.Style.border = "0px" '隐藏边框

WebBrowser1.Document.body.Style.overflow = "hidden" '隐藏滚动条

WebBrowser1.Document.body.Style.margin = "0px" '修改网页边距为0

End Sub