| Вопрос: прозрачные окна в ВБ | Добавлено: 03.01.08 20:34 |
Автор вопроса:  eragon | ICQ: 498084058 |
| Есть ли какой нить способ в ВБ сделать прозрачную форму, нестандартной формы, срочно нужно, плз....help me!!! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Surok Вопросов: 36 Ответов: 106 |
Профиль | | #1 | Добавлено: 03.01.08 20:53 |
|
Есть ли какой нить способ в ВБ сделать прозрачную форму, нестандартной формы
Есть... |
||
|
Номер ответа: 2 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #2 | Добавлено: 03.01.08 20:55 |
| http://risingsunband.110mb.com/window.zip | ||
|
Номер ответа: 3 Автор ответа: SurokВопросов: 36 Ответов: 106 |
Профиль | | #3 | Добавлено: 03.01.08 23:00 |
|
срочно нужно, плз....help me!!!
всего-лишь нужно набраться терпения и сосредоточиться... ведь, решения бывают, зачастую, так близко... http://www.vbnet.ru/samples/download.aspx?id=348 http://www.vbnet.ru/samples/download.aspx?id=393 http://www.vbnet.ru/samples/download.aspx?id=484 http://www.vbnet.ru/samples/download.aspx?id=711 и это только на этом сайте.... |
||
|
Номер ответа: 4 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 04.01.08 02:07 |
Получи! У меня лично в специальной папочке лежат модули для решения элементарных задач типа этой. А для работы с utf-8 аж 2 реализации с апи и без
Option Explicit
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long 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 LWA_ALPHA = &H2 Private Const LWA_COLORKEY As Long = &H1 Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Public Sub SetTranspLevel(ByVal hWnd As Long, ByVal pp As Byte) Call SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED) SetLayeredWindowAttributes hWnd, 0, pp, LWA_ALPHA 'делаем прозрачным, где pp-прозрачность от 0 до 255 End Sub 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 |
||
|
Номер ответа: 5 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #5 | Добавлено: 04.01.08 02:08 |
| SetTranspColor - это к вопросу о нестандартной форме формы))) | ||
Страница: 1 |