杀蛇的图片:vb窗体形状怎么设计?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/01 22:46:59
我想设计VB一个圆形的窗体,怎么设计啊!???

可以这样的解决:vb6中调试通过:

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 Command1_Click()

Dim hrg As Long
hrg = CreateEllipticRgn(0, 0, 200, 200)
SetWindowRgn Me.hWnd, hrg, True

End Sub