vb创建圆角的form

Question

如题所述

Answer 1

该窗体是个矩形,但是四个角都是切圆的,实现代码如下:
'首先我们先创建一个窗体,并将窗体的BorderStyle属性设为0
'然后声明API函数，如下：
Private Declare Function SetWindowRgn Lib "USER32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) 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 DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
'我们先来了解一下这几个函数
'函数CreateRoundRectRgn用于创建一个圆角矩形，该矩形由X1，Y1-X2，Y2确定，
'并由X3，Y3确定的椭圆描述圆角弧度
'CreateRoundRectRgn参数 类型及说明
'X1,Y1 Long，矩形左上角的X，Y坐标
'X2,Y2 Long，矩形右下角的X，Y坐标
'X3 Long，圆角椭圆的宽。其范围从0（没有圆角）到矩形宽（全圆）
'Y3 Long，圆角椭圆的高。其范围从0（没有圆角）到矩形高（全圆）
'SetWindowRgn用于将CreateRoundRectRgn创建的圆角区域赋给窗体
'DeleteObject用于将CreateRoundRectRgn创建的区域删除，这是必要的，否则不必要的占用电脑内存
'接下来声明一个全局变量,用来获得区域句柄，如下：
Dim outrgn As Long
'然后分别在窗体Activate()事件和Unload事件中输入以下代码
Private Sub Form_Activate()
Call rgnform(Me, 20, 20) '调用子过程
End Sub
Private Sub Form_Unload(Cancel As Integer)
DeleteObject outrgn '将圆角区域使用的所有系统资源释放
End Sub
'接下来我们开始编写子过程
Private Sub rgnform(ByVal frmbox As Form, ByVal fw As Long, ByVal fh As Long)
Dim w As Long, h As Long
w = frmbox.ScaleX(frmbox.Width, vbTwips, vbPixels)
h = frmbox.ScaleY(frmbox.Height, vbTwips, vbPixels)
outrgn = CreateRoundRectRgn(0, 0, w, h, fw, fh)
Call SetWindowRgn(frmbox.hWnd, outrgn, True)
End Sub
'好了，程序可以直接运行了，看看效果如何，如果把Call rgnform(Me, 20, 20)中
'的20改为50又会怎样呢？
'60呢？100呢？
'所以通过改变参数fw和fh的值就可以实现圆角窗体了。

Answer 2

给你上传一个自制圆角窗体的例子，

源代码下载：http://files.7lx.com/data/2010-09/2010september26th94900_yuan_form.rar

Answer 3

'给你个简单例子吧!希望对人有帮助!以下,
Private Declare Function CreateEllipticRgn Lib "gdi32" _
( _
ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long _
) As Long
'声明创建椭圆形区域的API函数
Private Declare Function CreateRectRgn Lib "gdi32" _
( _
ByVal X1 As Long, ByVal Y1 As Long, _
ByVal X2 As Long, ByVal Y2 As Long _
) As Long
'声明创建矩形区域的API函数
'该函数将用来将窗口恢复为矩形

Private Declare Function SetWindowRgn Lib "user32" _
( _
ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean _
) As Long
'声明设置窗口形状的API函数
Dim hRgnC As Long
Dim hRgnR As Long
'声明变量用来存储椭圆形区域和矩形区域的句柄

Private Sub Form_Click()
'hRgnC = CreateEllipticRgn(10, 10, 200, 200)
'hRgnC = CreateEllipticRgn(0, 0, 150, 200)
hRgnC = CreateEllipticRgn(20, 0, 500, 500)
'创建椭圆形区域
SetWindowRgn Me.hWnd, hRgnC, True
'设置窗口为椭圆形
End Sub

Private Sub Form_DblClick()
hRgnR = CreateRectRgn(0, 0, Me.Width, Me.Height)
'创建矩形区域
SetWindowRgn Me.hWnd, hRgnR, True
'设置窗口为矩形
End Sub

Private Sub Form_Unload(Cancel As Integer)
If hRgnR <> 0 Then DeleteObject hRgnR
If hRgnC <> 0 Then DeleteObject hRgnC
'释放创建的图形区域
End Sub