| Вопрос: Про невидимость(Transparent) | Добавлено: 17.07.08 17:55 |
Автор вопроса:  MONAX | Web-сайт: sobaka-net.narod.ru | ICQ: 422828131 |
|
Как сделать форму невидимой, а объекты на ней видимые? (например парочку Shape и аниме). Хачу сделать на своем рабочем столе мини-анимешку без формы(что бы по экрану бегала) работаю в VB6. help :)
P.S. Может использовать Win API ? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 17.07.08 19:45 |
| API SetWindowRgn | ||
|
Номер ответа: 2 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #2 | Добавлено: 17.07.08 22:14 |
|
Есть один простой способ:
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_COLORKEY As Long = &H1 Public Sub SetTranspColor(ByVal hWnd As Long, ByVal color As Long) Call SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED) Call SetLayeredWindowAttributes(hWnd, color, 0, LWA_COLORKEY) 'делаем прозрачным цвет color End Sub Всё что не нужно нужно покрасить в какой-нибудь цвет, и сделать его прозрашным |
||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 17.07.08 22:15 |
Прочитал последнее своё предложение и завис )
|
||
Страница: 1 |