请问怎么进行图片的水平翻转?

lx007

[em24]

lx007

对了,要不用控件,不用一个一个的Setpixel.
谁能帮帮忙吗?

sandy_zc_1

你当然要放弃Setpixel的想法。VB做这些事情会慢死你，除非你预处理。

用最基本的PaintPicture就可以。把源长度和宽度设为负值就行。

如：Form1中 Picture1 上绘制出 Picture2 上的图片，同时进行水平翻转：
Form1.Picture1.PaintPicture Picture2.Picture, 0, 0, Form1.Picture2.Width, Form1.Picture2.Height _
, Form1.Picture2.Width, 0, -Form1.Picture2.Width, Form1.Picture2.Height, vbSrcCopy
垂直翻转：
Form1.Picture1.PaintPicture Picture2.Picture, 0, 0, Form1.Picture2.Width, Form1.Picture2.Height _
, 0, Form1.Picture2.Height, Form1.Picture2.Width, -Form1.Picture2.Height, vbSrcCopy

lx007

OK,非常感谢~