frmabout.vb

使用vb.net实现串口通讯的过程

        Me.lblDescription.Text = resources.GetString("lblDescription.Text")
        Me.lblDescription.TextAlign = CType(resources.GetObject("lblDescription.TextAlign"), System.Drawing.ContentAlignment)
        Me.lblDescription.Visible = CType(resources.GetObject("lblDescription.Visible"), Boolean)
        '
        'cmdOK
        '
        Me.cmdOK.AccessibleDescription = CType(resources.GetObject("cmdOK.AccessibleDescription"), String)
        Me.cmdOK.AccessibleName = CType(resources.GetObject("cmdOK.AccessibleName"), String)
        Me.cmdOK.Anchor = CType(resources.GetObject("cmdOK.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.cmdOK.BackgroundImage = CType(resources.GetObject("cmdOK.BackgroundImage"), System.Drawing.Image)
        Me.cmdOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.cmdOK.Dock = CType(resources.GetObject("cmdOK.Dock"), System.Windows.Forms.DockStyle)
        Me.cmdOK.Enabled = CType(resources.GetObject("cmdOK.Enabled"), Boolean)
        Me.cmdOK.FlatStyle = CType(resources.GetObject("cmdOK.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.cmdOK.Font = CType(resources.GetObject("cmdOK.Font"), System.Drawing.Font)
        Me.cmdOK.Image = CType(resources.GetObject("cmdOK.Image"), System.Drawing.Image)
        Me.cmdOK.ImageAlign = CType(resources.GetObject("cmdOK.ImageAlign"), System.Drawing.ContentAlignment)
        Me.cmdOK.ImageIndex = CType(resources.GetObject("cmdOK.ImageIndex"), Integer)
        Me.cmdOK.ImeMode = CType(resources.GetObject("cmdOK.ImeMode"), System.Windows.Forms.ImeMode)
        Me.cmdOK.Location = CType(resources.GetObject("cmdOK.Location"), System.Drawing.Point)
        Me.cmdOK.Name = "cmdOK"
        Me.cmdOK.RightToLeft = CType(resources.GetObject("cmdOK.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.cmdOK.Size = CType(resources.GetObject("cmdOK.Size"), System.Drawing.Size)
        Me.cmdOK.TabIndex = CType(resources.GetObject("cmdOK.TabIndex"), Integer)
        Me.cmdOK.Text = resources.GetString("cmdOK.Text")
        Me.cmdOK.TextAlign = CType(resources.GetObject("cmdOK.TextAlign"), System.Drawing.ContentAlignment)
        Me.cmdOK.Visible = CType(resources.GetObject("cmdOK.Visible"), Boolean)
        '
        'lblCopyright
        '
        Me.lblCopyright.AccessibleDescription = CType(resources.GetObject("lblCopyright.AccessibleDescription"), String)
        Me.lblCopyright.AccessibleName = CType(resources.GetObject("lblCopyright.AccessibleName"), String)
        Me.lblCopyright.Anchor = CType(resources.GetObject("lblCopyright.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.lblCopyright.AutoSize = CType(resources.GetObject("lblCopyright.AutoSize"), Boolean)
        Me.lblCopyright.Dock = CType(resources.GetObject("lblCopyright.Dock"), System.Windows.Forms.DockStyle)
        Me.lblCopyright.Enabled = CType(resources.GetObject("lblCopyright.Enabled"), Boolean)
        Me.lblCopyright.Font = CType(resources.GetObject("lblCopyright.Font"), System.Drawing.Font)
        Me.lblCopyright.Image = CType(resources.GetObject("lblCopyright.Image"), System.Drawing.Image)
        Me.lblCopyright.ImageAlign = CType(resources.GetObject("lblCopyright.ImageAlign"), System.Drawing.ContentAlignment)
        Me.lblCopyright.ImageIndex = CType(resources.GetObject("lblCopyright.ImageIndex"), Integer)
        Me.lblCopyright.ImeMode = CType(resources.GetObject("lblCopyright.ImeMode"), System.Windows.Forms.ImeMode)
        Me.lblCopyright.Location = CType(resources.GetObject("lblCopyright.Location"), System.Drawing.Point)
        Me.lblCopyright.Name = "lblCopyright"
        Me.lblCopyright.RightToLeft = CType(resources.GetObject("lblCopyright.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.lblCopyright.Size = CType(resources.GetObject("lblCopyright.Size"), System.Drawing.Size)
        Me.lblCopyright.TabIndex = CType(resources.GetObject("lblCopyright.TabIndex"), Integer)
        Me.lblCopyright.Text = resources.GetString("lblCopyright.Text")
        Me.lblCopyright.TextAlign = CType(resources.GetObject("lblCopyright.TextAlign"), System.Drawing.ContentAlignment)
        Me.lblCopyright.Visible = CType(resources.GetObject("lblCopyright.Visible"), Boolean)
        '
        'lblCodebase
        '
        Me.lblCodebase.AccessibleDescription = CType(resources.GetObject("lblCodebase.AccessibleDescription"), String)
        Me.lblCodebase.AccessibleName = CType(resources.GetObject("lblCodebase.AccessibleName"), String)
        Me.lblCodebase.Anchor = CType(resources.GetObject("lblCodebase.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.lblCodebase.AutoSize = CType(resources.GetObject("lblCodebase.AutoSize"), Boolean)
        Me.lblCodebase.Dock = CType(resources.GetObject("lblCodebase.Dock"), System.Windows.Forms.DockStyle)
        Me.lblCodebase.Enabled = CType(resources.GetObject("lblCodebase.Enabled"), Boolean)
        Me.lblCodebase.Font = CType(resources.GetObject("lblCodebase.Font"), System.Drawing.Font)
        Me.lblCodebase.Image = CType(resources.GetObject("lblCodebase.Image"), System.Drawing.Image)
        Me.lblCodebase.ImageAlign = CType(resources.GetObject("lblCodebase.ImageAlign"), System.Drawing.ContentAlignment)
        Me.lblCodebase.ImageIndex = CType(resources.GetObject("lblCodebase.ImageIndex"), Integer)
        Me.lblCodebase.ImeMode = CType(resources.GetObject("lblCodebase.ImeMode"), System.Windows.Forms.ImeMode)
        Me.lblCodebase.Location = CType(resources.GetObject("lblCodebase.Location"), System.Drawing.Point)
        Me.lblCodebase.Name = "lblCodebase"
        Me.lblCodebase.RightToLeft = CType(resources.GetObject("lblCodebase.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.lblCodebase.Size = CType(resources.GetObject("lblCodebase.Size"), System.Drawing.Size)
        Me.lblCodebase.TabIndex = CType(resources.GetObject("lblCodebase.TabIndex"), Integer)
        Me.lblCodebase.Text = resources.GetString("lblCodebase.Text")
        Me.lblCodebase.TextAlign = CType(resources.GetObject("lblCodebase.TextAlign"), System.Drawing.ContentAlignment)
        Me.lblCodebase.Visible = CType(resources.GetObject("lblCodebase.Visible"), Boolean)
        '
        'frmAbout
        '
        Me.AcceptButton = Me.cmdOK
        Me.AccessibleDescription = CType(resources.GetObject("$this.AccessibleDescription"), String)
        Me.AccessibleName = CType(resources.GetObject("$this.AccessibleName"), String)
        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.cmdOK
        Me.ClientSize = CType(resources.GetObject("$this.ClientSize"), System.Drawing.Size)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblCodebase, Me.lblCopyright, Me.cmdOK, Me.lblDescription, Me.lblVersion, Me.lblTitle, Me.pbIcon})
        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 = "frmAbout"
        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

	' Note: Because this form is opened by frmMain using the ShowDialog command, we simply set the
	' DialogResult property of cmdOK to OK which causes the form to close when clicked.
	Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Try
			' Set this Form's Text & Icon properties by using values from the parent form
			Me.Text = "About " & Me.Owner.Text
			Me.Icon = Me.Owner.Icon

			' Set this Form's Picture Box's image using the parent's icon 
			' However, we need to convert it to a Bitmap since the Picture Box Control
			' will not accept a raw Icon.
			Me.pbIcon.Image = Me.Owner.Icon.ToBitmap()

			' Set the labels identitying the Title, Version, and Description by
			' reading Assembly meta-data originally entered in the AssemblyInfo.vb file
			' using the AssemblyInfo class defined in the same file
			Dim ainfo As New AssemblyInfo()

			Me.lblTitle.Text = ainfo.Title
			Me.lblVersion.Text = String.Format("Version {0}", ainfo.Version)
			Me.lblCopyright.Text = ainfo.Copyright
			Me.lblDescription.Text = ainfo.Description
			Me.lblCodebase.Text = ainfo.CodeBase

		Catch exp As System.Exception
			' This catch will trap any unexpected error.
			MessageBox.Show(exp.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop)

		End Try
	End Sub


End Class