Вопрос из области 3D

[DKbelRoma]

Можно ли как-то зделать что-бы при включении формы (моего проэкта,программы) - форма была прозрачная ,и постипенно набирала цвет!
------------------------------
Кто знает выложите код пожалуйста,или подскажите где его Юзать??? Зарание спасибо!

[Anubis]

Хм... а ещё колёсики крутились, и супер рендер был
Ладно на самом деле можно попробовать с помощью AlphaMask попробовать, по крайней мере в С++ так... А в VB такого не видел...
Типа таймер поставить с интервалом в милесекундах и через определённое время интенсивность менять? Если чесно я присоединяюсь к вопросу, подскажите как?

[Yurich]

Можно ли как-то зделать что-бы при включении формы (моего проэкта,программы) - форма была прозрачная ,и постипенно набирала цвет!
------------------------------
Кто знает выложите код пожалуйста,или подскажите где его Юзать??? Зарание спасибо!

Вопрос не из области 3Д Вам сюда:
[url]
http://bbs.vbstreets.ru/viewforum.php?f ... 3da74b9d9c
[/url][/url]

[Mexanik]

Прозрачность формы в Visual Basic .NET есть,как параметр самой формы.Ну а делать ее постепенно прозрачной можно хоть через счетчик в таймере.В Вис Басе 6 такого нет(по крайней мере у меня,может можно с какойто библы системной это будет выдернуть?).

[dr.MIG]

Есть два пути -- функция AnimateWindow с константой AW_BLEND. Но результат её действия тебя не устроит -- окошко будет черное и для нормальной её работы надо сабклассить WM_PRINT... Второй вариант -- подправить стиль окну до WS_EX_LAYERED, используя SetWindowLong. А затем в таймере уменьшать прозрачность, используя SetLayeredWindowAttributes.

[|( () ( T |/| |(]

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

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 = &H3
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000

Public Function SetTransparent(hwnd As Long, Layered As Byte) As Boolean
On Error GoTo 1
Dim Ret As Long
Ret = GetWindowLong(hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes hwnd, 1, Layered, LWA_ALPHA
SetTransparent = True
1 Exit Function
End Function

Layered - от 0 до 255.
Только не понятно почему вопрос из области 3d. Если ты это хочешь проделать с формой на которой отоброжаеться 3d, то нечего не выйдет. В таком случае надо делать скриншот, выводить его через DX, и менять его прозрачность.

[DKbelRoma]

|( () ( T |/| |(
спасибо! Это мне подходит! Помог!!!

[DKbelRoma]

что то код неработает! Его нужно вставить на форму???

[dr.MIG]

Его нужно вставить в стандартный модуль. Затем добавить таймер на форму, указать для него интервал, в процедуре обработки срабатывания таймера вызывать функцию SetTransparent, передавая в нее увеличивающееся значение прозрачности.
А таймер инициализировать в процедуре обработки загрузки формы.