Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

Label Font Style

Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D public class CheckBoxEvent    public Shared Sub Main         Application.Run(New FrmCheckBox)    End Sub End class Public Class FrmCheckBox    Inherits System.Windows.Forms.Form    Friend WithEvents chkItalic As System.Windows.Forms.CheckBox    Friend WithEvents lblOutput As System.Windows.Forms.Label    Friend WithEvents chkBold As System.Windows.Forms.CheckBox    Public Sub New()       MyBase.New()       Me.lblOutput = New System.Windows.Forms.Label()       Me.chkItalic = New System.Windows.Forms.CheckBox()       Me.chkBold = New System.Windows.Forms.CheckBox()       Me.SuspendLayout()       Me.lblOutput.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))       Me.lblOutput.Location = New System.Drawing.Point(48, 24)       Me.lblOutput.Name = "lblOutput"       Me.lblOutput.Size = New System.Drawing.Size(208, 24)       Me.lblOutput.TabIndex = 0       Me.lblOutput.Text = "Watch the font style change"       '       'chkItalic       '       Me.chkItalic.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))       Me.chkItalic.Location = New System.Drawing.Point(152, 64)       Me.chkItalic.Name = "chkItalic"       Me.chkItalic.Size = New System.Drawing.Size(64, 24)       Me.chkItalic.TabIndex = 2       Me.chkItalic.Text = "Italic"       '       'chkBold       '       Me.chkBold.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))       Me.chkBold.Location = New System.Drawing.Point(80, 64)       Me.chkBold.Name = "chkBold"       Me.chkBold.Size = New System.Drawing.Size(56, 24)       Me.chkBold.TabIndex = 1       Me.chkBold.Text = "Bold"       '       'FrmCheckBox       '       Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)       Me.ClientSize = New System.Drawing.Size(292, 117)       Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.chkItalic, Me.chkBold, Me.lblOutput})       Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 9!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))       Me.Name = "FrmCheckBox"       Me.Text = "CheckBoxTest"       Me.ResumeLayout(False)    End Sub    Private Sub chkItalic_CheckedChanged _       (ByVal sender As System.Object, ByVal e As System.EventArgs) _       Handles chkItalic.CheckedChanged       lblOutput.Font = New Font("Microsoft Sans Serif", _          lblOutput.Font.Size, lblOutput.Font.Style Xor FontStyle.Italic)    End Sub     Private Sub chkBold_CheckedChanged _       (ByVal sender As System.Object, ByVal e As System.EventArgs) _       Handles chkBold.CheckedChanged       lblOutput.Font = New Font("Microsoft Sans Serif", _          lblOutput.Font.Size, lblOutput.Font.Style Xor FontStyle.Bold)    End Sub  End Class