彗星真彩控件模块自绘漂亮的信息框

.子程序 圆角化
.参数 控件句柄, 整数型, , 要圆角化的窗口或控件句柄
.参数 宽度, 整数型, 可空, 要圆角化的窗口或控件的宽度
.参数 高度, 整数型, 可空, 要圆角化的窗口或控件的高度
.参数 圆角值, 整数型, , 要圆角化的数值
.参数 圆角值1, 整数型, , 要圆角化的数值
.局部变量 圆角句柄, 整数型

圆角句柄 ＝ CreateRoundRectRgn (0, 0, 宽度, 高度, 圆角值, 圆角值1)
SetWindowRgn (控件句柄, 圆角句柄, 真)
DeleteObject (控件句柄)

msbox.从句柄创建 (取窗口句柄 ())
msbox.置图片数据 (#图片1)
圆角化 (msbox.取窗口句柄 (), _启动窗口.宽度, _启动窗口.高度, 10, 10)
butten1.从句柄创建 (按钮1.取窗口句柄 ())
butten1.置图片数据 (#图片_关闭按钮1, #图片_关闭按钮2, #图片_关闭按钮3)