这个你只能用gdi
我给你发个源码你参考一下
.版本 2
.子程序 图片框变圆, , 公开, 无锯齿,支持gif动图
.参数 图片框名称, 图片框
.局部变量 矩形区域句柄, 整数型
.局部变量 原来宽度, 整数型
.局部变量 原来高度, 整数型
.局部变量 底图片框名称, 图片框
复制窗口组件 (图片框名称, 底图片框名称)
底图片框名称.宽度 = 图片框名称.宽度 + 2
底图片框名称.高度 = 图片框名称.高度 + 2
底图片框名称.左边 = 图片框名称.左边 - 1
底图片框名称.顶边 = 图片框名称.顶边 - 1
底图片框名称.可视 = 真
底图片框名称.图片 = 晨曦_GDI图片框变圆 (图片框名称)
原来宽度 = 图片框名称.宽度
原来高度 = 图片框名称.高度
控件_圆角化 (图片框名称.取窗口句柄 (), 原来宽度, 原来高度)
.子程序 GDI图片框变圆, 字节集, 公开, 无锯齿,不支持gif动图
.参数 图片框名称, 图片框
.局部变量 位图, GP位图
.局部变量 图像, GP图像
.局部变量 图形, GP图形
.局部变量 图形2, GP图形
.局部变量 图像2, GP图像
.局部变量 位图2, GP位图
.局部变量 画刷, GP纹理画刷
.局部变量 bin, 字节集
.局部变量 高, 整数型
.局部变量 宽, 整数型
Gdiplus初始化 ()
' 初始化
高 = 200
宽 = 200
图像.创建自字节集 (图片框名称.图片, 真) ' 读入图片
位图.创建自像素格式 (高, 宽)
图形.创建自图像 (位图) ' 绑定到位图,好进行导出图片
图形.画图像缩放 (图像, 0, 0, 高, 宽) ' 写入图片指定宽度高度到图形里面
图像2.创建自字节集 (位图.保存到字节集 (#图像格式_PNG)) ' 读取到图像里面,这个时候是指定宽度高度了,格式也是PNG的
画刷.创建 (图像2, #环绕模式_固定) ' 方便进行圆形图形的填充
位图2.创建自像素格式 (高, 宽)
图形2.创建自图像 (位图2)
图形2.置平滑模式 (#平滑模式_最佳质量)
图形2.填充椭圆 (画刷, 0, 0, 高, 宽) ' 填充圆
bin = 位图2.保存到字节集 (#图像格式_PNG)
位图.销毁 ()
图像.销毁 ()
图形.销毁 ()
画刷.销毁 ()
位图2.销毁 ()
图像2.销毁 ()
图形2.销毁 ()
Gdiplus关闭 ()
返回 (bin)