6. Создание окна в форме эллипса

 

Описание

Многим из Вас, наверное, уже порядком поднадоели прямоугольные окна. Хочется чего-то свеженького, какой-то новизны! Что нам мешает сделать окно не прямоугольным, а, например, эллипсом? Да ничего!

Объявления

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Пример использования

Private Sub Form_Load()
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
End Sub

 

 

 

 

 

 

 

                                            ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ