扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
在工具箱的而某一个菜单上右键选择项
成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站建设、成都网站制作、北戴河网络推广、成都微信小程序、北戴河网络营销、北戴河企业策划、北戴河品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供北戴河建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
进去要么选择已经有的
要么自己浏览dll文件，添加进去再选择
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
我只知道第一个
利用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
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网