163.htm

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

<p>建立你自己的浏览器－发送到FontPage</p>
<p></p>
<p> </p>
<p>Edit With FrontPage</p>
<p></p>
<p>Insert Inet Control (Name - Inet1)</p>
<p>Insert This line into your Module Declaration Section</p>
<p></p>
<p>Public 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</p>
<p></p>
<p>Public Const SW_SHOW = 5</p>
<p></p>
<p>Type SHELLEXECUTEINFO</p>
<p>  cbSize As Long</p>
<p>  fMask As Long</p>
<p>  hWnd As Long</p>
<p>  lpVerb As String</p>
<p>  lpFile As String</p>
<p>  lpParameters As String</p>
<p>  lpDirectory As String</p>
<p>  nShow As Long</p>
<p>  hInstApp As Long</p>
<p>  lpIDList As Long</p>
<p>  lpClass As String</p>
<p>  hkeyClass As Long</p>
<p>  dwHotKey As Long</p>
<p>  hIcon As Long</p>
<p>  hProcess As Long</p>
<p>End Type</p>
<p></p>
<p>Insert these coding into your click Event:</p>
<p></p>
<p>Dim rpo As String</p>
<p>On Error Resume Next</p>
<p>Dim lrs As String</p>
<p>Dim b() As Byte</p>
<p>lrs = “C:\windows\temp.htm”</p>
<p>Inet1.Cancel</p>
<p>Inet1.Protocol = icHTTP</p>
<p>Inet1.URL = cboaddress.Text</p>
<p>rpo = Dir$(“C:\Program Files\Microsoft FrontPage\bin\fpeditor.exe”)</p>
<p>If rpo <> “” Then</p>
<p>If Inet1.URL <> “” Then</p>
<p>b() = Inet1.OpenURL(, icByteArray)</p>
<p>Open lrs For Binary Access Write As #1</p>
<p>Put #1, , b()</p>
<p>Close #1</p>
<p>Dim retval As Long</p>
<p>retval = ShellExecute(Me.hWnd, “open”, “C:\Program Files\Microsoft FrontPage\bin\fpeditor.exe”, lrs, “C:\MyProg\”, SW_MAXIMIZE)</p>
<p>Else</p>
<p>MsgBox “There is no source code for this. It may be a System File.”</p>
<p>End If</p>
<p>Else</p>
<p>MsgBox “Microsoft Front Page Software Not Found.”</p>
<p>End If</p>
<p> </p>