DrawImage 메서드 |
이미지에 다른 이미지를 합성합니다.
objImage.DrawImage(Image, X, Y, Alpha)
objImage
Required. Image 오브젝트
Image
Image object. 합성할 이미지 오브젝트를 지정합니다.
X
Long. 합성할 이미지를 출력할 가로 위치(픽셀)를 지정합니다.
Y
Long. 합성할 이미지를 출력할 세로 위치(픽셀)를 지정합니다.
Alpha
Long. 합성 강도(0에서 255 사이 값)를 지정합니다. 0은 완전 투명으로 이미지가 출력되지 않으며 255는 완전 불투명으로 원본 이미지가 그대로 출력됩니다.
두 이미지를 합성하기 위해서는 두 개의 Image 오브젝트에 각각의 이미지 데이터를 로딩한 후 DrawImage 메서드를 호출합니다. 합성할 이미지가 바탕 이미지 영역을 벗어날 경우 자동으로 잘려 집니다. Alpha를 조절해 바탕 이미지와 합성할 이미지를 블렌딩할 수 있습니다. 예를 들어 128을 지정할 경우 바탕 이미지와 합성할 이미지가 반반씩 섞여서 보여집니다.
Dim Image, Status, SubImage Set Image = Server.CreateObject("TABSUpload4.Image") Status = Image.Load("C:\Images\sample1.jpg") If Status = Ok Then Set SubImage = Server.CreateObject("TABSUpload4.Image") Status = SubImage.Load("C:\Images\logo.jpg") If Status = Ok Then Image.DrawImage SubImage, 100, 100, 255 SubImage.Close End If Set SubImage = Nothing Image.Save "C:\Images\blend.jpg", 100, True Image.Close Else Response.Write "이미지 파일을 열 수 없습니다. 오류 코드: " & Status End If