Question

用vs2005怎样做一个圆形的窗体？

椭圆也可以，只要不是正方形就可以了

Answer 1

创建圆角无边框窗体 代码放窗体中
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Integer, ByVal Y1 _
As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal x3 As Integer, ByVal y3 As _
Integer) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject 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()
hround = CreateRoundRectRgn(0, 0, ScaleX(Form1.ScaleWidth, vbTwips, vbPixels), _
ScaleY(Form1.ScaleHeight, vbTwips, vbPixels), 20, 20)'调整后面的20,20(代表圆角半径)便可以出椭圆或圆型
SetWindowRgn Me.hwnd, hround, True
DeleteObject hround
End Sub