Question

vb 怎么样能让窗体的边变成圆的

就是把窗体的四个角都变成圆形的效果，窗体图大概象下图：
象红色部份哪样的窗体，我要VB6代码。

Answer 1

先创建一个圆角矩形，然后把窗口的区域设置成该矩形
代码如下

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 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 Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Form_Load()
Dim Rec As RECT, hRgn As Long
GetWindowRect Me.hWnd, Rec
hRgn = CreateRoundRectRgn(0, 0, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top, 50, 50) '这里的两个50是分别用来设置圆角的宽和高的
SetWindowRgn Me.hWnd, hRgn, True
End Sub

Answer 2

调用API

Answer 3

创建椭圆形的窗体
API函数
http://hi.baidu.com/gamevip/blog/item/cfe57eec955f7bd02e2e21c1.html