Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1336971 Fri, 10 Nov 2006 07:29:49 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1336971 ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1335015 Wed, 08 Nov 2006 19:52:13 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1335015 ответов в сети не нашел.]]> SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334983 Wed, 08 Nov 2006 19:07:27 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334983 ClassLong, все же), которые будут открыты позже. Если стиль убрать, то тень "отлипнет" от формы и будет висеть уже сама по себе. Ничего лучше не нашел, чем сделать так, т.к. определить родителя Shadow нет возможности (а может и есть, но док-ции к SysShadow толковой нет):

    Sub KillShadow()
    Dim hShadow As Long, pID As Long, cpID As Long
    cpID = GetCurrentProcessId
    Do
    hShadow = FindWindowExA(hShadow, 0, "SysShadow", 0&)
    If hShadow <> 0 Then
        GetWindowThreadProcessId hShadow, pID
        If pID = cpID Then DestroyWindow hShadow
        Exit Do
    ElseIf hShadow = 0 Then Exit Do
    End If
    Loop
    End Sub

Т.к. Shadow создают окна, которые имеют данный стиль (меню или tooltips), то боятся за то, что убьются "не те" тени нечего. Впрочем, вероятно, есть вариант и получше.
ps: Данный способ (KillShadow с удалением стиля с класса форм в Form_Unload) прокатывает на УРА.]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334981 Wed, 08 Nov 2006 19:04:00 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334981 SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334975 Wed, 08 Nov 2006 18:58:18 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334975


]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334974 Wed, 08 Nov 2006 18:57:37 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334974 SCINER Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334972 Wed, 08 Nov 2006 18:55:26 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334972 CS_DROPSHADOW.
GCL_STYLE = -26 - соответственно.]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334967 Wed, 08 Nov 2006 18:50:22 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334967
Ну, и что это за стиль со значением 0x20000?]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334959 Wed, 08 Nov 2006 18:37:36 +0000 Тень у формы https://forum.sources.ru/index.php?showtopic=160681&view=findpost&p=1334959
    Option Explicit
     
    Private Const CS_DROPSHADOW = &H20000
    Private Const GCL_STYLE = -26
     
    Private Declare Function SetClassLongA Lib "user32.dll" (ByVal hWnd As Long, ByVal nVal As Long, _
                                                             ByVal dwValue As Long) As Long
    Private Declare Function GetClassLongA Lib "user32.dll" (ByVal hWnd As Long, ByVal nVal As Long) As Long
     
    Sub AddShadowToForm(ByVal hWnd As Long)
      Call SetClassLongA(hWnd, GCL_STYLE, GetClassLongA(hWnd, GCL_STYLE) Or CS_DROPSHADOW)
    End Sub
     
    Private Sub Form_Load()
      Call AddShadowToForm(Me.hWnd)
    End Sub


В FAQ? ;)]]> ALXR Visual Basic: Общие вопросы