about.vb

来自「数据库学习的绝好例子简单的数据库经典入门」· VB 代码 · 共 22 行

Public Class About
    Private Sub About_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Me.Load

        'Set this form's Text property by using the 
        'Text property of the parent form
        Me.Text = "About " & Owner.Text

        'Set the application icon using the parent form's icon 
        imgApplicationIcon.Image = Owner.Icon.ToBitmap()

        'Get a reference to the AssemblyInfo for this application
        Dim objAssemblyInfo As Type = sender.GetType()

        'Set the Text property for the title, version, copyright 
        'and description labels
        lblTitle.Text = My.Application.Info.Title
        lblVersion.Text = My.Application.Info.Version.ToString
        lblCopyright.Text = My.Application.Info.Copyright
        lblDescription.Text = My.Application.Info.Description
    End Sub
End Class