'API функции
'Функция определяет стиль окна
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
'Константы
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
'Процедура
'hWnd - манипулятор окна, Layered - степень прозрачности от 0 до 255
Public Sub SetTransparent(hWnd As Long, Layered As Byte)
Dim Ret As Long
'Определяем стиль нужного окна
Ret = GetWindowLong(hWnd, GWL_EXSTYLE)
'Задаём стиль окна как заслоённый
Ret = Ret Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, Ret
'Задём степень прозрачности окна
SetLayeredWindowAttributes hWnd, 0, Layered, LWA_ALPHA
End Sub
При запуске формы (Form_Load):
SetTransparent Me.hWnd, x
где x от 1 до 255
Прозрачно
Как сделать прозрачную label1, text1, button и т.д
лэйбл - штатные средства позволяют такое (BackStyle=Transparent)
text- используй апишки (наложение стилей)
батон - юзай лэйбл или изображение
Имхо, проще- нарисовать вручную
text- используй апишки (наложение стилей)
батон - юзай лэйбл или изображение
Имхо, проще- нарисовать вручную
Цитата: SkyM@n
лэйбл - штатные средства позволяют такое (BackStyle=Transparent)
text- используй апишки (наложение стилей)
батон - юзай лэйбл или изображение
Имхо, проще- нарисовать вручную
text- используй апишки (наложение стилей)
батон - юзай лэйбл или изображение
Имхо, проще- нарисовать вручную
Насчет текст филд - имхо эффекивно будет сделать ActiveX, если время позволяет :)
А баттон - имейждем с двумя картинками - на нажатие (MouseDown) и "подъем" (MouseUp), как и сказал SkyM@n.
Это не то
Цитата:
BackStyle=Transparent
сдесь цвет не изображается
Цитата: Asu2007
Это не то сдесь цвет не изображается
При чем тут цвет?
Это стиль заднего фона, который и должен быть прозрачным
Цитата: SkyM@n
При чем тут цвет?
Это стиль заднего фона, который и должен быть прозрачным
Это стиль заднего фона, который и должен быть прозрачным
прозрачная форма
Код:
сделать вот так но label
Цитата: Asu2007
Как сделать прозрачную label1, text1, button и т.д
так определитесь, что вам надо - сделать форму прозрачной или отдельно контролы на ней...
Если первое - бегом в гуглю, впрочем второе - тоже...