VB圆角窗体最大化问题

Question

新建一个工程，添加一个按钮，加入如下代码：
'然后声明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, 50, 50) '调用子过程
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问：为什么窗体无法最大化，如何解决？VB圆角窗体，VB最大化

Answer 1

程序启动时，你在 Form_Activate() 事件中调用了：　Sub rgnform()
在这里面，有 SetWindowRgn( ) ，那儿创建的 CreateRoundRectRgn( ) 就已经限制了窗口剪切区大小了。你在 窗口大小改变时，又没做相应的调整，当然看起来是没有“最大化”了。
但实际上是已经“最大化”了的。
你可以在系统菜单上（点窗口左上角的图标，或在标题栏、任务栏点鼠标右键），看到“最大化”是灰的，“还原”可用。其实不仅是没有“最大化”时有问题。
你拖动边框把窗口宽度减小，可以看到右上和右下的圆角会消失；
　　把窗口高度减小，下方两边的圆角会消失。
而增加窗口 宽度／高度 后，右边／下边 的边框无法调整窗口尺寸。要解决，可能只有在 Form_Resize() 事件中，重新计算并设置窗口剪切区。

Answer 2

用 API的 Path 函数处理
画图形
取Path
转RGN
设置并根据RGN绘制窗体。