Dim hx, hy As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For hy = 0 To 128
For hx = 0 To 198
Dim sf As New PictureBox
sf.Size = New Size(1, 1)
sf.BackColor = CType(PictureBox1.Image, Bitmap).GetPixel(hx, hy)
sf.Left = hx
sf.Top = hy
Panel1.Controls.Add(sf) '创建窗口句柄时出错。
Next
Next
End Sub

扫描PictureBox1.Image上面的128*198范围内每点的像素颜色，存入一个临时PictureBox，然后在Panel上面绘制。
首先这样做有什么意义？
128*198个PictureBox声明，占用大量的内存，低效率，得不偿失。
至于创建窗口句柄时出错，可能是你的Panel并没有放到Form上，只是声明有。


我的Panel已经在Form中,不是声明的.

如果有一个文件，内容如下：
255255255000000000
其实是每个像素的RGB数值,
"255255255000000000"含有两个像素,一个是白色(R:255,G:255,B:255),一个是黑色(R:000,G:000,B:000)
打印到窗体，要用这种方法

还没看到那里……

lz是猫吧的居民吗？

怎么了?

我虽不是机器猫吧的长久居民，但是我有朋友在那里，小小哆你知道么？

…………

知道