Få fat i en brugers skærm opløsning

Det kræver et par linier kode. Se f.eks. her

http://www.peterssoftware.com/c_scrres.htm

Nåh ja, så har MS selvfølgelig(?) en knowledgebase-artikel om præcis det samme:

http://support.microsoft.com/?kbid=210106

Hov jeg kom vist lige til at blande kategorierne sammen. Kode-eksemplerne er måske så generelle at de kan anvendes alligevel.

Ellers kan du finde noget konkret Excel her:

http://www.excel-center.de/excel/handbuch.php#Bildschirmauflösung

Nedenstående virker i min gamle 97'er.

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10
Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function

Sub GetScreenSize()
Debug.Print ScreenResolution()
End Sub

ok