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

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,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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!