Export (0) Print
Expand All

Control.FontChanged Event

Occurs when the Font property value changes.

Namespace:  System.Windows.Forms
Assembly:  System.Windows.Forms (in System.Windows.Forms.dll)

'Declaration
Public Event FontChanged As EventHandler

This event is raised if the Font property is changed by either a programmatic modification or through interaction.

For more information about handling events, see Handling and Raising Events.

The following code example demonstrates the FontChanged event.

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

Public Class Form1
   Inherits Form
   Private WithEvents radioButton1 As RadioButton
   Private WithEvents radioButton2 As RadioButton


   Public Sub New()
      InitializeComponent()
   End Sub

   <STAThread()>  _
   Shared Sub Main()
      Application.EnableVisualStyles()
      Application.SetCompatibleTextRenderingDefault(False)
      Application.Run(New Form1())
   End Sub 


   Private Sub InitializeComponent()
      Me.radioButton1 = New System.Windows.Forms.RadioButton()
      Me.radioButton2 = New System.Windows.Forms.RadioButton()
      Me.SuspendLayout()
      '  
      ' radioButton1 
      '  
      Me.radioButton1.AutoSize = True 
      Me.radioButton1.Location = New System.Drawing.Point(0, 0)
      Me.radioButton1.Name = "radioButton1" 
      Me.radioButton1.Size = New System.Drawing.Size(62, 17)
      Me.radioButton1.TabIndex = 0
      Me.radioButton1.TabStop = True 
      Me.radioButton1.Text = "Button1" 
      Me.radioButton1.UseVisualStyleBackColor = True 
      '  
      ' radioButton2 
      '  
      Me.radioButton2.AutoSize = True 
      Me.radioButton2.Location = New System.Drawing.Point(0, 39)
      Me.radioButton2.Name = "radioButton2" 
      Me.radioButton2.Size = New System.Drawing.Size(126, 17)
      Me.radioButton2.TabIndex = 1
      Me.radioButton2.TabStop = True 
      Me.radioButton2.Text = "Change Button1 font." 
      Me.radioButton2.UseVisualStyleBackColor = True 
      '  
      ' Form1 
      '  
      Me.ClientSize = New System.Drawing.Size(292, 273)
      Me.Controls.Add(radioButton2)
      Me.Controls.Add(radioButton1)
      Me.Name = "Form1" 
      Me.ResumeLayout(False)
      Me.PerformLayout()
   End Sub 


   Private Sub radioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles radioButton2.CheckedChanged
      radioButton1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
   End Sub 


   Private Sub radioButton1_FontChanged(sender As Object, e As EventArgs) Handles radioButton1.FontChanged
      MessageBox.Show("The font has been changed.")
   End Sub 
End Class

.NET Framework

Supported in: 4.6, 4.5, 4, 3.5, 3.0, 2.0, 1.1, 1.0

.NET Framework Client Profile

Supported in: 4, 3.5 SP1

Windows 8.1, Windows Server 2012 R2, Windows 8, Windows Server 2012, Windows 7, Windows Vista SP2, Windows Server 2008 (Server Core Role not supported), Windows Server 2008 R2 (Server Core Role supported with SP1 or later; Itanium not supported)

The .NET Framework does not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.

Show:
© 2014 Microsoft