form1.frm

来自「vb电子书籍」· FRM 代码 · 共 47 行

   VERSION 5.00
   Begin VB.Form Form1
      BackColor       =   &H80000000&
      Caption         =   "椭圆窗体"
      ClientHeight    =   3330
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   4860
      FillColor       =   &H00FF0000&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      Picture         =   "Form1.frx":000C
      ScaleHeight     =   3330
      ScaleWidth      =   4860
      StartUpPosition =   2  '屏幕中心
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
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

'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    Dim rwnd, x2, y2
    x2 = ScaleX(Me.Width, vbTwips, vbPixels)
    y2 = ScaleY(Me.Height, vbTwips, vbPixels)
    
    SetWindowRgn Me.hWnd, CreateEllipticRgn(0, 20, x2, y2), True
End Sub