按钮

张杨

请教各位高手，我在窗体中做了一个空间按钮[登陆]，怎样让他一单击此按钮就打开一个网址，代码怎样写？谢谢

张杨

谢谢各位师傅们解答

yanghua1900363

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

dashllh

Command0.HyperlinkAddress = "http://djy-ncpzx.com"

dashllh

这样跟你说吧，你设置按钮的HyperlinkAddress属性就行了

dashllh

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

dashllh

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

复制代码

dashllh

我回复了，还是没显示

dashllh

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

张杨

没人回答呀