● 固定幅フォントを設定する ●

テキストエディタなどで使用するのはどうかな?

'フォントIDを生成する
Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long

'フォントIDを破棄する
'Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

'Windowsにメッセージを送信
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

'フォントを指定する
Private Const WM_SETFONT = &H30

'固定幅フォント
Private Const OEM_FIXED_FONT = 10
Private Const ANSI_FIXED_FONT = 11
Private Const ANSI_VAR_FONT = 12
Private Const DEVICE_DEFAULT_FONT = 14
Private Const SYSTEM_FIXED_FONT = 16

Private Sub Form_Load()

    'GetStockObjectにより得たフォントを指定する
    Call SendMessage(Text1.hwnd, WM_SETFONT, _
           GetStockObject(DEVICE_DEFAULT_FONT), ByVal 0&)

    'フォントIDを破棄する ←↓不要!! 破棄しちゃいけません!!
    'Call DeleteObject(lngFontID)

End Sub

戻る