VB.NET, C#, PowerShell Tipsサイト

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '[適用]ボタンを表示する
    FontDialog1.ShowApply = True

    'フォントダイアログを表示
    If FontDialog1.ShowDialog = DialogResult.OK Then
        '選択されたフォントをテキストボックスに設定
        TextBox1.Font = FontDialog1.Font()
    End If
End Sub

Private Sub FontDialog1_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles FontDialog1.Apply

    MessageBox.Show("[適用]ボタンが押されました。")
End Sub