６６．現在使われているフォント名を取得する

＜　使用用途　＞
現在使われているフォント名を取得する

　＜　説明　＞
ＡＰＩ関数のGetTextFaceを使用します
GetTextFace　＝＞現在使われているフォント名を取得する
　　＜引数＞
　　　　　hDC：デバイスコンテキストのハンドル
　　　　　nCount：文字数
　　　　　lpFacename：フォント名が格納される変数
　　＠戻り値＠
　　　　　正常終了0以外
　　　　　

<　ＳＡＭＰＬＥ　＞
'ここではForm1で使用しているフォント名を取得します。
'標準モジュール
Public　Declare Function GetTextFace Lib "GDI32" Alias "GetTextFaceA" (ByVal hDC As Long, ByVal nCount As Long, ByVal lpFacename As String)As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim nName As String
　　Dim nLeng As Long
　　Dim Ret As Long

　　'バッファを確保
　　nName = String(250, Chr(0))
　　nLeng = Len(nName)

　　Ret = GetTextFace(hDC, nLeng, nName)
　　Text1.Text = nName
End Sub