首页 > 学院 > 开发设计 > 正文

VisualBasic可以产生四角形以外其他形状的Form

2019-11-18 17:31:25

字体：大中小

来源：转载

供稿：网友

这个问题，您一定无法想像有多容易，您可以产生任何形状的Form，但必须借助CreateEllipticRgn及SetWindowRgn二个API，例如：

PRivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong

PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong

PrivateSubForm_Load()
DimlReturnAsLong
Me.Show
lReturn=SetWindowRgn(hWnd,CreateEllipticRgn(10,10,340,150),True)
EndSub

执行结果图片

CreateEllipticRgn之四个参数说明如下：
X1：椭圆中心点之X轴位置，但以Form的实№边界为限。
Y1：椭圆中心点之Y轴位置，但以Form的实№边界为限。
X2：椭圆长边的长度
Y2：椭圆短边的长度的->

上一篇：VisualBasic让一个Form出现在另一个非MDIForm的Form中

下一篇：MDIForm可否跟一般的表单一样设定背景颜色(BackColor)

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

荣耀总裁赵明乌镇演讲：荣耀首款5G手机V30下月发布

2019-10-23 09:17:05

搜狐张朝阳：回归媒体是搜狐重新崛起的关键

2019-10-21 09:20:02

华为轮值董事长郭平：虚拟技术创造现实价值

2019-10-21 09:00:12

滴滴英文服务上线两周年用户已超200万

2019-09-26 08:57:12

华为推出全球至快AI训练集群Atlas900

2019-09-25 08:46:36

马斯克：特斯拉正组建中国技术团队

2019-09-25 08:15:43

疑难解答

图片精选

网友关注