VB+API Как изменить шрифт при использовании CreateFontInd ?

[dragornuss]

При создании шрифта используется CreateFontIndirect
Но в описании этой функции я не нашёл переменной для шрифта.
При выводе текста используется TextOut

Вывод тескта производится в PictureBox.
Хотелось бы использовать различные шрифты, а печатает только один
Подскажите плз как это сделать ?

[GSerg]

Что значит не нашёл?
Она HFONT возвращает. Его потом SelectObject в DC надо.

[dragornuss]

Видимо я не совсем точно сформулировал вопрос.
Для начала отрывок кода

В модуле

Public Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Public Const LF_FACESIZE = 32
Public Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE) As Byte
End Type

В коде формы

Private Sub Form_Load()

Dim RotateMe As LOGFONT
'Set graphic-mode to 'persistent graphic'
pb.AutoRedraw = True
'Rotate degrees
Deg = -50
'Size (in points)
Size = 10
'Set the rotation degree
RotateMe.lfEscapement = Deg * 10

RotateMe.lfFaceName(23) = 3
'Set the height of the font
RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY

'Здесь создаётся новый шрифт с соответствующими параметрами
'Но в типе LOGFONT нет переменной отвечающей за имя шрифта
'К примеру нужно вывести текст шрифтом OldStyle, а не текущим
'Как это сделать ?
rFont = CreateFontIndirect(RotateMe)

'Здесь Выбираем новый созданный шрифт, как сказано в SelectObject
Curent = SelectObject(pb.hdc, rFont)
'Print some text ...
TextOut pb.hdc, 10, 10, "Igor", 4
End Sub

[dragornuss]

млин, дубль бабахнул...

[GSerg]

fFaceName as string * LF_FACESIZE
end type

[GSerg]

Не добавить надо было, а заменить то, что у тебя есть...

[dragornuss]

Заменял, всёравно какой-то шрифт по умолчанию рисуется и всё...

[GSerg]

RotateMe.lfFaceName = "Comic sans ms" & vbNullChar

[dragornuss]

Сейчас попробую

[dragornuss]

Ййййййессс !!!!
Спасибо огромное !
Как я понимаю, всё дело было в нулевом символе в конце строки.
А ведь ещё C++ изучаю. Видно бЕстолку...
Ещё раз спасибо.