VB第十二章實(shí)驗(yàn)報(bào)告.docx

VB.NET第十二章實(shí)驗(yàn)報(bào)告姓名：蔣一一 班級(jí)：計(jì)算機(jī)（中澳）122班 學(xué)號(hào)：1120240036一、 源程序代碼創(chuàng)建收藏頁(yè)瀏覽應(yīng)用程序（無(wú)，貼圖見下）構(gòu)建WebFavoriteImports System.IOPublic Class WebFavorite Implements IDisposable#Region IDisposable Support Private disposedValue As Boolean 檢測(cè)冗余的調(diào)用 IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then If disposing Then TODO: 釋放托管狀態(tài)(托管對(duì)象)。 End If TODO: 釋放非托管資源(非托管對(duì)象)并重寫下面的 Finalize()。 TODO: 將大型字段設(shè)置為 null。 End If Me.disposedValue = True End Sub TODO: 僅當(dāng)上面的 Dispose(ByVal disposing As Boolean)具有釋放非托管資源的代碼時(shí)重寫 Finalize()。 Protected Overrides Sub Finalize() 不要更改此代碼。請(qǐng)將清理代碼放入上面的 Dispose(ByVal disposing As Boolean)中。 Dispose(False) MyBase.Finalize() End Sub Visual Basic 添加此代碼是為了正確實(shí)現(xiàn)可處置模式。 Public Sub Dispose() Implements IDisposable.Dispose 不要更改此代碼。請(qǐng)將清理代碼放入上面的 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搜索收藏頁(yè)WebFavoriteCollectionImports System.IOPublic Class WebFavorite Implements IDisposable#Region IDisposable Support Private disposedValue As Boolean 檢測(cè)冗余的調(diào)用 IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then If disposing Then TODO: 釋放托管狀態(tài)(托管對(duì)象)。 End If TODO: 釋放非托管資源(非托管對(duì)象)并重寫下面的 Finalize()。 TODO: 將大型字段設(shè)置為 null。 End If Me.disposedValue = True End Sub TODO: 僅當(dāng)上面的 Dispose(ByVal disposing As Boolean)具有釋放非托管資源的代碼時(shí)重寫 Finalize()。 Protected Overrides Sub Finalize() 不要更改此代碼。請(qǐng)將清理代碼放入上面的 Dispose(ByVal disposing As Boolean)中。 Dispose(False) MyBase.Finalize() End Sub Visual Basic 添加此代碼是為了正確實(shí)現(xiàn)可處置模式。 Public Sub Dispose() Implements IDisposable.Dispose 不要更改此代碼。請(qǐng)將清理代碼放入上面的 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 檢測(cè)冗余的調(diào)用 IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then If disposing Then TODO: 釋放托管狀態(tài)(托管對(duì)象)。 End If TODO: 釋放非托管資源(非托管對(duì)象)并重寫下面的 Finalize()。 TODO: 將大型字段設(shè)置為 null。 End If Me.disposedValue = True End Sub TODO: 僅當(dāng)上面的 Dispose(ByVal disposing As Boolean)具有釋放非托管資源的代碼時(shí)重寫 Finalize()。 Protected Overrides Sub Finalize() 不要更改此代碼。請(qǐng)將清理代碼放入上面的 Dispose(ByVal disposing As Boolean)中。 Dispose(False) MyBase.Finalize() End Sub Visual Basic 添加此代碼是為了正確實(shí)現(xiàn)可處置模式。 Public Sub Dispose() Implements IDisposable.Dispose 不要更改此代碼。請(qǐng)將清理代碼放入上面的 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創(chuàng)建Favorites對(duì)象實(shí)例：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查看收藏頁(yè)P(yáng)ublic 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創(chuàng)建Favorites Tray項(xiàng)目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顯示收藏頁(yè)P(yáng)ublic 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使用