Public Function GetWinScrResolution() As String On Error GoTo hErr Dim intWidth As Integer Dim intHeight As Integer intWidth = Screen.Width \ Screen.TwipsPerPixelX intHeight = Screen.Height \ Screen.TwipsPerPixelY GetWinScrResolution = Str$(intWidth) + ” x” + Str$(intHeight) Exit Function hErr: Select Case MsgBox(“Error ” & Err.Number & “: ” & Err.Description & vbCrLf & _ “in GetWinScrResolution()”, [...]
Iklan Sponsor
