165.htm

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

<p>建立你自己的浏览器－发送到软盘</p>
<p></p>
<p></p>
<p>1. Add an Inet Control ( Component – Microsoft Internet Transfer Control )</p>
<p>2. Add these line into your Click Event</p>
<p></p>
<p>Dim ss As String, sss As String</p>
<p>ss = InputBox(“Enter file name to Save : “)</p>
<p>If Right(ss, 3) = “.htm” Then</p>
<p>sss = “A:\” & ss</p>
<p>Else</p>
<p>sss = “A:\” & ss & “.htm”</p>
<p>End If</p>
<p>Dim b() As Byte</p>
<p>Inet1.Cancel</p>
<p>Inet1.Protocol = icHTTP</p>
<p>Inet1.URL = webbrowser1.LocationName</p>
<p>b() = Inet1.OpenURL(, icByteArray)</p>
<p>On Error GoTo Extn</p>
<p>Open sss For Binary Access Write As #1</p>
<p>Put #1, , b()</p>
<p>Close #1</p>
<p>MsgBox “File Saved. Location is : “” & sss”</p>
<p>Extn:</p>
<p>If Err.Number = 71 Then</p>
<p>MsgBox “There is no Floppy or it may be damaged.”</p>
<p>End If</p>
<p> </p>