Visual Basic FAQ

Как сделать форму с закругленными краями?
Поиграйте с цифрами, можно добиться различных результатов.

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

Запись опубликована on 13.02.2009 at 9:00 и размещена в рубрике: Формы. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.