VB2010(22)查看收藏页

界面

后台

Public Class Viewer

    Private Sub Viewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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 ExceptionErr As Exception
            MessageBox.Show(ExceptionErr.Message, "favorites Viewer", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End Try
    End Sub

    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 Sub
End Class

后台逻辑:三个类

一、'利用收藏页创建列表项对象
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

    '一个收藏页文件的内容大致是这个样子的
    '[DEFAULT]
    'BASEURL=http://www.google.com/
    '[InternetShotcut]
    'URL=http://www.google.com/
    'IDList=
    'IconFile=http://www.google.com/favicon.ico
    'IconInext=1
    '[(000214A0-0000-0000-c120-0000000046)]
    'Prop3=19,2

    '设置为收藏页的快捷文件的文件名
    Public Name As String
    '设置找到的URL
    Public Url As String

    Public Sub Load(ByVal fileName As String) 'filename为收藏页的快捷文件的完整路径
        '接收收藏页的快捷文件的完整内容
        Dim strData As String
        '创建包含StrData变量中各行的数据的数组
        Dim strLines() As String
        '迭代各行的数组,以找出URL
        Dim strLine As String

        '获取传递给Load方法的完整路径和文件名的信息
        Dim objFileInfo As New FileInfo(fileName) 'FileInfo返回文件的完整路径。

        '将Name设置为收藏页的快捷文件的文件名,不包括路径和扩展名
        Name = objFileInfo.Name.Substring(0, objFileInfo.Name.Length - objFileInfo.Extension.Length)
        Try
            '读入filename的完整内容
            strData = My.Computer.FileSystem.ReadAllText(fileName)
            '按行分割strData,Crlf代表回车和换行符,RemoveEmptyEntries指删除空行
            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
二、

'遍历收藏页,保存为WebFavorite集合
Imports System.Collections
'实例化为一个对象以保存大量的WebFavorite
Public Class WebFavoriteCollection
    Inherits CollectionBase

    Public Sub Add(ByVal Favorite As WebFavorite)
        'List是Collection的一个受保护的成员
        List.Add(Favorite)
    End Sub

    Public Sub Remove(ByVal Index As Integer)
        If Index >= 0 And Index < Count Then
            List.Remove(Index)
        End If
    End Sub

    Public ReadOnly Property Item(ByVal index As Integer) As WebFavorite
        Get
            Return CType(List.Item(index), WebFavorite)
        End Get
    End Property

End Class
三、

'在计算机中遍历Favorites文件夹,创建新的WebFavorite对象,并添加到集合中
'遍历Favorite文件夹,返回一个WebfavoriteCollection对象,为文件夹中的每个收藏页包含一个WebFavorite对象
Public Class Favorites
    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 FavoritesCollection As New WebFavoriteCollection

    '获取Favorite文件夹
    Public ReadOnly Property FavoritesFolder As String
        Get
            Return Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
        End Get
    End Property
    '生成Collection
    Public Sub ScanFavorites()
        ScanFavorites(FavoritesFolder)
    End Sub
    '重载生成Collection
    Public Sub ScanFavorites(ByVal FolderName As String)
        '遍历文件夹中的文件
        For Each strfile As String In (My.Computer.FileSystem.GetFiles(FolderName))
            If strfile.EndsWith(".url", True, Nothing) Then
                Try
                    '生成Webfavorte对象
                    Dim objWebFavorite As New WebFavorite
                    objWebFavorite.Load(strfile)
                    '添加到Collection集合
                    FavoritesCollection.Add(objWebFavorite)

                Catch ex As Exception
                    Throw New Exception(ex.Message)
                End Try
            End If
        Next

    End Sub

End Class
 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
目录回到顶部↑ 第1篇 vb2008基础知识 第1章 visualbasic2008.net入门2 1.1.netframework概述2 1.2 visualbasic2008.net的新特性3 1.3 安装vs2008.net4 1.3.1 vs2008.net系统软硬件要求4 1.3.2 vs2008.net安装步骤4 1.4 vb2008.net集成开发环境7 1.4.1 ide启动界面7 1.4.2 主体窗口界面介绍8 1.4.3 窗口菜单作用9 1.4.4 主要开发类窗口10 1.4.5 动态帮助13 1.5 我的第一个.net应用程序13 1.6 本章 小结17 第2章 visualbasic.net编程基础18 2.1 基础编程知识18 2.1.1 关键字及标识符18 2.1.2 数据类型20 .2.1.3 变量与常量24 2.1.4 自定义结构体26 2.1.5 数组27 2.1.6 运算符与表达式29 2.1.7 结构化控制语句32 2.2 面向对象编程40 2.2.1 “面向对象编程”中的概念40 2.2.2 “对象”和“类”的使用42 2.2.3 创建自定义类45 2.3 控件常用属性47 2.4 api函数的应用49 2.4.1 api简介49 2.4.2 api的声明50 2.4.3 api的应用实例51 2.5 本章 小结52 第2篇 数据库应用开发实例 第3章 家庭理财系统54 3.1 实例功能说明54 3.2 系统设计方案55 3.2.1 模块设计及开发环境55 3.2.2 系统结构图55 3.2.3 数据库设计56 3.3 相关技术点拨58 3.3.1 ado.net数据库访问技术58 3.3.2 菜单的建立 3.3.2 (menustrip控件)62 3.3.3 状态栏的建立 3.3.2 (statusbar控件)63 3.3.4 datagrid控件的应用64 3.3.5 savefiledialog组件65 3.4 程序实现与代码66 3.4.1 家庭理财系统主界面窗体66 3.4.2 查询统计窗体设计78 3.5 实例总结83 第4章 超市管理系统84 4.1 实例功能说明84 4.2 系统设计方案88 4.2.1 模块设计及开发环境88 4.2.2 系统结构图89 4.2.3 数据库设计89 4.3 相关技术点拨91 4.3.1 工具栏的建立91 4.3.2 linklabel1控件93 4.4 程序实现与代码93 4.4.1 登录窗体93 4.4.2 超市管理系统主界面窗体96 4.4.3 进货管理窗体98 4.4.4 价格管理窗体103 4.4.5 售货管理窗体107 4.4.6 进货查询窗体113 4.4.7 售货查询窗体115 4.4.8 登录密码修改窗体118 4.4.9 增加用户窗体119 4.4.1 0关于窗体121 4.5 实例总结122 第5章 人事管理系统123 5.1 实例功能说明123 5.2 系统设计方案130 5.2.1 模块设计及开发环境130 5.2.2 系统结构图130 5.2.3 数据库设计131 5.3 相关技术点拨134 5.3.1 闪窗设计134 5.3.2 如何使用toolstrip控件创建工具栏134 5.3.3 打印报表窗体设计135 5.4 程序实现与代码139 5.4.1 闪窗设计139 5.4.2 登录窗体140 5.4.3 人事管理系统主界面窗体140 5.4.4 编辑员工档案窗体146 5.4.5 员工档案查询窗体150 5.4.6 员工档案报表窗体151 5.5 实例总结152 第6章 酒店管理系统153 6.1 实例功能说明153 6.2 系统设计方案157 6.2.1 模块设计及开发环境157 6.2.2 系统结构图158 6.2.3 数据库设计158 6.3 相关技术点拨160 6.3.1 如何在button控件类型上添加图片并调整图片与 6.3.1 文字的对齐方式160 6.3.2 如何使房间的编号与房间类型匹配160 6.3.3 如何实现结账退房161 6.4 程序实现与代码161 6.4.1 酒店管理系统主界面窗体161 6.4.2 客房信息设置窗体162 6.4.3 预订管理窗体165 6.4.4 入住管理窗体168 6.4.5 结账退房窗体172 6.4.6 客房信息查询窗体175 6.4.7 预订信息查询窗体176 6.4.8 入住登记查询窗体177 6.4.9 入住客史查询窗体178 6.5 实例总结178 第7章 销售管理系统179 7.1 实例功能说明179 7.2 系统设计方案191 7.2.1 模块设计及开发环境191 7.2.2 系统结构图191 7.2.3 数据库设计191 7.3 相关技
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值