Как написать в Label (текст) не горизонтально, а вертикально - VB

Узнай цену своей работы

Формулировка задачи:

Очень нужно!!!

Решение задачи: «Как написать в Label (текст) не горизонтально, а вертикально»

textual
Листинг программы
Option Explicit
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 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(32) As Byte
End Type
Private Sub Printing(text1 As String, text2 As String)
    Dim RotateMe As LOGFONT
    Me.Picture1.AutoRedraw = True: Me.Picture2.AutoRedraw = True
    RotateMe.lfEscapement = 2700: RotateMe.lfHeight = -20
    SelectObject Me.Picture1.hdc, CreateFontIndirect(RotateMe)
    SelectObject Me.Picture2.hdc, CreateFontIndirect(RotateMe)
    Me.Picture1.CurrentX = 300: Me.Picture1.CurrentY = Me.Picture1.Height - 700
    Me.Picture2.CurrentX = 300: Me.Picture2.CurrentY = Me.Picture2.Height - 700
    Picture1.Print text1
    Picture2.Print text2
End Sub
 
Private Sub Command1_Click()
    Printing 166, 178
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы