164.htm

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

<p>建立你自己的浏览器－发送到Visual Interdev</p>
<p></p>
<p>Edit With Visual Interdev</p>
<p></p>
<p>Insert Inet Control (Name - Inet1)</p>
<p>Insert This line into your Module Declaration Section</p>
<p></p>
<p>Insert these coding into your click Event:</p>
<p></p>
<p>On Error Resume Next</p>
<p>Dim rpo As String</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 Visual Studio\Common\IDE\IDE98\DEVENV.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 Visual Studio\Common\IDE\IDE98\DEVENV.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 Visual Interdev Software Not Found”</p>
<p>End If</p>
<p> </p>