Aktuální rozlišení obrazovky

Postup:

Public Function ScreenResolution() As String

   Dim iWidth as integer, iHeight as Integer

   iWidth = Screen.Width \ Screen.TwipsPerPixelX
   iHeight = Screen.Height \ Screen.TwipsPerPixelY

   ScreenResolution = iWidth & " X " & iHeight

End Function

Zpět

Autor: The Bozena