一个问题我不知道在哪个专栏里发!!各位高手大哥进来麻烦下.(在线等)

Question

我想点击Command1控件,打开www.360edu.com的网站.在command1  click()里写什么代码.告诉我下,我在这里先谢谢各位了.

Answer 1

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 LongPrivate Sub Command1_Click()
  
    Dim mHttp As String
    mHttp = "http://community.csdn.net/"
    ShellExecute 0, "open", mHttp,vbNullString, vbNullString, SW_SHOWNORMALEnd Sub

Answer 2

谢谢 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   大哥.
   有机会请你吃饭.
   真的
   用到api了.这几天总是遇到api的问题真是烦人呀,有基础点的书籍吗??告诉我下载地址也行.
一定要基础的.

Answer 3

Private Sub Command1_Click()
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE www.hao123.com", vbMaximizedFocus
End Sub