已阅读5页,还剩5页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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使用
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 学校食堂整改方案及整改措施(2篇)
- 模拟公司运作方案(2篇)
- 养老项目方案策划书(2篇)
- 幼儿园年终总结会方案(2篇)
- 2022年公务员考试安徽省芜湖市南陵县《行政职业能力测验》全真模拟试题含解析
- 《行政职业能力测验》北京市密云县2022年公务员考试模拟试题含解析
- 疫情期间志愿者的社会实践报告疫情志愿者社会实践报告左右
- 道闸施工方案
- 幼儿园地方文化课程资源开发利用的个案研究
- 七年级下册道法知识点
- 注塑成型参数表
- 国家电投苍梧岭脚风电场二期工程环境影响报告书
- 人力资源管理智慧树知到课后章节答案2023年下北方工业大学
- 新课标视域下初中语文跨学科教学初探
- 节气习俗在幼儿园食育活动中的实践研究 论文
- 如何提高小学生英语学习兴趣
- 卷扬机施工方案-(最终)
- 【西藏】房屋建筑工程竣工资料全套表格(word)
- 硒功能与作用课件
- 大学生创新创业降龙十八讲学习通章节答案期末考试题库2023年
- 小学主题班会教案《有话好好说-学会与父母沟通》通用版
评论
0/150
提交评论