VB 6.0 SavePicture 방법 문제

Question

내가 비트 맵 파일에 양식에 만든 이미지 저장하려면 다음 코드를 사용하고

:

SavePicture Form1.Image, Output_Dir + Patternname + ".bmp" 
DoEvents 

이제 양식에 생성 된 이미지가 올바른 보이는 1600 픽셀 이미지는 (입니다); 그러나 위 코드를 사용하여 파일을 저장하면 이미지는 항상 1920x1200 픽셀 비트 맵으로 저장됩니다.

1920x1200은 내 화면의 현재 해상도입니다. 여기

의 형식은 이미지의 너비/높이를 설정하는 데 사용되는 코드입니다 : 양식 이미지 1600에서 올바른 보이는 이유가없는 것

Form1.ScaleMode = vbPixels 
Form1.AutoRedraw = True 
W = 1600 
H = 1200 
Form1.Width = W * Screen.TwipsPerPixelX 
Form1.Height = H * Screen.TwipsPerPixelY 
Form1.Show 

이 이해하기를, 아직 내가 저장할 때 프로그램은 별도의 추가 비트 맵 1920x1200을 만들기 위해 320X1200의 흰색 블록.

Answer 1

양식의 크기는 Form1입니다. 양식의 그림 상자의 크기를 변경해야합니다. 당신이 양식에 PictureBox 컨트롤 ("PICTURE1")를 가지고 있는지 확인하고,이 시도 :

이

Picture1.ScaleMode = vbPixels ' Set scale to pixels. 
Picture1.AutoRedraw = True ' If needed 

Picture1.Width = W ' in pixels 
Picture1.Height = H ' in pixels 

그런 다음이 함께 저장 :

이

SavePicture Picture1.Image, Output_Dir + Patternname + ".bmp"