本文整理匯總了VB.NET中System.Windows.Forms.FontDialog.Apply事件的典型用法代碼示例。如果您正苦於以下問題：VB.NET FontDialog.Apply事件的具體用法？VB.NET FontDialog.Apply怎麽用？VB.NET FontDialog.Apply使用的例子？那麽, 這裏精選的事件代碼示例或許可以為您提供幫助。您也可以進一步了解該事件所在類System.Windows.Forms.FontDialog的用法示例。
在下文中一共展示了FontDialog.Apply事件的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: ElseIf
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' Set FontMustExist to true, which causes message box error
' if the user enters a font that does not exist.
FontDialog1.FontMustExist = True
' Set a minimum and maximum size to be
' shown in the FontDialog.
FontDialog1.MaxSize = 32
FontDialog1.MinSize = 18
' Show the Apply button in the dialog.
FontDialog1.ShowApply = True
' Do not show effects such as Underline
' and Bold.
FontDialog1.ShowEffects = False
' Save the existing font.
Dim oldFont As System.Drawing.Font = Me.Font
' Show the dialog and save the result.
Dim result As DialogResult = FontDialog1.ShowDialog()
' If The OK button in the Font dialog box is clicked,
' set all the controls' fonts to the chosen font by
' calling the FontDialog1_Apply method.
If result = DialogResult.OK Then
FontDialog1_Apply(Me.Button1, New System.EventArgs)
' If the Cancel button is clicked, set the controls'
' fonts back to the original font.
ElseIf (result = DialogResult.Cancel) Then
Dim containedControl As Control
For Each containedControl In Me.Controls
containedControl.Font = oldFont
Next
End If
End Sub
' Handle the Apply event by setting all controls' fonts to
' the chosen font.
Private Sub FontDialog1_Apply(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles FontDialog1.Apply
Me.Font = FontDialog1.Font
Dim containedControl As Control
For Each containedControl In Me.Controls
containedControl.Font = FontDialog1.Font
Next
End Sub