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 - "Как написать на форме текст под нужным углом", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!