Visual Basic Tips

画像の鏡像と回転

ピクチャーボックス(Picture1)の内容を、鏡像(Picture2)、回転(Picture3)、鏡像＆回転(Picture4)のそれぞれ出力します。

Private Sub Form_Click()
　　'鏡像
　　Picture2.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth, Picture1.ScaleHeight
　　'回転
　　Picture3.PaintPicture Picture1.Picture, 0, Picture1.ScaleHeight, Picture1.ScaleWidth, -Picture1.ScaleHeight
　　'鏡像＆回転
　　Picture4.PaintPicture Picture1.Picture, Picture1.ScaleWidth, Picture1.ScaleHeight, -Picture1.ScaleWidth, -Picture1.ScaleHeight
End Sub


DownLoad vbtips009.lzh 3KB (VB6.0)