怎样实现通过点击label控件连接到主页

acehq 2001-06-14 04:05:00
...全文
152 13 打赏 收藏 举报
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
enmity 2001-06-24
gz
  • 打赏
  • 举报
回复
Ninputer 2001-06-16
用iexplorer直接打开的方法不好,因为用户默认的浏览器不一定是ie
  • 打赏
  • 举报
回复
enmity 2001-06-16
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

ShellExecute me.hwnd,"Open","caotang.myetang.com","","",vbNormalFocus
  • 打赏
  • 举报
回复
「已注销」 2001-06-16
以上所说各有偏颇

最简单的办法是

nResult = Shell("Explorer.exe http://yeqiufeng.363.net", ......)

好好利用Explorer.exe也能直接打开网页的特性啊

@_@
  • 打赏
  • 举报
回复
Ninputer 2001-06-16
ShellExecute的方法是更好的
  • 打赏
  • 举报
回复
sunisle 2001-06-16
Option Explicit

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 '调用浏览器或EMAIL软件
Const MailAddress = "mailto:sunisle@126.com"
Public Sub WriteEmail(Optional TempSubject As String)
'参数可选,缺省值是空
ShellExecute 0&, vbNullString, MailAddress + "?subject=" + TempSubject, vbNullString, vbNullString, vbNormalFocus
End Sub
Sub VisitHttp(Optional TempHttp As String = "http://sunxiao.126.com")
'参数可选,缺省值是http://sunxiao.126.com
ShellExecute 0&, vbNullString, TempHttp, vbNullString, vbNullString, vbNormalFocus
End Sub
  • 打赏
  • 举报
回复
心翦 2001-06-16
我支持你哟
  • 打赏
  • 举报
回复
snake1122 2001-06-14
不就是shell吗?变相说那么多干什么,27分一个人得了还可以,这么多人一分就没意思了!
我主持公道,acehq,将分给第一个说的.呵呵,其余的不要打我,我跑!!!!!!!
  • 打赏
  • 举报
回复
xhfjy 2001-06-14
在Label1_Click()

on error resume next
  • 打赏
  • 举报
回复
wjq 2001-06-14
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 Sub Label1_Click()
ShellExecute vbnullstring,vbnullstring,"http://url",vbnullstring,vbnullstring,1
End sub
  • 打赏
  • 举报
回复
tiaozi2000 2001-06-14
最可靠的做法是用api executex
  • 打赏
  • 举报
回复
jzsoft 2001-06-14
在click事件中
shell "http://www.csdn.net"
  • 打赏
  • 举报
回复
jisheng 2001-06-14
label_click()
nResult = Shell("start.exe http://members.xoom.com/srm/", vbHide)
end sub

呵呵,我看那个27分就…………
  • 打赏
  • 举报
回复
发帖
控件
加入

1433

社区成员

VB 控件
社区管理员
  • 控件
申请成为版主
帖子事件
创建了帖子
2001-06-14 04:05
社区公告
暂无公告