Label.Font.Size : Label « System.Windows.Forms « VB.Net by API






Label.Font.Size

  


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 

   
    
  








Related examples in the same category

1.Label.BorderStyle
2.Label.Click
3.Label.DataBindings.Add
4.Label.DoDragDrop
5.Label.DoubleClick
6.Label.DragDrop
7.Label.DragEnter
8.Label.Font.Style
9.Label.ForeColor
10.Label.Image
11.Label.ImageAlign
12.Label.ImageIndex
13.Label.ImageList
14.Label.MouseDown
15.Label.MouseEnter
16.Label.MouseHover
17.Label.MouseLeave
18.Label.MouseMove
19.Label.MouseUp
20.Label.MouseWheel
21.Label.SetBounds
22.Label.Text
23.Label.TextAlign
24.Label.Visible