aboutdialog.vb

一个界面很好的iRadio收音机 一个界面很好的iRadio收音机

Imports System
Imports System.Drawing
Imports System.Collections
imports System.Diagnostics
imports System.Collections.Generic
imports System.ComponentModel
Imports System.Reflection
Imports Microsoft.VisualBasic
Imports System.IO
Imports Microsoft.Win32
Imports System.Windows.Forms

''' <summary>
''' Generic About Box for use with my projects. Provides basic system information as well as
''' system up time and the current date and time. The header is a panel which my contain a
''' background image or color. A picture box (48x48 pixels) can display a custom image.
''' 
''' There are two buttons on the form, "Microsoft System Information," which starts msinfo32.exe
''' and "OK," which dismisses the form. Typing Escape on the keyboard will also dismiss the form.
''' 
''' There are two link labels. The first opens a file called "EULA.pdf" using the Adobe Reader that
''' is installed on the computer. The "EULA.pdf" file must reside in the application folder. The other
''' link label initiates an email to me. This is normally not visible for non-commercial applications.
''' the application folder.
''' </summary>
''' <remarks>The application will produce an error dialog if msinfo32.exe or EULA.pdf is not found.</remarks>
''' 
''' <copyright>Copyright ?2006 Herbert N Swearengen III</copyright>
''' <notice>
''' This application maybe freely distributed and modified as long
''' as the copyright notice and EULA are retained. This applies to
''' both the compiled application and it's source code.
''' </notice>

Public Class AboutDialog
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call
        System.Windows.Forms.Application.EnableVisualStyles()

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents pnlForm As System.Windows.Forms.Panel
    Friend WithEvents lblLicense As System.Windows.Forms.Label
    Friend WithEvents pnlTitle As System.Windows.Forms.Panel
    Friend WithEvents lblTitle As System.Windows.Forms.Label
    Friend WithEvents picApplication As System.Windows.Forms.PictureBox
    Friend WithEvents StatusStrip As System.Windows.Forms.StatusStrip
    Friend WithEvents lblClock As System.Windows.Forms.ToolStripStatusLabel
    Friend WithEvents lblDateTime As System.Windows.Forms.ToolStripStatusLabel
    Friend WithEvents lblUpTime As System.Windows.Forms.ToolStripStatusLabel
    Friend WithEvents llbSupport As System.Windows.Forms.LinkLabel
    Friend WithEvents lblCompany As System.Windows.Forms.Label
    Friend WithEvents lblOrganization As System.Windows.Forms.Label
    Friend WithEvents llbEULA As System.Windows.Forms.LinkLabel
    Friend WithEvents lblUser As System.Windows.Forms.Label
    Friend WithEvents lblCopyright As System.Windows.Forms.Label
    Friend WithEvents lblDescription As System.Windows.Forms.Label
    Friend WithEvents lblVersion As System.Windows.Forms.Label
    Friend WithEvents lblProductVersion As System.Windows.Forms.Label
    Friend WithEvents lblFramework As System.Windows.Forms.Label
    Friend WithEvents lblOSDescription As System.Windows.Forms.Label
    Friend WithEvents btnSysInfo As System.Windows.Forms.Button
    Friend WithEvents lblSeparatorBottom As System.Windows.Forms.Label
    Friend WithEvents btnOK As System.Windows.Forms.Button
    Friend WithEvents lblSepartorTop As System.Windows.Forms.Label
    Friend WithEvents pnlHeader As System.Windows.Forms.Panel
    Friend WithEvents picClose As System.Windows.Forms.PictureBox
    Friend WithEvents lblAbout As System.Windows.Forms.Label
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents tmrTickCount As System.Windows.Forms.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AboutDialog))
        Me.tmrTickCount = New System.Windows.Forms.Timer(Me.components)
        Me.pnlForm = New System.Windows.Forms.Panel
        Me.lblLicense = New System.Windows.Forms.Label
        Me.pnlTitle = New System.Windows.Forms.Panel
        Me.lblTitle = New System.Windows.Forms.Label
        Me.picApplication = New System.Windows.Forms.PictureBox
        Me.StatusStrip = New System.Windows.Forms.StatusStrip
        Me.lblClock = New System.Windows.Forms.ToolStripStatusLabel
        Me.lblDateTime = New System.Windows.Forms.ToolStripStatusLabel
        Me.lblUpTime = New System.Windows.Forms.ToolStripStatusLabel
        Me.llbSupport = New System.Windows.Forms.LinkLabel
        Me.lblCompany = New System.Windows.Forms.Label
        Me.lblOrganization = New System.Windows.Forms.Label
        Me.llbEULA = New System.Windows.Forms.LinkLabel
        Me.lblUser = New System.Windows.Forms.Label
        Me.lblCopyright = New System.Windows.Forms.Label
        Me.lblDescription = New System.Windows.Forms.Label
        Me.lblVersion = New System.Windows.Forms.Label
        Me.lblProductVersion = New System.Windows.Forms.Label
        Me.lblFramework = New System.Windows.Forms.Label
        Me.lblOSDescription = New System.Windows.Forms.Label
        Me.btnSysInfo = New System.Windows.Forms.Button
        Me.lblSeparatorBottom = New System.Windows.Forms.Label
        Me.btnOK = New System.Windows.Forms.Button
        Me.lblSepartorTop = New System.Windows.Forms.Label
        Me.pnlHeader = New System.Windows.Forms.Panel
        Me.lblAbout = New System.Windows.Forms.Label
        Me.picClose = New System.Windows.Forms.PictureBox
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.pnlForm.SuspendLayout()
        Me.pnlTitle.SuspendLayout()
        CType(Me.picApplication, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.StatusStrip.SuspendLayout()
        Me.pnlHeader.SuspendLayout()
        CType(Me.picClose, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'tmrTickCount
        '
        Me.tmrTickCount.Interval = 1000
        '
        'pnlForm
        '
        Me.pnlForm.BackColor = System.Drawing.Color.FromArgb(CType(CType(235, Byte), Integer), CType(CType(235, Byte), Integer), CType(CType(235, Byte), Integer))
        Me.pnlForm.Controls.Add(Me.lblLicense)
        Me.pnlForm.Controls.Add(Me.pnlTitle)
        Me.pnlForm.Controls.Add(Me.StatusStrip)
        Me.pnlForm.Controls.Add(Me.llbSupport)
        Me.pnlForm.Controls.Add(Me.lblCompany)
        Me.pnlForm.Controls.Add(Me.lblOrganization)
        Me.pnlForm.Controls.Add(Me.llbEULA)
        Me.pnlForm.Controls.Add(Me.lblUser)
        Me.pnlForm.Controls.Add(Me.lblCopyright)
        Me.pnlForm.Controls.Add(Me.lblDescription)
        Me.pnlForm.Controls.Add(Me.lblVersion)
        Me.pnlForm.Controls.Add(Me.lblProductVersion)
        Me.pnlForm.Controls.Add(Me.lblFramework)
        Me.pnlForm.Controls.Add(Me.lblOSDescription)
        Me.pnlForm.Controls.Add(Me.btnSysInfo)
        Me.pnlForm.Controls.Add(Me.lblSeparatorBottom)
        Me.pnlForm.Controls.Add(Me.btnOK)
        Me.pnlForm.Location = New System.Drawing.Point(3, 31)
        Me.pnlForm.Name = "pnlForm"
        Me.pnlForm.Size = New System.Drawing.Size(385, 377)
        Me.pnlForm.TabIndex = 4
        '
        'lblLicense
        '
        Me.lblLicense.AutoSize = True
        Me.lblLicense.BackColor = System.Drawing.Color.Transparent
        Me.lblLicense.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblLicense.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblLicense.Location = New System.Drawing.Point(19, 146)
        Me.lblLicense.Name = "lblLicense"
        Me.lblLicense.Size = New System.Drawing.Size(257, 15)
        Me.lblLicense.TabIndex = 49
        Me.lblLicense.Text = "This product is licensed under the terms of the"
        Me.lblLicense.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'pnlTitle
        '
        Me.pnlTitle.BackColor = System.Drawing.Color.Transparent
        Me.pnlTitle.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.pnlTitle.Controls.Add(Me.lblTitle)
        Me.pnlTitle.Controls.Add(Me.picApplication)
        Me.pnlTitle.Location = New System.Drawing.Point(-1, 0)
        Me.pnlTitle.Name = "pnlTitle"
        Me.pnlTitle.Size = New System.Drawing.Size(386, 64)
        Me.pnlTitle.TabIndex = 56
        '
        'lblTitle
        '
        Me.lblTitle.BackColor = System.Drawing.Color.Transparent
        Me.lblTitle.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblTitle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(5, Byte), Integer), CType(CType(69, Byte), Integer), CType(CType(106, Byte), Integer))
        Me.lblTitle.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblTitle.Location = New System.Drawing.Point(68, 24)
        Me.lblTitle.Name = "lblTitle"
        Me.lblTitle.Size = New System.Drawing.Size(296, 18)
        Me.lblTitle.TabIndex = 24
        '
        'picApplication
        '
        Me.picApplication.BackColor = System.Drawing.Color.Transparent
        Me.picApplication.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.picApplication.Image = Global.VirtualSoftware.My.Resources.Resources.iRadio_48x48
        Me.picApplication.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.picApplication.Location = New System.Drawing.Point(8, 9)
        Me.picApplication.Name = "picApplication"
        Me.picApplication.Size = New System.Drawing.Size(48, 48)
        Me.picApplication.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.picApplication.TabIndex = 23
        Me.picApplication.TabStop = False
        '
        'StatusStrip
        '
        Me.StatusStrip.BackgroundImage = Global.VirtualSoftware.My.Resources.Resources.GrayGradient
        Me.StatusStrip.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.StatusStrip.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.StatusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblClock, Me.lblDateTime, Me.lblUpTime})
        Me.StatusStrip.Location = New System.Drawing.Point(0, 355)
        Me.StatusStrip.Name = "StatusStrip"
        Me.StatusStrip.Size = New System.Drawing.Size(385, 22)
        Me.StatusStrip.SizingGrip = False
        Me.StatusStrip.TabIndex = 55
        '
        'lblClock
        '
        Me.lblClock.Name = "lblClock"
        Me.lblClock.Size = New System.Drawing.Size(0, 17)
        '
        'lblDateTime
        '
        Me.lblDateTime.BackColor = System.Drawing.Color.Transparent
        Me.lblDateTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblDateTime.Name = "lblDateTime"
        Me.lblDateTime.Size = New System.Drawing.Size(252, 17)
        Me.lblDateTime.Text = "Wednesday, December 07, 2005 8:08:03 PM"
        '
        'lblUpTime
        '
        Me.lblUpTime.BackColor = System.Drawing.Color.Transparent
        Me.lblUpTime.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblUpTime.Name = "lblUpTime"
        Me.lblUpTime.Size = New System.Drawing.Size(118, 17)
        Me.lblUpTime.Text = "Up Time: 1:12:45:36"
        '
        'llbSupport
        '
        Me.llbSupport.BackColor = System.Drawing.Color.Transparent
        Me.llbSupport.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.llbSupport.LinkBehavior = System.Windows.Forms.LinkBehavior.NeverUnderline
        Me.llbSupport.LinkColor = System.Drawing.Color.MediumBlue
        Me.llbSupport.Location = New System.Drawing.Point(19, 228)
        Me.llbSupport.Name = "llbSupport"
        Me.llbSupport.Size = New System.Drawing.Size(352, 15)
        Me.llbSupport.TabIndex = 54
        Me.llbSupport.UseCompatibleTextRendering = True
        Me.llbSupport.Visible = False
        '
        'lblCompany
        '
        Me.lblCompany.AutoSize = True
        Me.lblCompany.BackColor = System.Drawing.Color.Transparent
        Me.lblCompany.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCompany.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblCompany.Location = New System.Drawing.Point(19, 212)
        Me.lblCompany.Name = "lblCompany"
        Me.lblCompany.Size = New System.Drawing.Size(264, 15)
        Me.lblCompany.TabIndex = 53
        Me.lblCompany.Text = "Application Title is a product of Company Name"
        Me.lblCompany.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblOrganization
        '
        Me.lblOrganization.AutoSize = True
        Me.lblOrganization.BackColor = System.Drawing.Color.Transparent
        Me.lblOrganization.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblOrganization.ForeColor = System.Drawing.SystemColors.ControlText
        Me.lblOrganization.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblOrganization.Location = New System.Drawing.Point(19, 192)
        Me.lblOrganization.Name = "lblOrganization"
        Me.lblOrganization.Size = New System.Drawing.Size(92, 15)
        Me.lblOrganization.TabIndex = 52
        Me.lblOrganization.Text = "Virtual Software"
        Me.lblOrganization.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'llbEULA
        '
        Me.llbEULA.AutoSize = True
        Me.llbEULA.BackColor = System.Drawing.Color.Transparent
        Me.llbEULA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.llbEULA.LinkBehavior = System.Windows.Forms.LinkBehavior.NeverUnderline
        Me.llbEULA.LinkColor = System.Drawing.Color.MediumBlue
        Me.llbEULA.Location = New System.Drawing.Point(20, 158)
        Me.llbEULA.Name = "llbEULA"
        Me.llbEULA.Size = New System.Drawing.Size(226, 19)