aboutform.vb

一个管理系统

        Me.lblPartner.Location = CType(resources.GetObject("lblPartner.Location"), System.Drawing.Point)
        Me.lblPartner.Name = "lblPartner"
        Me.lblPartner.RightToLeft = CType(resources.GetObject("lblPartner.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.lblPartner.Size = CType(resources.GetObject("lblPartner.Size"), System.Drawing.Size)
        Me.lblPartner.TabIndex = CType(resources.GetObject("lblPartner.TabIndex"), Integer)
        Me.lblPartner.Text = resources.GetString("lblPartner.Text")
        Me.lblPartner.TextAlign = CType(resources.GetObject("lblPartner.TextAlign"), System.Drawing.ContentAlignment)
        Me.lblPartner.Visible = CType(resources.GetObject("lblPartner.Visible"), Boolean)
        '
        'linkCompany
        '
        Me.linkCompany.AccessibleDescription = resources.GetString("linkCompany.AccessibleDescription")
        Me.linkCompany.AccessibleName = resources.GetString("linkCompany.AccessibleName")
        Me.linkCompany.Anchor = CType(resources.GetObject("linkCompany.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.linkCompany.AutoSize = CType(resources.GetObject("linkCompany.AutoSize"), Boolean)
        Me.linkCompany.Dock = CType(resources.GetObject("linkCompany.Dock"), System.Windows.Forms.DockStyle)
        Me.linkCompany.Enabled = CType(resources.GetObject("linkCompany.Enabled"), Boolean)
        Me.linkCompany.Font = CType(resources.GetObject("linkCompany.Font"), System.Drawing.Font)
        Me.linkCompany.Image = CType(resources.GetObject("linkCompany.Image"), System.Drawing.Image)
        Me.linkCompany.ImageAlign = CType(resources.GetObject("linkCompany.ImageAlign"), System.Drawing.ContentAlignment)
        Me.linkCompany.ImageIndex = CType(resources.GetObject("linkCompany.ImageIndex"), Integer)
        Me.linkCompany.ImeMode = CType(resources.GetObject("linkCompany.ImeMode"), System.Windows.Forms.ImeMode)
        Me.linkCompany.LinkArea = CType(resources.GetObject("linkCompany.LinkArea"), System.Windows.Forms.LinkArea)
        Me.linkCompany.Location = CType(resources.GetObject("linkCompany.Location"), System.Drawing.Point)
        Me.linkCompany.Name = "linkCompany"
        Me.linkCompany.RightToLeft = CType(resources.GetObject("linkCompany.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.linkCompany.Size = CType(resources.GetObject("linkCompany.Size"), System.Drawing.Size)
        Me.linkCompany.TabIndex = CType(resources.GetObject("linkCompany.TabIndex"), Integer)
        Me.linkCompany.TabStop = True
        Me.linkCompany.Text = resources.GetString("linkCompany.Text")
        Me.linkCompany.TextAlign = CType(resources.GetObject("linkCompany.TextAlign"), System.Drawing.ContentAlignment)
        Me.linkCompany.Visible = CType(resources.GetObject("linkCompany.Visible"), Boolean)
        '
        'linkVB
        '
        Me.linkVB.AccessibleDescription = resources.GetString("linkVB.AccessibleDescription")
        Me.linkVB.AccessibleName = resources.GetString("linkVB.AccessibleName")
        Me.linkVB.Anchor = CType(resources.GetObject("linkVB.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.linkVB.AutoSize = CType(resources.GetObject("linkVB.AutoSize"), Boolean)
        Me.linkVB.Dock = CType(resources.GetObject("linkVB.Dock"), System.Windows.Forms.DockStyle)
        Me.linkVB.Enabled = CType(resources.GetObject("linkVB.Enabled"), Boolean)
        Me.linkVB.Font = CType(resources.GetObject("linkVB.Font"), System.Drawing.Font)
        Me.linkVB.Image = CType(resources.GetObject("linkVB.Image"), System.Drawing.Image)
        Me.linkVB.ImageAlign = CType(resources.GetObject("linkVB.ImageAlign"), System.Drawing.ContentAlignment)
        Me.linkVB.ImageIndex = CType(resources.GetObject("linkVB.ImageIndex"), Integer)
        Me.linkVB.ImeMode = CType(resources.GetObject("linkVB.ImeMode"), System.Windows.Forms.ImeMode)
        Me.linkVB.LinkArea = CType(resources.GetObject("linkVB.LinkArea"), System.Windows.Forms.LinkArea)
        Me.linkVB.Location = CType(resources.GetObject("linkVB.Location"), System.Drawing.Point)
        Me.linkVB.Name = "linkVB"
        Me.linkVB.RightToLeft = CType(resources.GetObject("linkVB.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.linkVB.Size = CType(resources.GetObject("linkVB.Size"), System.Drawing.Size)
        Me.linkVB.TabIndex = CType(resources.GetObject("linkVB.TabIndex"), Integer)
        Me.linkVB.TabStop = True
        Me.linkVB.Text = resources.GetString("linkVB.Text")
        Me.linkVB.TextAlign = CType(resources.GetObject("linkVB.TextAlign"), System.Drawing.ContentAlignment)
        Me.linkVB.Visible = CType(resources.GetObject("linkVB.Visible"), Boolean)
        '
        'AboutForm
        '
        Me.AcceptButton = Me.butOK
        Me.AccessibleDescription = resources.GetString("$this.AccessibleDescription")
        Me.AccessibleName = resources.GetString("$this.AccessibleName")
        Me.Anchor = CType(resources.GetObject("$this.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.AutoScaleBaseSize = CType(resources.GetObject("$this.AutoScaleBaseSize"), System.Drawing.Size)
        Me.AutoScroll = CType(resources.GetObject("$this.AutoScroll"), Boolean)
        Me.AutoScrollMargin = CType(resources.GetObject("$this.AutoScrollMargin"), System.Drawing.Size)
        Me.AutoScrollMinSize = CType(resources.GetObject("$this.AutoScrollMinSize"), System.Drawing.Size)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.CancelButton = Me.butOK
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.linkVB, Me.linkCompany, Me.lblPartner, Me.butInfo, Me.butOK, Me.listComponents, Me.Label1, Me.lblName, Me.PictureBox1, Me.lblDescription, Me.lblVersion, Me.lblCopyright})
        Me.Dock = CType(resources.GetObject("$this.Dock"), System.Windows.Forms.DockStyle)
        Me.Enabled = CType(resources.GetObject("$this.Enabled"), Boolean)
        Me.Font = CType(resources.GetObject("$this.Font"), System.Drawing.Font)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.ImeMode = CType(resources.GetObject("$this.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Location = CType(resources.GetObject("$this.Location"), System.Drawing.Point)
        Me.MaximizeBox = False
        Me.MaximumSize = CType(resources.GetObject("$this.MaximumSize"), System.Drawing.Size)
        Me.MinimizeBox = False
        Me.MinimumSize = CType(resources.GetObject("$this.MinimumSize"), System.Drawing.Size)
        Me.Name = "AboutForm"
        Me.RightToLeft = CType(resources.GetObject("$this.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.ShowInTaskbar = False
        Me.StartPosition = CType(resources.GetObject("$this.StartPosition"), System.Windows.Forms.FormStartPosition)
        Me.Text = resources.GetString("$this.Text")
        Me.Visible = CType(resources.GetObject("$this.Visible"), Boolean)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub AboutForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' get assembly info not available from application object
        Dim copyright As AssemblyCopyrightAttribute = CType(AssemblyCopyrightAttribute.GetCustomAttribute(Reflection.Assembly.GetExecutingAssembly(), GetType(AssemblyCopyrightAttribute)), AssemblyCopyrightAttribute)
        Dim description As AssemblyDescriptionAttribute = CType(AssemblyDescriptionAttribute.GetCustomAttribute(System.Reflection.Assembly.GetExecutingAssembly(), GetType(AssemblyDescriptionAttribute)), AssemblyDescriptionAttribute)

        ' set labels
        lblDescription.Text = description.Description
        lblVersion.Text = "Version: " & Application.ProductVersion
        lblCopyright.Text = copyright.Copyright

        ' set links
        linkVB.Links(0).LinkData = "http://msdn.microsoft.com/vbasic/"
        linkCompany.Links(0).LinkData = "http://www.vertigosoftware.com/"

        ' display components used by this assembly
        Dim assemComponents As AssemblyName() = [Assembly].GetExecutingAssembly().GetReferencedAssemblies()
        Dim assemName As AssemblyName
        For Each assemName In assemComponents
            Dim item As ListViewItem = listComponents.Items.Add(assemName.Name)
            item.SubItems.Add(assemName.Version.ToString())
        Next assemName
    End Sub

    Private Sub butOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butOK.Click
        Me.Close()
    End Sub

    Private Sub butInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butInfo.Click
        Try
            System.Diagnostics.Process.Start("MSInfo32.exe")
        Catch
        End Try
    End Sub

    Private Sub linkCompany_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkCompany.LinkClicked
        Try
            ' launch the url, this will fail if user does not have an association for url's
            System.Diagnostics.Process.Start(CStr(e.Link.LinkData))
        Catch
        End Try
    End Sub

    Private Sub linkVB_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkVB.LinkClicked
        Try
            ' launch the url, this will fail if user does not have an association for url's
            System.Diagnostics.Process.Start(CStr(e.Link.LinkData))
        Catch
        End Try

    End Sub
End Class