Dim XRes As Integer, YRes As Integer
XRes = Screen.Width \ Screen.TwipsPerPixelX
YRes = Screen.Height \ Screen.TwipsPerPixelY
1 svar · 176 visningar · startad av der Kaiser
Finns det någon kod som tar reda på upplösningen i windows så att man kan få den i värde-form typ som x och y värde? för jag orkar inte krångla med en massa if-satser. :birp
Dim XRes As Integer, YRes As Integer
XRes = Screen.Width \ Screen.TwipsPerPixelX
YRes = Screen.Height \ Screen.TwipsPerPixelY