如何使用制作IE的超连接?我实在是不知道望各位大虾给我帮帮忙,我要急用他,哦 !还有E-Mail的超连接.望请快快恢复.在这里谢谢了^_^!!!

Question

如何使用制作IE的超连接,可以把我的网址输入到IE里,并把IE打开?我实在是不知道望各位大虾给我帮帮忙,我要急用他,哦 !
 还有E-Mail的超连接.望请快快恢复.在这里谢谢了^_^!!!

Answer 1

使用api函数shellexecuteprivate 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 0&, vbnullstring, "http://www.123.com", vbnullstring, vbnullstring, vbnormalfocus shellexecute me.hwnd, "open", "mailto:[email protected]", vbnullstring, vbnullstring, sw_show 还有人说下面这样也可以，不过我没有试过。连接到网页： 
　　shell "rundll32.exe url.dll,fileprotocolhandler http://www.online.sh.cn" 

Answer 2

Private Sub Command1_Click()
Dim myIe As Object
Set myIe = CreateObject("InternetExplorer.Application")
myIe.Navigate "http://office.9zp.com"
myIe.Visible = True
End SubPrivate Sub Command2_Click()
Dim myIe As Object
Set myIe = CreateObject("InternetExplorer.Application")
myIe.Navigate "mailto:[email protected]"
myIe.Quit
End Sub

Answer 3

用shellexecute，会借用正在运行的IE窗口来打开网页，这样总觉得对客户不礼貌。