大神们，你们看看，为什么我的代码只能创建只有一个圆角矩形的窗体啊？

[此贴子已经被作者于2016-11-17 13:03编辑过]

手上无法测试，查看了一下别人的代码。应该你没有搞清楚这个API函数的输入参数的要求

Private Sub Form_Load()
Dim fwidth As Long, fheight As Long
Dim rval As Long, nhwnd As Long
fwidth = Me.Width / Screen.TwipsPerPixelX
fheight = Me.Height / Screen.TwipsPerPixelY
'Create Round Rectangular Region
nhwnd = CreateRoundRectRgn(0, 0, fwidth - 25, fheight - 25, fwidth - 50, fheight - 50)

关键在这两句
fwidth = Me.Width / Screen.TwipsPerPixelX
fheight = Me.Height / Screen.TwipsPerPixelY
或者去看官方的帮助，注意in device units
https://msdn.

话说回来，既然是新手，为啥老是挑战这么多有难度的东西呢？
如果不是项目逼着没法子的话，我建议还是按部就班的学习，不要着急。

没有办法，因为我的领导要求我用到这些东西。这是必须的。

啥领导都有啊