HIRO's.NET

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

 VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。

 基本的な使用方法から開発で役立つTipsまで幅広く取り扱っています。

HIRO's.NET RSSHIRO's.NET RSS


VB.NET 2003の開発でお困りのことはありませんか?
そんな悩みは当サイトで解決!!

HOME > VB.NET 2003 Tips > コントロール > FontDialog Tips メニュー

06.[適用]ボタンが押されたことを知る

UPDATE:2006/06/26 

<< 前のTips  次のTips >>

 

 [適用]ボタンが押されると、Applyイベントが発生します。

 
サンプル
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
            FontDialog1_Apply(sender, e)
        End If
End Sub

'適用ボタンが押された場合Applyイベントが発生する
Private Sub FontDialog1_Apply(ByVal sender As Object, ByVal e As System.EventArgs) Handles FontDialog1.Apply
        '選択されたフォントをテキストボックスに設定
        TextBox1.Font = FontDialog1.Font()
End Sub