Monitor Resolution Through API

There is a simple way to get Monitor resolutions through a WinAPIcall. Declare this in a module:

 Declare Function GetsystemMetrics Lib "User" (ByVal _        nIndex As Integer) As Integer

And make a call to this API in Form_Load or Form_Resize event:

 Sub Form_Resize() dim xRes as integerdim yRes as integerxRes = GetsystemMetrics(0)yRes = GetsystemMetrics(1)If xRes < 1024 and yRes < 768 Then                ' Write your control resize                 ' and reposition code hereElse                Exit SubEnd If
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: