椭圆窗体.frm

来自「Windows API函数,希望大伙有用哦」· FRM 代码 · 共 32 行

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   6315
   ClientLeft      =   180
   ClientTop       =   390
   ClientWidth     =   8745
   LinkTopic       =   "Form1"
   Picture         =   "椭圆窗体.frx":0000
   ScaleHeight     =   6315
   ScaleWidth      =   8745
   ShowInTaskbar   =   0   'False
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 Boolean) As Long
Private Sub Form_Load()
    Dim mRGN As Long
    mRGN = CreateEllipticRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY)
    SetWindowRgn Me.hWnd, mRGN, True
End Sub
Private Sub Form_Click()
    Unload Me
End Sub