| Вопрос: Transparent form | Добавлено: 25.07.05 01:03 |
Автор вопроса:  Borisfen | ICQ: 247914358 |
|
Прошу помочь.
Как мне сделать форму полупрозрачной и вообще контролировать ее прозрачность? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 25.07.05 01:25 |
|
Эх, жаль вопрос по .НЕТ...
Ну может всё же сгодится-апи то и в африке апи надеюсь: 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Dim i As Integer Public Sub TranspMe(ByVal lngHandle As Long, ByVal Persent As Integer) ' Ïðîçðà÷íîñòü ïðîãðàììû Call SetWindowLong(lngHandle, &HFFEC, GetWindowLong(lngHandle, (&HFFEC)) Or &H80000) Call SetLayeredWindowAttributes(lngHandle, cNull, (&HFF * (&H64 - Persent)) / &H64, &H2& 
End Sub Private Sub Form_Load() TranspMe Me.hwnd, 30 ' 30% of transparency End Sub |
||
|
Номер ответа: 2 Автор ответа: Borisfen ICQ: 247914358 Вопросов: 6 Ответов: 35 |
Профиль | | #2 | Добавлено: 25.07.05 01:28 |
| Да нет. API увы не подойдет. Но все равно спасибо. | ||
|
Номер ответа: 3 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #3 | Добавлено: 25.07.05 06:35 |
|
me.opacity = 0.3
|
||
|
Номер ответа: 4 Автор ответа: BorisfenICQ: 247914358 Вопросов: 6 Ответов: 35 |
Профиль | | #4 | Добавлено: 25.07.05 13:37 |
| Спасибо за ответы | ||
|
Номер ответа: 5 Автор ответа: Max ICQ: 155798304 Вопросов: 7 Ответов: 6 |
Профиль | | #5 | Добавлено: 29.07.05 10:53 |
|
хммм... если речь идет именно о Transparency
То: Me.AllowTransparency = True Me.TransparencyKey() = Color.Blue станет прозрачным в форме все, что синего цвета. Me.Opacity = 0.3 - степень прозрачности ВСЕЙ формы |
||
Страница: 1 |