Office中国论坛/Access中国论坛

标题: 按钮 [打印本页]

作者: 张杨 时间: 2011-8-31 10:03
标题: 按钮
请教各位高手，我在窗体中做了一个空间按钮[登陆]，怎样让他一单击此按钮就打开一个网址，代码怎样写？谢谢

作者: dashllh 时间: 2011-8-31 10:47
空间按钮？

作者: dashllh 时间: 2011-8-31 10:49
很简单，新建一个窗体，放入一个按钮。键入如下代码：
----------------------------------
Private Sub Form_Load()
Command0.HyperlinkAddress = "http://www.djy-ncpzx.com"
End Sub
----------------------------------
点击后自动弹出http://www.djy-ncpzx.com的页面

作者: 张杨 时间: 2011-8-31 11:15
是控件按钮

作者: 张杨 时间: 2011-8-31 11:24
Private Sub zz_Click()

ShellEX "http://www.accessoft.com/reg/reg.asp?userid=10768"

End Sub
用这个老是提示SHELLEX函数未定义，请问该怎么写？

作者: 张杨 时间: 2011-8-31 11:37
没人回答呀

作者: dashllh 时间: 2011-8-31 13:45
咦？我刚才回答了怎么没显示出来呢。很简单：
---------------------------------
Private Sub Form_Load()
Command0.HyperlinkAddress = "http://djy-ncpzx.com"
End Sub
---------------------------------
看看能否打开主页？{:soso_e100:}

作者: dashllh 时间: 2011-8-31 13:46
我回复了，还是没显示

作者: dashllh 时间: 2011-8-31 13:47

Private Sub Form_Load()
Command0.HyperlinkAddress = "http://djy-ncpzx.com"
End Sub

复制代码

作者: dashllh 时间: 2011-8-31 13:47

Private Sub Form_Load()
Command0.HyperlinkAddress = "http://djy-ncpzx.com"
End Sub

作者: dashllh 时间: 2011-8-31 13:48
这样跟你说吧，你设置按钮的HyperlinkAddress属性就行了

作者: dashllh 时间: 2011-8-31 13:48
Command0.HyperlinkAddress = "http://djy-ncpzx.com"

作者: yanghua1900363 时间: 2011-8-31 16:37
本帖最后由 yanghua1900363 于 2011-8-31 16:39 编辑

Private Sub zz_Click()

Dim webAddreess As String
Dim Web
Set Web = CreateObject("InternetExplorer.Application")
Web.Visible = True
WebAddress = "http://www.accessoft.com"
Web.Navigate WebAddress
end sub

作者: 张杨 时间: 2011-8-31 17:44
谢谢各位师傅们解答

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)