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

VisualBasic产生渐层的Form背景

2019-11-18 17:31:22

字体：大中小

来源：转载

供稿：网友

在Form_Load中加入以下程序码

SubForm_Load()
Form1.AutoRedraw=True
'使Form物件的自动重绘有效
Form1.DrawStyle=6
'直线的样式为内实线(6-vbInsideSolid)
Form1.DrawMode=13
'copyPen-由ForeColor属性指定的颜色。(13-vbCopyPen)
Form1.DrawWidth=2
'输出的线宽为2像素(Pixel)

'为绘图或列印建立一自订的座标比例尺
'图形像素为显示器或印表机解析度的最小单位
Form1.ScaleMode=3
'设定物件座标的量测单位为像素(3-VbPixels)
Form1.ScaleHeight=(256*2)
'设定垂直量测单位值为512
Fori=0To255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
Y=Y 2
Nexti
'RGB(red,green,blue)
'B:使一方块用一指定方块对角的座标画出
'F:指定此方块系以用来画方块的色彩来加以填满(有B才可用F)
EndSub->

上一篇：VisualBasic移除Form右上方之『X』按钮

下一篇：SetFormName=Nothing

学习交流

索泰发布一款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

疑难解答

图片精选

网友关注