画面の更新？ (ID:106955)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub Form_Load() With Picture1 .Picture = LoadPicture(FILE_PATH) .AutoRedraw = True .AutoSize = True .ScaleMode = 3 End With With Picture2 .Width = Picture1.Width .Height = Picture1.Height End With End Sub Private Sub Command1_Click() With Picture2 .Width = Picture1.Width * 2 .Height = Picture1.Height * 2 End With StretchBlt Picture2.hdc, 0, 0, Picture2.Width, Picture2.Height, _ Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, SRCCOPY End Sub APIは宣言済み picture2の画像がちゃんと表示されません このような状況の場合どのように対処すればいいのか私にはさっぱりわかりません。 ぜひ対処方法をご教授ください。