VB.NET, C#, PowerShellを使用しているエンジニアのためのサイト。
基本的な使用方法から開発で役立つ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