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

■ 화면 픽셀 크기 구하기

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

Public Function GetScreenWidth() As Integer

 

    GetScreenWidth = Screen.Width / Screen.TwipsPerPixelX ' 화면 너비(트윕 단위) / 픽셀당 트윕 수 X

 

End Function

 

Public Function GetScreenHeight() As Integer

 

    GetScreenHeight = Screen.Height / Screen.TwipsPerPixelY ' 화면 높이(트윕 단위) / 픽셀당 트윕 수 Y

 

End Function

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

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요