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


У нас один комментарий на запись “Как сделать форму с закругленными краями?”

Почему бы Вам не высказать свое мнение! Позвольте нам узнать, что Вы думаете...

  1. 1 On 02.05.2009, Нойл said:

    Чуть-чуть подредактировал в числах-работает!

Оставить комментарий

Я не робот.


оказание бухгалтерских услуг найти новости на форуме москва .