Как заставить окно отбрасывать тень?

[grindars]

Как миранда, например?

[Andrey Fedorov]

http://vbaccelerator.com/home/VB/Code/Libraries/Graphics_and_GDI/Drop_Shadows/article.asp

[grindars]

А по-русски ничего нет?

[grindars]

Вроде разобрался. Спасибо.

[Andrey Fedorov]

А что-там по русски-то надо - там даже пример есть.

Я сам английский знаю плохо, но не настолько же - это ведь не китайский, в конце-концов...

[grindars]

Пример нивкакую не работает! dll скачал, установил, зарегал, не работает! Загружаю в VB, при запуске орет на строке:

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

Private Sub Attach()
   Detach
   On Error Resume Next
   m_hWndAttach = m_oShadow.Parent.hwnd
   If Not (Err.Number = 0) Then
      m_hWndAttach = m_oShadow.hwnd
   End If
   On Error GoTo 0
   AttachMessage Me, m_hWndAttach, WM_DESTROY ' <--
   AttachMessage Me, m_hWndAttach, WM_MOVING
   AttachMessage Me, m_hWndAttach, WM_SIZING
   AttachMessage Me, m_hWndAttach, WM_SIZE
End Sub

Если закоментровать будет останавливатся на следующей, и так для всех вызовов AttachMessage и DetachMessage. Ошибка такая:

Run-Time error '429':

ActiveX component can't create object

[grindars]

Зарегистрировал повторно - все нормально заработало!

[Andrey Fedorov]

Вообще-то все прекрасно работает - только что попробовал.

Что-то ты не то регистрировал, похоже.

[GB826]

можно еще фонариком на экран посветить...