用VB編程實現圖像的熠熠生輝效果

領測軟件測試網 　一道炫目的閃光在圖像上從左至右徐徐掠過，相信如果把這樣的特效應用到程序的界面上一定能為你的程序增色不少。這樣的特效到底是怎樣實現的呢？讓我們一起來分析一下，這是本特效在某一瞬間的截圖，可以看出沿著一條傾斜的掃描線，它周圍的象素都按照近強遠弱（距掃描線）的規律增強亮度（當然，掃描線并不顯示出來，它只是一個抽象的概念，以方便我們的編程工作）。當掃描線從圖像最左端平滑地移動到圖像最右端的時候，由于視覺暫留作用，看起來就會有熠熠生輝的效果。那么怎樣加強像素的亮度呢？可不能直接增大像素的顏色值，因為像素的顏色值是一個長整形數值，使用4個字節表示，最高位的字節的值為0，其它3個字節依次是B、G、R值，所以要加強像素的亮度，就要分別增加B、G、R值的大小。由于這是個動態特效，靜態圖片很難表達清楚，讀者可先運行一下代碼以幫助理解。

 

　　為了使本特效更靈活、更實用，筆者定義了幾個參數，可以通過參數對特效做調整以達到滿意的效果。

　　參數表-----------------------------------------------------

　　Angle         光照傾角，取值0到90之間，以角度為單位

　　WidthOfArea   光照區寬度，取值大于1的整數，以像素為單位

　　Speed         光照區運動速度，取值大于1的整數

　　EnhanceRatio  光照強度參數，取值大于1的整數

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

控件	屬性	設置
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	開始特效

 　　生成最后的窗體。

　　在form1的代碼編輯窗口中添加如下代碼

Option Explicit

End Sub

Private Function ExtractR(Col As Long) As Byte

延伸閱讀

文章來源于領測軟件測試網 http://www.kjueaiud.com/