タイトル : Re: Picture2.の鏡像が保存できない。 投稿日 : 2008/08/23(Sat) 17:28 投稿者 : Do_Shirouto
> 申し訳御座いません。 コピペしたので、改行を忘れてしまいました。 また修正しようと試みましたが、 エラーで出来ませんでした > '---------------------------------------------------------- > Private Sub Command1_Click() > CommonDialog1.ShowOpen > Set Picture1.Picture = LoadPicture(CommonDialog1.FileName) > End Sub > '---------------------------------------------------------- > Private Sub Command2_Click() > Picture2.AutoRedraw = True > ' 鏡像を得る > Picture2.PaintPicture Picture1.Picture, Picture1.ScaleWidth, _ 0, -Picture1.ScaleWidth, Picture1.ScaleHeight > '鏡像は表示されます。 > End Sub > '---------------------------------------------------------- > Private Sub Command3_Click() > CommonDialog2.ShowSave > SavePicture Picture2.Image, CommonDialog2.FileName > 'Fileは出来るのですが、画像がありません。 > End Sub > '---------------------------------------------------------- |