文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

在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->

上一篇:SetFormName=Nothing

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