Прозрачность

[Akella]

Можно ли сделать линиям прозрачность (как ФотоШОПЕ 0~100%)

[Amed]

Поясните точнее, - каким линиям?

[Ramzes]

Код: Выделить всё

'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



Код: Выделить всё

SetTransparent Me.hWnd, 212




Если я правильно понял

[_Мика_]

Код: Выделить всё

'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



Код: Выделить всё

SetTransparent Me.hWnd, 212




Если я правильно понял

Нет понял не парвельно ему нужно какие-то линии сделать прозрачные а не форму

[Ramzes]

тогда хедл линий поставить

[Akella]

мне надо сделать Line прозрачной 0~100 % как Photoshop.

тогда хедл линий поставить

КАК ?

[Ramzes]

А можно место линий что нить другое поставить?, потому как у линий нет HWND , разве что контрол свой писать

[Алексей К.]

Запускаю код _Мики_ и мне ругается ошибкой 453 типа "can`t find DLL entry point SetLayeredWindowAttributes in user32"
В чем проблема?

[Akella]

не контролы я нелюблю

[Ramzes]

Запускаю код _Мики_ и мне ругается ошибкой 453 типа "can`t find DLL entry point SetLayeredWindowAttributes in user32"
В чем проблема?

Какой код

А какая винда, просто код который я дал катит только на 2k и выше

[Алексей К.]

Понятно, у меня 98'ая винда стоит.

[KDima]

Можно GetPixel|PutPixel нарисовать вручную.

GDI+, GDI+, GDI+!