VBNET第十二章实验报告.docxVIP

VB.NET第十二章实验报告 姓名：蒋一一 班级：计算机（中澳）122班 学号：1120240036 源程序代码 创建收藏页浏览应用程序 （无，贴图见下） 构建WebFavorite Imports System.IO Public Class WebFavorite Implements IDisposable #Region IDisposable Support Private disposedValue As Boolean 检测冗余的调用 IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then If disposing Then TODO: 释放托管状态(托管对象)。 End If TODO: 释放非托管资源(非托管对象)并重写下面的 Finalize()。 TODO: 将大型字段设置为 null。 End If Me.disposedValue = True End Sub TODO: 仅当上面的 Dispose(ByVal disposing As Boolean)具有释放非托管资源的代码时重写 Finalize()。 Protected Overrides Sub Finalize() 不要更改此代码。请将清理代码放入上面的 Dispose(ByVal disposing As Boolean)中。 Dispose(False) MyBase.Finalize() End Sub Visual Basic 添加此代码是为了正确实现可处置模式。 Public Sub Dispose() Implements IDisposable.Dispose 不要更改此代码。请将清理代码放入上面的 Dispose(ByVal disposing As Boolean)中。 Dispose(True) GC.SuppressFinalize(Me) End Sub #End Region Public Name As String Public Url As String Public Sub Load(ByVal fileName As String) Dim strData As String Dim strLines() As String Dim strLine As String Dim objFileInfo As New FileInfo(fileName) Name = objFileInfo.Name.Substring(0, objFileInfo.Name.Length - objFileInfo.Extension.Length) Try strData = My.Computer.FileSystem.ReadAllText(fileName) strLines = strData.Split(New String() {ControlChars.CrLf}, StringSplitOptions.RemoveEmptyEntries) For Each strLine In strLines If strLine.StartsWith(URL=) Then Url = strLine.Substring(4) Exit For End If Next Catch IOExceptionErr As IOException Throw New Exception(IOExceptionErr.Message) End Try End Sub End Class 有哪些信誉好的足球投注网站收藏页 WebFavoriteCollection Imports Syst