玩酷之家

 找回密码
 立即注册
查看: 3164|回复: 1

实现圆角窗体的方法代码

[复制链接]

98

主题

103

帖子

426

积分

中级会员

Rank: 3Rank: 3

积分
426
发表于 2017-10-5 14:27:28 | 显示全部楼层 |阅读模式

  1. '模块代码
  2. Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  3. Public 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

  4. Public Sub DoTransparency(TheForm As Form)
  5. Dim TempRegions(6) As Long
  6. Dim FormWidthInPixels As Long
  7. Dim FormHeightInPixels As Long
  8. Dim a
  9. FormWidthInPixels = TheForm.Width / Screen.TwipsPerPixelX
  10. FormHeightInPixels = TheForm.Height / Screen.TwipsPerPixelY
  11. a = CreateRoundRectRgn(0, 0, FormWidthInPixels, FormHeightInPixels, 24, 24)'这里的24可以修改圆角的弧度。
  12. a = SetWindowRgn(TheForm.hwnd, a, True)
  13. End Sub
复制代码


窗体调用方法:(假设要让窗体FORM1边角变圆)
DoTransparency form1
最多选择要压缩的20张 PNG图像
回复

使用道具 举报

4

主题

20

帖子

157

积分

注册会员

Rank: 2

积分
157
QQ
发表于 2019-3-19 20:21:35 | 显示全部楼层
路过,拿走了,谢谢分享。
细嗅蔷薇。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )|

GMT+8, 2020-8-4 16:16 , Processed in 1.092002 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表