tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルPicture2.の鏡像が保存できない。
記事No12951
投稿日: 2008/08/23(Sat) 17:07
投稿者Do_Shirouto
いつも教えて頂き有難う御座います。
また教えて頂きたいのですが、
ここのサイトまたインターネット検索を参考にして、
下記のようなコードを実行した結果。
Fileは出来るのですが、画像がありません。
どこが悪いのかご指導のほど宜しくお願いいたします。
'----------------------------------------------------------
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
'----------------------------------------------------------

[ツリー表示へ]
タイトルRe: Picture2.の鏡像が保存できない。
記事No12952
投稿日: 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
> '----------------------------------------------------------

[ツリー表示へ]
タイトルRe^2: Picture2.の鏡像が保存できない。
記事No12953
投稿日: 2008/08/23(Sat) 17:38
投稿者花ちゃん
Picture2 コントロールの AutoRedraw  プロパティ を True に設定しておいて
下さい。

[ツリー表示へ]
タイトルRe^3: Picture2.の鏡像が保存できない。
記事No12954
投稿日: 2008/08/24(Sun) 08:50
投稿者Do_Shirouto
>  Picture2 コントロールの AutoRedraw  プロパティ を True に設定しておいて
> 下さい。
花ちゃんさん有難う御座いました。
画像サイズが、元サイズより小さいですが、
この事は今から勉強してみます。
有難う御座いました。

[ツリー表示へ]
タイトルRe^4: Picture2.の鏡像が保存できない。
記事No12955
投稿日: 2008/08/24(Sun) 11:15
投稿者花ちゃん
> 画像サイズが、元サイズより小さいですが、

.ScaleMode = vbPixels (統一)になっていますか?

[ツリー表示へ]
タイトルRe^5: Picture2.の鏡像が保存できない。
記事No12961
投稿日: 2008/08/25(Mon) 09:39
投稿者Do_Shirouto
> > 画像サイズが、元サイズより小さいですが、
>
> .ScaleMode = vbPixels (統一)になっていますか?
花ちゃんさん有難う御座いました。
おかげさまで、思い通り出来上がりました。
有難う御座いました。

[ツリー表示へ]