VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/08/02(Mon) 15:59 |
| 投稿者 | ： ゆ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： フォントサイズの指定について |
お世話になります。
フォントサイズの指定方法について教えて下さい。
****************************
Option Explicit
Private m_HeaderFont As StdFont
Private Sub Command1_Click()
Dim i As Integer
Set m_HeaderFont = Nothing
Set m_HeaderFont = New StdFont
For i = 5 To 25
m_HeaderFont.Size = i
Text1.Text = Text1.Text & vbCr & vbLf & m_HeaderFont.Size
Next
End Sub
Public Property Get HeaderFont() As StdFont
Set HeaderFont = m_HeaderFont
End Property
Public Property Set HeaderFont(vNewValue As StdFont)
Set HeaderFont = vNewValue
End Property
*************************************
このように書いて、フォームにボタン１つとテキストボックス１つ(multiline=true)
おいて、実行すると、iの値が３の倍数だと正常値（6,9,12,15〜24）が表示されるのですが、
それ以外の数値だと、小数点第２位まで表示してしまいます。
（iが13なのに12.75 14なのに14.25 といった状態です。）
どうしてでしょうか？（どこを修正すればよいのでしょうか？）
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）