VB编程实现图像的漂亮效果

　　参数表-----------------------------------------------------

　　Angle 光照倾角，取值0到90之间，以角度为单位

　　WidthOfArea 光照区宽度，取值大于1的整数，以像素为单位

　　Speed 光照区运动速度，取值大于1的整数

　　EnhanceRatio 光照强度参数，取值大于1的整数

　　-----------------------------------------------------

　　好，原理就这么多，现在我们开始动手实现吧!打开VB6.0，选择新建标准EXE工程，在主窗口form1中绘制下表中所列控件并设置窗体和各控件的属性。

　　控件 属性 设置

　　Form1 Name Form1

　　ScaleMode 3-pixel

　　PictureBox Name PicDest

　　ScaleMode 3-pixel

　　Picture 背景图

　　PictureBox Name PicSource

　　ScaleMode 3-pixel

　　Picture 主体图

　　Label Name LblA

　　Caption 角度

　　Textbox Name TxtA

　　Text 30

　　Label Name LblW

　　Caption 宽度

　　Textbox Name TxtW

　　Text 15

　　Label Name LblE

　　Caption 强度

　　Textbox Name TxtE

　　Text 15

　　Label Name LblS

　　Caption 速度

　　Textbox Name TxtS

　　Text 1

　　CommandButton Name Cmd1

　　Caption 开始特效

　　生成最后的窗体