本文整理汇总了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