22.htm

vb功能实例介绍。详细、很好的实例说明。

<p>Opening a browser to your homepage</p>
<p>submitted by Dan Newsome</p>
<p>D&D Information Professionals, [e-mail]</p>
<p>You can use code like the following to open a browser to your homepage. Modify filenames, paths, and URLs as necessary to match the values on your system.</p>
<p></p>
<p>Dim FileName As String, Dummy As String</p>
<p>Dim BrowserExec As String * 255</p>
<p>Dim RetVal As Long</p>
<p>Dim FileNumber As Integer</p>
<p>Const SW_SHOWNORMAL = 1 注释： Restores Window if Minimized or</p>
<p></p>
<p>Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _</p>
<p>(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _</p>
<p>ByVal lpParameters As String, ByVal lpDirectory As String, _</p>
<p>ByVal nShowCmd As Long) As Long</p>
<p></p>
<p>Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" _</p>
<p>(ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As _</p>
<p>String) As Long</p>
<p>注释：<Code> ---------</p>
<p></p>
<p>BrowserExec = Space(255)</p>
<p>FileName = "C:\temphtm.HTM"</p>
<p></p>
<p>FileNumber = FreeFile() 注释： Get unused file number</p>
<p></p>
<p>Open FileName For Output As #FileNumber 注释： Create temp HTML file</p>
<p>Write #FileNumber, " <\HTML>" 注释： Output text</p>
<p>Close #FileNumber 注释： Close file</p>
<p></p>
<p>注释： Then find the application associated with it.</p>
<p>  RetVal = FindExecutable(FileName, Dummy, BrowserExec)</p>
<p>  BrowserExec = Trim$(BrowserExec)</p>
<p>  注释： If an application is found, launch it!</p>
<p>  If RetVal <= 32 Or IsEmpty(BrowserExec) Then 注释： Error</p>
<p></p>
<p>    Msgbox "Could not find a browser"</p>
<p></p>
<p>  Else</p>
<p>    RetVal = ShellExecute(frmMain.hwnd, "open", BrowserExec, _</p>
<p>      "www.myurl.com", Dummy, SW_SHOWNORMAL)</p>
<p>    If RetVal <= 32 Then 注释： Error</p>
<p>      Msgbox "Web Page not Opened"</p>
<p>    End If</p>
<p>  End If</p>
<p></p>
<p>Kill FileName 注释： delete temp HTML file </p>