vb點虐 中有沒有Inet1控件，在哪里如何弄出來？

在工具箱的而某一個菜單上右鍵選擇項

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站建設(shè)、成都網(wǎng)站制作、北戴河網(wǎng)絡(luò)推廣、成都微信小程序、北戴河網(wǎng)絡(luò)營銷、北戴河企業(yè)策劃、北戴河品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供北戴河建站搭建服務(wù)，24小時服務(wù)熱線：18982081108，官方網(wǎng)址：www.cdcxhl.com

進(jìn)去要么選擇已經(jīng)有的

要么自己瀏覽dll文件，添加進(jìn)去再選擇

VB問題,Inet1錯誤:仍在執(zhí)行上一請求

Dim iBusy As Boolean

Private Sub Inet1_StateChanged(ByVal State As Integer)

iBusy = State = icReceivingResponse

End Sub

Private Sub Command1_Click()

'接收應(yīng)答時不響應(yīng)用戶操作

If iBusy Then Exit Sub

'其他代碼

End Sub

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

學(xué)習(xí)樓上的，更簡單

Private Sub Command1_Click()

If Inet1.StillExecuting Then Exit Sub

'其他代碼

End Sub

VB如何使用 Inet1 控件下載圖片

我只知道第一個

利用webrower控件可以。

ctrl+t 在其中找到microsft internet control 控件打上勾點應(yīng)用

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

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" '修改網(wǎng)頁邊距為0

End Sub