| Вопрос: Привет! Можно ли повернуть Label? | Добавлено: 21.04.06 14:49 |
Автор вопроса:  ScorpionS | Web-сайт: www.odisseyaco.ru | ICQ: 237494026 |
| Помогите! Мне нужно повернуть Label на 90 градусов, т.е. чтобы текст был вертикально, а не горизонтально |
| Ответы | Всего ответов: 16 |
|
Номер ответа: 1 Автор ответа:  HOOLIGAN Вопросов: 0 Ответов: 1066 |
Профиль | | #1 | Добавлено: 21.04.06 15:01 |
Не фиг делать: создай шрифт, повернутый на 90 градусов, и рисуй себе, пока не посинеешь 
Пример повернутого шрифта в ApiGuide есть |
||
|
Номер ответа: 2 Автор ответа: ScorpionS ICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #2 | Добавлено: 21.04.06 15:04 |
| А где достать этот шрифт? | ||
|
Номер ответа: 3 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #3 | Добавлено: 21.04.06 15:21 |
|
Где достать? В кладовке.
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 'In form Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim RotateMe As LOGFONT 'Set graphic-mode to 'persistent graphic' Me.AutoRedraw = True 'Rotate degrees  eg = 270
'Size (in points) Size = 20 'Set the rotation degree RotateMe.lfEscapement = Deg * 10 'Set the height of the font RotateMe.lfHeight = (Size * -20) / Screen.TwipsPerPixelY 'Create the font rFont = CreateFontIndirect(RotateMe) 'Select the font n the Form's device context Curent = SelectObject(Me.hdc, rFont) 'Print some text ... Me.CurrentX = 500 Me.CurrentY = 200 Me.Print "Bla-bla" End Sub |
||
|
Номер ответа: 4 Автор ответа: SRV ICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #4 | Добавлено: 21.04.06 16:03 |
|
Зачем сколько кода???!!! Ведь есть специальный VerticalLabel он мне нравится
|
||
|
Номер ответа: 5 Автор ответа: ScorpionSICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #5 | Добавлено: 21.04.06 16:07 |
|
А где этот VerticalLabel?
В компонентах? |
||
|
Номер ответа: 6 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #6 | Добавлено: 21.04.06 16:15 |
| У меня есть. Отослать? | ||
|
Номер ответа: 7 Автор ответа: ScorpionSICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #7 | Добавлено: 21.04.06 16:15 |
|
В какой панеле VerticalLabel?
Плз! |
||
|
Номер ответа: 8 Автор ответа: ScorpionSICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #8 | Добавлено: 21.04.06 16:15 |
| Шли! | ||
|
Номер ответа: 9 Автор ответа: ScorpionSICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #9 | Добавлено: 21.04.06 16:16 |
| Scorpion_S83@mail.ru | ||
|
Номер ответа: 10 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #10 | Добавлено: 21.04.06 16:19 |
Сообщение отправлено .
|
||
|
Номер ответа: 11 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #11 | Добавлено: 21.04.06 16:26 |
|
Кода где-то байт 50-60.
А сколько весит вертикальный лейбл? |
||
|
Номер ответа: 12 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | | #12 | Добавлено: 21.04.06 16:28 |
| .ocx весит 40 байт. | ||
|
Номер ответа: 13 Автор ответа: ScorpionSICQ: 237494026 Вопросов: 13 Ответов: 12 |
Web-сайт: Профиль | | #13 | Добавлено: 21.04.06 16:32 |
|
Все нормально, но этот VerticalLabel пишет сверху вниз, а мне нужно чтобы текст был наклонён на 90градусов!
Но всё равно спасибо!
|
||
|
Номер ответа: 14 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #14 | Добавлено: 21.04.06 17:19 |
|
ocx не может весить 40 байт.
Как минимум будет весить несколько килобайт. ScorpionS Не все то золото, что блестит... |
||
|
Номер ответа: 15 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #15 | Добавлено: 21.04.06 19:34 |
| создай столько лейблов скоко у тя букв...;_)) | ||