VisualBasic产生渐层的Form背景

　2006-02-27 21:10:04　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鎼痪褔鏌曟繝蹇曠窗闁煎壊浜滈—鍐偓锝庡墮娴犙勭箾閸喎鐏ユい鏇樺劦椤㈡瑩鎮℃惔銇帮拷

核心提示：在Form_Load中加入以下程序码SubForm_Load()Form1.AutoRedraw=True'使Form物件的自动重绘有效Form1.DrawStyle=6'直线的样式为内实线(6-vbInsideSolid)Form1.DrawMode=13'copyPen-由ForeColor

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