첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

■ ImageList 클래스 : 이미지 추가하기

----------------------------------------------------------------------------------------------------

Dim pEarthPicture  As Picture

Dim pPlanePicture  As Picture

Dim pRocketPicture As Picture

 

Set pEarthPicture = LoadPicture("c:\earth.ico")

Set pPlanePicture = LoadPicture("c:\plane.ico")

Set pRocketPicture = LoadPicture("c:\rocket.ico")

 

pImageList.ListImages.Add 1, "Image1", pEarthPicture

pImageList.ListImages.Add 2, "Image2", pPlanePicture

pImageList.ListImages.Add 3, "Image3", pRocketPicture

----------------------------------------------------------------------------------------------------

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요