Главная страницаОбратная связьКарта сайта

Как написать на форме текст под нужным углом



Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long

Private Const LF_FACESIZE = 32

Private 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
Me.AutoRedraw = True
Deg = 20
Size = 40
RotateMe.lfEscapement = Deg * 10
RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY
rFont = CreateFontIndirect(RotateMe)
Curent = SelectObject(Me.hdc, rFont)
Me.CurrentX = 1000
Me.CurrentY = 500
Me.Print "Hellow"
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как написать на форме текст под нужным углом", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info