Этот код вставляем в форму:    
  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
  

 Просмотров: 11277

  Коментарии (1)
 1 
Написал(а) Holips, в 18:26 09.04.2009 
если порытся в API, то , теоретически, можно создать форму любой формы. но гемороя... ну его. идеальный вариант  - с закруглёнными краями (создайте любую форму и пхните след. код): 
 
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long 
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 
Option Compare Database 
 
Private Sub Form_Load() 
Dim ParametriRisunka As Long 
ParametriRisunka = CreateRoundRectRgn(0, 1, 219, 241, 20, 20) 
SetWindowRgn Me.hWnd, ParametriRisunka, 1 
End Sub
Добавить коментарий
Имя:
E-mail
Коментарий:

     
     
    
Код:*