哦，原来是这个意思啊，那您能提供一下您使用的代码么，我从中提取一下单色的使用方法，不知道可不可以。不管可不可以，都谢谢您。

代码可以在4楼基础上修改
...
color = Picture1.Point(i, j)
r = (color And &HFF&)
Picture2.PSet (i, j), c(int(r/(256/n)))    'n是分层颜色数,c()长型数组,存放预设颜色的RGB值
 Next j
Next i
Picture2.Refresh
...

谢谢您的回答，我现在就去试一试，有问题再请教您，谢谢了。

大神您能把这张图的测试代码发给我一下么，单独的那张按您说的我做出来了，效果还不错（我新手不会贴图），但是合成的时候没效果不知道为啥，您有时间帮下忙谢谢。

可以在文本框中自定义分层数，颜色随机生成。

Option Explicit
Dim c() As Long
Private Sub Command1_Click()
Picture1.AutoSize = False
Picture2.AutoSize = False
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture1.ScaleMode = 3
Picture2.ScaleMode = 3
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)

End Sub

Private Sub Command2_Click()
GenColor
Dim i, j As Integer
Dim r, g, b As Integer
Dim color As Long
For i = 0 To Picture1.ScaleWidth
For j = 0 To Picture1.ScaleHeight
color = Picture1.Point(i, j)
r = (color And &HFF&)
Picture2.PSet (i, j), c(1 + Int(r / (256 / Val(Text1.Text))))

Next j
Next i
Picture2.Refresh

End Sub

Sub GenColor()
Dim i As Integer
For i = 1 To Val(Text1.Text)
ReDim Preserve c(i)
c(i) = RGB(Int(255 * Rnd + 1), Int(255 * Rnd + 1), Int(255 * Rnd + 1))
Next
End Sub

 

真是感激不尽，谢谢您的帮助，如果有什么我能帮到您的您@我