13
Февраль
2009
Как сделать форму с закругленными краями?
Как сделать форму с закругленными краями?
Поиграйте с цифрами, можно добиться различных результатов.
Option Explicit Private Declare Function CreateRoundRectRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long, _ ByVal X3 As Long, ByVal Y3 As Long) As Long Private Declare Function SetWindowRgn _ Lib "user32" (ByVal hwnd As Long, _ ByVal hRgn As Long, _ ByVal bRedraw As Long) As Long Private Declare Function CreatePolygonRgn _ Lib "gdi32" (lpPoint As Koor, _ ByVal nCount As Long, _ ByVal nPolyFillMode As Long) As Long Private Type Koor x As Long y As Long End Type Private Sub Form_Load() Dim MakeRegion As Long MakeRegion = CreateRoundRectRgn(0 / Screen.TwipsPerPixelX, _ 0 / Screen.TwipsPerPixelY, 2000 / Screen.TwipsPerPixelX, _ 2000 / Screen.TwipsPerPixelY, 50, 50) Call SetWindowRgn(Me.hwnd, MakeRegion, True) End Sub