VB第十二章实验报告.docx

VB.NET第十二章实验报告姓名：蒋一一 班级：计算机（中澳）122班 学号：1120240036一、 源程序代码创建收藏页浏览应用程序（无，贴图见下）构建WebFavoriteImports System.IOPublic 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 SubEnd Class搜索收藏页WebFavoriteCollectionImports System.IOPublic 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 SubEnd ClassFavorites:Imports System.IOPublic 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 SubEnd Class创建Favorites对象实例：Public Class Form1 Private Sub Viewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load Try Using objFavorites As New Favorites objFavorites.ScanFavorites() For Each objWebFavorite As WebFavorite In objFavorites.FavoritesCollection Dim objListViewItem As New ListViewItem objListViewItem.Text = objWebFavorite.Name objListViewItem.SubItems.Add(objWebFavorite.Url) lvwFavorites.Items.Add(objListViewItem) Next End Using Catch ex As Exception MessageBox.Show(ExceptionErr.Message, Favorites Viewer, MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub Private Function ExceptionErr() As Object Throw New NotImplementedException End FunctionEnd Class查看收藏页Public Class Form1 Private Sub Viewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load Try Using objFavorites As New Favorites objFavorites.ScanFavorites() For Each objWebFavorite As WebFavorite In objFavorites.FavoritesCollection Dim objListViewItem As New ListViewItem objListViewItem.Text = objWebFavorite.Name objListViewItem.SubItems.Add(objWebFavorite.Url) lvwFavorites.Items.Add(objListViewItem) Next End Using Catch ex As Exception MessageBox.Show(ExceptionErr.Message, Favorites Viewer, MessageBoxButtons.OK, MessageBoxIcon.Warning) End Try End Sub Private Function ExceptionErr() As Object Throw New NotImplementedException End Function Private Sub lvwFavorites_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvwFavorites.Click lnkUrl.Text = Visit & lvwFavorites.SelectedItems.Item(0).Text lnkUrl.Links.Clear() lnkUrl.Links.Add(6, lvwFavorites.SelectedItems.Item(0).Text.Length, lvwFavorites.SelectedItems.Item(0).SubItems(1).Text) End Sub Private Sub lnkUrl_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkUrl.LinkClicked Process.Start(e.Link.LinkData) End SubEnd Class创建Favorites Tray项目Public Class Form1 Private Sub Form1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged If Me.Visible = True Then Me.Visible = False End SubEnd Class显示收藏页Public Class Form1 Public Favorites As New Favorites() Private blnLoadCalled As Boolean = False Private Sub Form1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged If blnLoadCalled = False Then Return End If If Me.Visible = True Then Me.Visible = False End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Favorites.ScanFavorites() Dim objMenu As New ContextMenu() For Each objWebFavorites As WebFavorite In Favorites.FavoritesCollection Dim objItem As New WebFavoriteMenuItem(objWebFavorites) objMenu.MenuItems.Add(objItem) Next objMenu.MenuItems.Add(-) objMenu.MenuItems.Add(New ExitMenuItem() icnNotify.ContextMenu = objMenu blnLoadCalled = True Me.Hide() End SubEnd Class使用共享属性Public Class Form1 Private arrUserList As New ArrayList() Private Sub UpdateDisPlay() lstUsers.Items.Clear() For Each objUser As User In arrUserList lstUsers.Items.Add(objUser.Username & , & objUser.PassWord & ( & User.MinPassWordLength & ) Next End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load For intIndex As Integer = 1 To 100 Dim objUser As New User objUser.Username = Stephanie & intIndex objUser.PassWord = password15 arrUserList.Add(objUser) Next UpdateDisPlay() End Sub Private Sub nudMinPasswordLength_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nudMinPasswordLength.ValueChanged User.MinPassWordLength = nudMinPasswordLength.Value End SubEnd Class使用