注意:访问本站需要Cookie和JavaScript支持!请设置您的浏览器! • 打开购物车 • 查看留言 • 付款方式 • 联系我们 |
首页 | 电子入门 | 学单片机 | 免费资源 | 下载中心 | 商品列表 | 象棋在线 | 在线绘图 | 加盟五一 | 加入收藏 | 设为首页 |
选择分类:当前分类——编程技巧 相关联或者相类似的文章: 微型停电应急灯(522) 《新三字经》(522) 用TC9148遥控MCS-51单片机(521) 世界鸟类跑得最快的鸟(521) 数字显式FM无线音频转发板(520) 2. 模拟开关灯(520) 音频电平指示套件(519) 正确使用电饭锅(518) 空心电感线圈厂参观记录有感(517) 电子基础知识--电声器件(517) ++ 浅谈电源滤波用电解电容 +(517) 巷子深深无香酒,偶有香酒不长久!(516) 调制电路与解调电路 (516) 棋骗(516) 池袋邪门四面塔(515) 新版爆笑口误,估计你还没看过(515) 推荐一款MP3转发器BA1404(调频立体声发射器)(514) [转帖]中国的怪题(514) 求职要有足够自我推销的勇气(513) 自制电路板几种方法(513) 首页 前页 后页 尾页 本站推荐: | VB中*网址*打开方法集合 网址打开全方法集合: 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 |