[リストへもどる]
一括表示

投稿時間:2004/08/02(Mon) 15:59
投稿者名:
Eメール:
URL :
タイトル:
フォントサイズの指定について
お世話になります。
フォントサイズの指定方法について教えて下さい。
****************************
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
*************************************
このように書いて、フォームにボタン1つとテキストボックス1つ(multiline=true)
おいて、実行すると、iの値が3の倍数だと正常値(6,9,12,15〜24)が表示されるのですが、
それ以外の数値だと、小数点第2位まで表示してしまいます。
(iが13なのに12.75 14なのに14.25 といった状態です。)
どうしてでしょうか?(どこを修正すればよいのでしょうか?)

投稿時間:2004/08/02(Mon) 17:11
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: フォントサイズの指定について
> (iが13なのに12.75 14なのに14.25 といった状態です。)

元々、フォントサイズは 0.75 飛びです。
Private Sub Command1_Click()
    Dim i As Single
    Me.FontName = "MS ゴシック"
    For i = 9 To 15 Step 0.1
        Me.FontSize = i
        Debug.Print Me.FontSize
    Next i
End Sub


> どうしてでしょうか?(どこを修正すればよいのでしょうか?)

というより、貴方が何を求めているかです。
フォントサイズを整数で取得したいなら変数の型を変更すればいいだけです。

投稿時間:2004/08/02(Mon) 19:03
投稿者名:
Eメール:
URL :
タイトル:
Re^2: フォントサイズの指定について
返信ありがとうございます。
> 元々、フォントサイズは 0.75 飛びです。
知りませんでした。ありがとうございました。

> というより、貴方が何を求めているかです。
> フォントサイズを整数で取得したいなら変数の型を変更すればいいだけです。

Private m_HeaderFont As StdFont
m_HeaderFont.size とするとデータ型がCurrencyでしたので、整数の型にはしませんでした。
そして CommonDialog1.ShowFont で取得したFontSizeが整数の場合、14.75とかになってしまい悩んでいました。

投稿時間:2004/08/02(Mon) 21:06
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: フォントサイズの指定について
> > 元々、フォントサイズは 0.75 飛びです。
> 知りませんでした。ありがとうございました。

すべてのフォントがと言う事ではありませんので、一般的なフォントの場合と
いう事で。