- 654 名前：デフォルトの名無しさん [2013/05/14(火) 19:11:59.88 ]
- デフォルトでフォントサイズ１１にしておく
メニューに「字を小さく」「字を大きく」の二つだけ用意する
Private Sub Font_Large()
Dim org_size!, i%
org_size! = Text1.Fontsize
For i%=1 to 10
Text1.FontSize = org_size! + i%
If Text1.FontSize <> org_size! Then exit For
Next
End Sub
