VB工程--实例93--图形窗体

最新推荐文章于 2023-11-14 11:52:00 发布

原创最新推荐文章于 2023-11-14 11:52:00 发布 · 875 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #图形 #function #user

VB 专栏收录该内容

74 篇文章

订阅专栏

Option Explicit

Private Sub Form_Click()
End
End Sub

Private Sub Form_Load()
        Dim h, d As Long
        Dim scrw, scrh As Long
        scrw = Me.Width / Screen.TwipsPerPixelX
        scrh = Me.Height / Screen.TwipsPerPixelY
        h = CreateEllipticRgn(0, 0, scrw, scrh)
        d = SetWindowRgn(Me.hWnd, h, True)
End Sub

Option Explicit

Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
'CreateEllipticRgn http://baike.baidu.com/view/2034860.htm
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
'SetWindowRgn http://baike.baidu.com/view/1559429.htm