| Вопрос: прозрачный Label | Добавлено: 09.08.07 13:54 |
Автор вопроса:  Димас | Web-сайт: hackerportal.clan.su/ | ICQ: 368665548 |
| народ как сдель чтобы Label был прозрачным а текс в нем нет |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Willa Вопросов: 16 Ответов: 18 |
Профиль | | #1 | Добавлено: 09.08.07 14:01 |
| Все очень просто - ковыряйся в свойствах.. Можно сделать backcolor в цвет формы, ну и соответственно выбираешь любой цвет шрифта... А в чем собственно проблема? | ||
|
Номер ответа: 2 Автор ответа: ДимасICQ: 368665548 Вопросов: 13 Ответов: 37 |
Web-сайт: Профиль | | #2 | Добавлено: 09.08.07 14:08 |
| Нет у меня скины можно загружаеть, а ресунок кнопки с ресунком с формы совместит тежоло (пользователь сами рисуют скины) | ||
|
Номер ответа: 3 Автор ответа: WillaВопросов: 16 Ответов: 18 |
Профиль | | #3 | Добавлено: 09.08.07 14:15 |
| backStile = Transparent не катит? | ||
|
Номер ответа: 4 Автор ответа: ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #4 | Добавлено: 09.08.07 15:28 |
|
Тогда пользуй заместо лабелов:
Private 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
Const mStr = "www.allapi.net" Private Sub Form_Paint() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'set the form's scalemode to pixels Me.ScaleMode = vbPixels 'set the forecolor to white Me.ForeColor = vbWhite 'draw some lines to show where our TextOut-x- and y-parameters are Me.ForeColor = vbBlack 'show some text TextOut Me.hdc, 100, 100, mStr, Len(mStr) End Sub (c) Api Guide |
||
|
Номер ответа: 5 Автор ответа: ДимасICQ: 368665548 Вопросов: 13 Ответов: 37 |
Web-сайт: Профиль | | #5 | Добавлено: 09.08.07 17:12 |
| Спасибо backStile катет | ||
Страница: 1 |