注意:访问本站需要Cookie和JavaScript支持!请设置您的浏览器! 打开购物车 查看留言付款方式联系我们
初中电子 单片机教材一 单片机教材二
搜索上次看见的商品或文章:
商品名、介绍 文章名、内容
首页 电子入门 学单片机 免费资源 下载中心 商品列表 象棋在线 在线绘图 加盟五一 加入收藏 设为首页
本站推荐:
VB中*网址*打开方法集合
文章长度[] 加入时间[2008/11/4] 更新时间[2024/5/24 22:51:26] 级别[0] [评论] [收藏]

网址打开全方法集合: 
1.基于start.exe 
                  +++++++++++++++++++源码1++++++++++++++++++++++ 
                  url="http://www.baidu.com"  
                  shell "start " & url,0  
                  +++++++++++++++++++源码2++++++++++++++++++++++ 
                  url="http://www.baidu.com"  
                  shell "cmd.exe /c start " & url,0  

2.基于文件浏览器(explorer.exe) 
                  +++++++++++++++++++源码+++++++++++++++++++++++ 
                  url = "http://www.baidu.com"  
                  Shell "explorer " & url, 0  

3.基于IE浏览器的 
                  +++++++++++++++++++源码1(使用IE对象)++++++++++ 
                  Dim Browser As Object  
                  url="http://www.baidu.com"  

                 Set Browser = CreateObject("InternetExplorer.Application")  

                  Browser.Visible = True  

                  Browser.Navigate (url)  
                  +++++++++++++++++++源码2++++++++++++++++++++++ 
                  Private Sub cmd1_Click()  
                  url = "http://www.baidu.com"  
                  exe = Environ("programfiles") & "\Internet Explorer\IEXPLORE.EXE"  
                  Shell exe & Space(1) & url, 1  
                  End Sub  

5.基于API的 
                 ’API函数声明 :  
                  +++++++++++++++++++源码++++++++++++++++++++++ 
                     Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long  

Private Const SW_SHOWNORMAL = 1  



’函数返回值为大于32的整数表明成功执行调用,小于或等于32表明调用失’败。  

’例如:  

Dim Result  

Result = ShellExecute(0, vbNullString, "http://www.ccw.com.cn", vbNullString, vbNullString, SW_SHOWNORMAL)  

If Result <= 32 Then  

MsgBox "调用浏览器错误!", vbOKOnly + vbCritical, "错误:", 0  

End If  


6.基于WebBrowser控件的 
                           +++++++++++++++++++源码++++++++++++++++++++++ 

                          url="http://www.baidu.com" 
                          WebBrowser1.Navigate url 
1、 本站不保证以上观点正确,就算是本站原创作品,本站也不保证内容正确。
2、如果您拥有本文版权,并且不想在本站转载,请书面通知本站立即删除并且向您公开道歉! 以上可能是本站收集或者转载的文章,本站可能没有文章中的元件或产品,如果您需要类似的商品请 点这里查看商品列表!
本站协议 | 版权信息 |  关于我们 |  本站地图 |  营业执照 |  发票说明 |  付款方式 |  联系方式
深圳市宝安区西乡五壹电子商行——粤ICP备16073394号-1;地址:深圳西乡河西四坊183号;邮编:518102
E-mail:51dz$163.com($改为@);Tel:(0755)27947428
工作时间:9:30-12:00和13:30-17:30和18:30-20:30,无人接听时可以再打手机13537585389