Visual Basic FAQ

Как можно изменить размер формы?

Option Explicit

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 Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As Koor, _
    ByVal nCount As Long, ByValnPolyFillMode As Long) As Long
Private Type Koor
   X As Long
   Y As Long
End Type

Private Sub Form_Load()
Dim MakeCircle As String
MakeCircle = CreateEllipticRgn(100 / Screen.TwipsPerPixelX, _
     100 / Screen.TwipsPerPixelY, 1400 / Screen.TwipsPerPixelX, _
     400 / Screen.TwipsPerPixelY)
Call SetWindowRgn(Me.hWnd, MakeCircle, True)
End Sub

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