Aktuální rozlišení obrazovky
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