再次請教VB6.0的高手大大(急)

Question

我取得了 一張圖片(picture1)的 每點rgb值
如果我現在 要把 此點的 rgb值 傳到 picture2 同一點上
使 程式讀取到最後的時候 picture1 和 picture2 的顏色會一樣~
麻煩知道的大大 解救一下
急用
謝謝各位大大~~

希望有程式 也有詳細解析~~ 謝謝~

Answer 1

Private Sub Command1_Click()
Dim X&, Y&, R%, G%, B%
'X,Y : PictureBox上的座標,R,G,B : 紅綠藍值

'設ScaleMode為像素
Picture1.ScaleMode = 3
'在PictureBox上的座標X,Y這一點上色
Picture2.PSet (X, Y), RGB(R, G, B)
End Sub
可以順便告訴我如何取得一張圖片(picture1)的 每點rgb值

2007-03-06 23:51:54 補充：
把'給砍了自己多出來的!

2007-03-06 23:52:58 補充：
把＆＃39給砍了自己多出來的!

2007-03-06 23:54:06 補充：
可以參考
http://tw.knowledge.yahoo.com/question/question?qid=1206060203814

Answer 2

Private Sub Command1_Click()
Dim X&, Y&, R%, G%, B%
Dim xx, yy As Integer
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
For xx = 0 To 100
For yy = 0 To 100
Picture2.PSet (xx, yy), Picture1.Point(xx, yy)
Next
Next
End Sub