新手求教！关于不规则窗体的创建问题 - 编程论坛

#2

xiangyue05102016-11-17 13:59

手上无法测试，查看了一下别人的代码。应该你没有搞清楚这个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.

#3

xiangyue05102016-11-17 14:02

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

#4

肇励影2016-11-18 08:36

回复 3楼 xiangyue0510

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

#5

clyfd2022-03-04 19:16

啥领导都有啊