TextBoxのFontの大きさ への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 オショウ  (社会人) 投稿日時 2009/12/9 08:11:14
少々回りくどい書き方します。

        Dim bakFont As Font

        Dim newFont As Font



        bakFont = TextBox1.Font



        newFont = New Font(bakFont.FontFamily, bakFont.Size + 1)



        TextBox1.Font = newFont


以上。
0
投稿者 VB最高  (学生) 投稿日時 2009/12/9 05:54:30
こんにちは。
TextBoxのFontの大きさを1あげたくて、次のように書きました。
Private Sub Button1_Click(・・・・・

   TextBox1.Font.Size += 1

End Sub

しかし、Sizeの値はReadOnlyです。と出て、できません。
このためにはTextBox1.Font=New Font(・・・)
とやればいいのでしょうが、その方法でやると、Size以外の
値も変わってしまい、いろいろ諸問題が発生しそうです。
どうするのが一番良い考えなのか、ご教授願います。
0