關於VB的Picture背景顏色

Question

請問若我現在Picture上已經有載入圖片了，想在Picture上再放入顏色，顏色不能完全蓋過目前所載入的圖片，就是要有玵色也要看的見以載入的圖片，這要怎麼弄呢!?

W.J.S.您好，但我還是不太了解，因為剛學VB不久，我想要的就是就像你之前有做一個水果盤程式，上面已經有圖片了，執行時還是有顏色可以跑動，我弄Label和Text都可以，但是他們都不能放圖片，所以用Picture可是弄這個，又不知道怎麼弄。

就是像跟這個一樣http://home.kimo.com.tw/janue560/game/frut.exe，這面有顏色會跑。

[e-mail] 謝謝

Answer 1

'版本VB6.0
'若你要用迴圈逐點去運算的話請參考Picture圖形20%的通透(不過其中有些倒斜線＼被知識＋吃掉,故會產生錯誤),此方式速度很慢,以下是利用API去做
'表單置1PictureBox並放入圖片,4個HScrollBar陣列HScroll1(0)~HScroll1(3),其中HScroll1(0)~HScroll1(2)調整RGB,HScroll1(3)調整透明度
'整個專案我放至以下空間(只能放7天):點我下載
Private Type BF
C As Byte
D As Byte
E As Byte
F As Byte
End Type
Private Declare Sub AlphaBlend Lib "msimg32.dll" (ByVal D&, ByVal X&, ByVal Y&, ByVal W&, ByVal H&, ByVal D1&, ByVal X1&, ByVal Y1&, ByVal W1&, ByVal H1&, ByVal B&)
Private Declare Sub RtlMoveMemory Lib "kernel32.dll" (D&, S As Any, ByVal L&)
Dim A As BF, P As PictureBox
Private Sub Form_Load()
Dim I%

Picture1.AutoRedraw = True
Picture1.ScaleMode = 3
Set P = Controls.Add("VB.PictureBox", "P")
P.AutoRedraw = True
P.ScaleMode = 3
For I = 0 To 3
HScroll1(I).Min = 0
HScroll1(I).Max = 255
Next
HScroll1(3) = 128
End Sub
Private Sub HScroll1_Change(Index As Integer)
Cover
End Sub
Private Sub HScroll1_Scroll(Index As Integer)
Cover
End Sub
Sub Cover()
Dim R&

P.BackColor = RGB(HScroll1(0), HScroll1(1), HScroll1(2))
With Picture1
.Cls
A.E = HScroll1(3)
RtlMoveMemory R, A, 4
AlphaBlend .hdc, 0, 0, .ScaleWidth, .ScaleHeight, P.hdc, 0, 0, P.ScaleWidth, P.ScaleHeight, R
.Refresh
End With
End Sub


2006-12-20 18:55:24 補充：
你是否只的是有皮卡丘的那個?若是那直接吧Pic1的圖片改色比較快,用SavePicture的方式把Pic1的圖片讀出來,用編輯軟體改改再放回去,記得大小不要改變.

2006-12-21 23:28:19 補充：
你說的這個frut.exe應該沒你想的那麼複雜,每種圖片做2張,1張是原圖(底色是粉紅色)另1張是亮燈的圖(底色紅色),再由Timer去決定要顯示何種圖片而已,希望你懂我的意思

2006-12-21 23:29:54 補充：
把EMail給我我做個陽春的寄給你

2006-12-22 16:17:08 補充：
已經寄了,主旨>RE:關於VB的Picture背景顏色