aboutdialog.vb

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

        Me.llbEULA.TabIndex = 51
        Me.llbEULA.TabStop = True
        Me.llbEULA.Text = "End User License Agreement (EULA) to:"
        Me.llbEULA.TextAlign = System.Drawing.ContentAlignment.BottomLeft
        Me.llbEULA.UseCompatibleTextRendering = True
        '
        'lblUser
        '
        Me.lblUser.AutoSize = True
        Me.lblUser.BackColor = System.Drawing.Color.Transparent
        Me.lblUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblUser.ForeColor = System.Drawing.SystemColors.ControlText
        Me.lblUser.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblUser.Location = New System.Drawing.Point(19, 178)
        Me.lblUser.Name = "lblUser"
        Me.lblUser.Size = New System.Drawing.Size(145, 15)
        Me.lblUser.TabIndex = 50
        Me.lblUser.Text = "Herbert N Swearengen III"
        Me.lblUser.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblCopyright
        '
        Me.lblCopyright.AutoSize = True
        Me.lblCopyright.BackColor = System.Drawing.Color.Transparent
        Me.lblCopyright.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblCopyright.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblCopyright.Location = New System.Drawing.Point(19, 128)
        Me.lblCopyright.Name = "lblCopyright"
        Me.lblCopyright.Size = New System.Drawing.Size(127, 15)
        Me.lblCopyright.TabIndex = 48
        Me.lblCopyright.Text = "Application Copyright: "
        Me.lblCopyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblDescription
        '
        Me.lblDescription.BackColor = System.Drawing.Color.Transparent
        Me.lblDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblDescription.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblDescription.Location = New System.Drawing.Point(19, 92)
        Me.lblDescription.Name = "lblDescription"
        Me.lblDescription.Size = New System.Drawing.Size(348, 36)
        Me.lblDescription.TabIndex = 47
        Me.lblDescription.Text = "Application Description: "
        '
        'lblVersion
        '
        Me.lblVersion.AutoSize = True
        Me.lblVersion.BackColor = System.Drawing.Color.Transparent
        Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblVersion.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblVersion.Location = New System.Drawing.Point(19, 76)
        Me.lblVersion.Name = "lblVersion"
        Me.lblVersion.Size = New System.Drawing.Size(117, 15)
        Me.lblVersion.TabIndex = 46
        Me.lblVersion.Text = "Application Version: "
        Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblProductVersion
        '
        Me.lblProductVersion.AutoSize = True
        Me.lblProductVersion.BackColor = System.Drawing.Color.Transparent
        Me.lblProductVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblProductVersion.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblProductVersion.Location = New System.Drawing.Point(19, 264)
        Me.lblProductVersion.Name = "lblProductVersion"
        Me.lblProductVersion.Size = New System.Drawing.Size(58, 15)
        Me.lblProductVersion.TabIndex = 45
        Me.lblProductVersion.Text = "程序版本:"
        Me.lblProductVersion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblFramework
        '
        Me.lblFramework.AutoSize = True
        Me.lblFramework.BackColor = System.Drawing.Color.Transparent
        Me.lblFramework.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblFramework.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblFramework.Location = New System.Drawing.Point(19, 280)
        Me.lblFramework.Name = "lblFramework"
        Me.lblFramework.Size = New System.Drawing.Size(61, 15)
        Me.lblFramework.TabIndex = 44
        Me.lblFramework.Text = "NET 框架:"
        Me.lblFramework.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lblOSDescription
        '
        Me.lblOSDescription.AutoSize = True
        Me.lblOSDescription.BackColor = System.Drawing.Color.Transparent
        Me.lblOSDescription.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblOSDescription.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.lblOSDescription.Location = New System.Drawing.Point(19, 248)
        Me.lblOSDescription.Name = "lblOSDescription"
        Me.lblOSDescription.Size = New System.Drawing.Size(61, 15)
        Me.lblOSDescription.TabIndex = 43
        Me.lblOSDescription.Text = "操作系统: "
        Me.lblOSDescription.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'btnSysInfo
        '
        Me.btnSysInfo.BackColor = System.Drawing.SystemColors.Control
        Me.btnSysInfo.BackgroundImage = CType(resources.GetObject("btnSysInfo.BackgroundImage"), System.Drawing.Image)
        Me.btnSysInfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnSysInfo.Cursor = System.Windows.Forms.Cursors.Hand
        Me.btnSysInfo.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnSysInfo.FlatAppearance.BorderColor = System.Drawing.Color.Black
        Me.btnSysInfo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnSysInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnSysInfo.ForeColor = System.Drawing.Color.Black
        Me.btnSysInfo.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.btnSysInfo.Location = New System.Drawing.Point(52, 320)
        Me.btnSysInfo.Name = "btnSysInfo"
        Me.btnSysInfo.Size = New System.Drawing.Size(192, 23)
        Me.btnSysInfo.TabIndex = 41
        Me.btnSysInfo.Text = "系统信息(&M)"
        Me.btnSysInfo.TextAlign = System.Drawing.ContentAlignment.TopCenter
        Me.btnSysInfo.UseVisualStyleBackColor = False
        '
        'lblSeparatorBottom
        '
        Me.lblSeparatorBottom.BackColor = System.Drawing.Color.Silver
        Me.lblSeparatorBottom.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSeparatorBottom.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.lblSeparatorBottom.Location = New System.Drawing.Point(7, 304)
        Me.lblSeparatorBottom.Name = "lblSeparatorBottom"
        Me.lblSeparatorBottom.Size = New System.Drawing.Size(370, 3)
        Me.lblSeparatorBottom.TabIndex = 42
        '
        'btnOK
        '
        Me.btnOK.BackColor = System.Drawing.SystemColors.Control
        Me.btnOK.BackgroundImage = CType(resources.GetObject("btnOK.BackgroundImage"), System.Drawing.Image)
        Me.btnOK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.btnOK.Cursor = System.Windows.Forms.Cursors.Hand
        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnOK.FlatAppearance.BorderColor = System.Drawing.Color.Black
        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnOK.ForeColor = System.Drawing.Color.Black
        Me.btnOK.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.btnOK.Location = New System.Drawing.Point(256, 320)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(75, 23)
        Me.btnOK.TabIndex = 40
        Me.btnOK.Text = "确定(&O)"
        Me.btnOK.TextAlign = System.Drawing.ContentAlignment.TopCenter
        Me.btnOK.UseVisualStyleBackColor = False
        '
        'lblSepartorTop
        '
        Me.lblSepartorTop.BackColor = System.Drawing.SystemColors.Control
        Me.lblSepartorTop.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lblSepartorTop.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.lblSepartorTop.Location = New System.Drawing.Point(2, 94)
        Me.lblSepartorTop.Name = "lblSepartorTop"
        Me.lblSepartorTop.Size = New System.Drawing.Size(386, 3)
        Me.lblSepartorTop.TabIndex = 5
        '
        'pnlHeader
        '
        Me.pnlHeader.BackColor = System.Drawing.SystemColors.Control
        Me.pnlHeader.BackgroundImage = Global.VirtualSoftware.My.Resources.Resources.GrayGradient
        Me.pnlHeader.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.pnlHeader.Controls.Add(Me.lblAbout)
        Me.pnlHeader.Controls.Add(Me.picClose)
        Me.pnlHeader.Cursor = System.Windows.Forms.Cursors.Hand
        Me.pnlHeader.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.pnlHeader.Location = New System.Drawing.Point(0, 0)
        Me.pnlHeader.Name = "pnlHeader"
        Me.pnlHeader.Size = New System.Drawing.Size(391, 30)
        Me.pnlHeader.TabIndex = 6
        Me.ToolTip1.SetToolTip(Me.pnlHeader, "Move")
        '
        'lblAbout
        '
        Me.lblAbout.AutoSize = True
        Me.lblAbout.BackColor = System.Drawing.Color.Transparent
        Me.lblAbout.Font = New System.Drawing.Font("宋体", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblAbout.Location = New System.Drawing.Point(12, 7)
        Me.lblAbout.Name = "lblAbout"
        Me.lblAbout.Size = New System.Drawing.Size(101, 13)
        Me.lblAbout.TabIndex = 3
        Me.lblAbout.Text = "关于本软件..."
        '
        'picClose
        '
        Me.picClose.BackColor = System.Drawing.Color.Transparent
        Me.picClose.Image = Global.VirtualSoftware.My.Resources.Resources.Close_Mouse_Up
        Me.picClose.Location = New System.Drawing.Point(367, 7)
        Me.picClose.Name = "picClose"
        Me.picClose.Size = New System.Drawing.Size(16, 16)
        Me.picClose.TabIndex = 2
        Me.picClose.TabStop = False
        '
        'AboutDialog
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.BackgroundImage = Global.VirtualSoftware.My.Resources.Resources.GrayGradient
        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
        Me.ClientSize = New System.Drawing.Size(391, 411)
        Me.Controls.Add(Me.pnlHeader)
        Me.Controls.Add(Me.lblSepartorTop)
        Me.Controls.Add(Me.pnlForm)
        Me.DoubleBuffered = True
        Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ForeColor = System.Drawing.Color.Black
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.KeyPreview = True
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "AboutDialog"
        Me.ShowIcon = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "About ..."
        Me.pnlForm.ResumeLayout(False)
        Me.pnlForm.PerformLayout()
        Me.pnlTitle.ResumeLayout(False)
        CType(Me.picApplication, System.ComponentModel.ISupportInitialize).EndInit()
        Me.StatusStrip.ResumeLayout(False)
        Me.StatusStrip.PerformLayout()
        Me.pnlHeader.ResumeLayout(False)
        Me.pnlHeader.PerformLayout()
        CType(Me.picClose, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region " Form Events "

    ''' <summary>
    ''' This event closes the about box when the user presses the escape key.
    ''' </summary>
    Private Sub AboutDialog_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            e.Handled = True
            DialogResult = Windows.Forms.DialogResult.OK
        End If
    End Sub

    ''' <summary>
    ''' If mainform is not visible, then the about dialog is being called from the notify icon.
    ''' Move form to center screen because center parent won't work.
    ''' </summary>
    Private Sub AboutDialog_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        If Me.StartPosition = FormStartPosition.Manual Then
            Me.Location = GetCenterBounds(Me)
        End If
    End Sub

    ''' <summary>
    ''' The form load event fills out most of the information on the about box form by using methods
    ''' within this code or by using the my and environment name spaces. It is imperative that the
    ''' "Assembly Information" be completly and correctly filled out.
    ''' </summary>
    ''' <remarks>
    ''' This form contains a picture box without an image. The form, header, and Status Strip do not have
    ''' background images. These graphics can be customized for each project.</remarks>
    Private Sub AboutDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try

            ' Set color.
            SetColor(Me, Settings.Color)

            ' enable timer
            tmrTickCount.Enabled = True

            ' get major and minor versions and set version on form
            lblVersion.Text = AssemblyTitle & " Version " & _
                AssemblyVersion.Substring(0, 3)

            ' set title on form
            lblAbout.Text = AssemblyTitle & " Version " & _
                AssemblyVersion.Substring(0, 3)

            ' fill in application information
            lblTitle.Text = AssemblyTitle
            lblCopyright.Text = AssemblyCopyright
            lblDescription.Text = AssemblyDescription

            ' fill in user information
            lblUser.Text = GetUserCustomerName()
            lblOrganization.Text = GetUserCustomerOrganization()

            ' fill in company information
            lblCompany.Text = AssemblyTitle & " is a product of " & AssemblyCompany
            llbSupport.Text = "Support is available from: [e-mail]"

            ' fill in system information
            lblOSDescription.Text = My.Computer.Info.OSFullName
            lblProductVersion.Text = "Version " & My.Computer.Info.OSVersion & _
                " Build " & Environment.OSVersion.Version.Build.ToString
            If Environment.OSVersion.ServicePack.ToString() <> "" Then
                lblProductVersion.Text = lblProductVersion.Text & " " & _