| Вопрос: Неужели никто не умеет работать с графикой???(п... | Добавлено: 13.12.03 19:37 |
Автор вопроса:  DaSharm | Web-сайт: dasharm.com | ICQ: 780477 |
|
Пожалуйста, подскажите, эсли не жметесь. - Как делать прозрачность картинки (конкретнее контрола) - Т. е. устанавливать уровень прозрачности так, чтоб под картинкой были видны другие контролы. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #1 | Добавлено: 13.12.03 19:48 |
|
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Sub Form_Load() SetWindowLong Me.hWnd, (-20), &H80000 SetLayeredWindowAttributes Me.hWnd, 0, 200, &H2 End Sub Этот код для формы - попробуй поставить не Me.hWnd, а control.hWnd |
||
|
Номер ответа: 2 Автор ответа:  DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #2 | Добавлено: 13.12.03 20:44 |
|
Вот спасибо! |
||
|
Номер ответа: 3 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #3 | Добавлено: 15.12.03 10:20 |
|
И что, работает? У меня не получалось... |
||
|
Номер ответа: 4 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #4 | Добавлено: 15.12.03 15:54 |
|
Работает только на windows XP/2000 |
||
Страница: 1 |