フォントダイアログボックスを使ってのフォントの設定 - VBレスキュー(花ちゃん) VS,VB.NET,VB2005,VB2008,VB2010,サンプル,Tips

★　フォントダイアログボックスを使ってのフォントの設定
　

Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click
'フォントダイアログボックスを使ってのフォントの設定
Dim fontDialog1 As New FontDialog
With fontDialog1
.ShowColor = True 'ダイアログボックスに色の選択肢を表示
.MinSize = 8 'ユーザーが選択できる最小値を設定
.MaxSize = 18 'ユーザーが選択できる最大値を設定
.Font = TextBox1.Font '現在の設定のフォントを表示
.Color = TextBox1.ForeColor '現在の設定のフォントカラーを表示
'ダイアログボックスを表示しOKボタンが押されたら
If .ShowDialog = DialogResult.OK Then
TextBox1.Font = .Font 'ダイアログボックスでの設定を
TextBox1.ForeColor = .Color 'テキストボックスのフォントに設定
End If
End With
End Sub

フォントダイアログボックスを使ってのフォントの設定 (SNo.078)
使用コントロール	Button3 （FontDialog1）
その他条件	WindowsXP(Vista)　Visual Basic 2005(VB2008)
★　フォントダイアログボックスを使ってのフォントの設定　 Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click 'フォントダイアログボックスを使ってのフォントの設定 Dim fontDialog1 As New FontDialog With fontDialog1 .ShowColor = True 'ダイアログボックスに色の選択肢を表示 .MinSize = 8 'ユーザーが選択できる最小値を設定 .MaxSize = 18 'ユーザーが選択できる最大値を設定 .Font = TextBox1.Font '現在の設定のフォントを表示 .Color = TextBox1.ForeColor '現在の設定のフォントカラーを表示 'ダイアログボックスを表示しOKボタンが押されたら If .ShowDialog = DialogResult.OK Then TextBox1.Font = .Font 'ダイアログボックスでの設定を TextBox1.ForeColor = .Color 'テキストボックスのフォントに設定 End If End With End Sub
ここで紹介していない細部の設定については、ヘルプの検索で［FileDialog メンバー］で検索すれば、各ダイアログのFileDialog メンバーがヒットしますので、それらをご覧下さい。