给个小例子如改变c:\abc.ico Picture1.Picture = LoadPicture("c:\abc.ICO") Picture1.AutoSize = True For X = 0 To Picture1.Width For Y = 0 To Picture1.Height If Picture1.Point(X, Y) = RGB(192,192,192) Then Picture1.PSet (X, Y), RGB(212, 208, 200) End If Next Y Next X
Picture1.Picture = LoadPicture("c:\abc.ICO")
Picture1.AutoSize = True
For X = 0 To Picture1.Width
For Y = 0 To Picture1.Height
If Picture1.Point(X, Y) = RGB(192,192,192) Then
Picture1.PSet (X, Y), RGB(212, 208, 200)
End If
Next Y
Next X