Aflæse brugerens skærmopløsning ved åbning.

Placer nedenstående i et modul:

Public Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long) As Long


Der finder du X og Y-opløsning således:

X=GetSystemMetrics(0)
Y=GetSystemMetrics(1)

Kikker

Hej thomas.

Jeg har kopieret din kode i et nyt modul(se nedenfor), men der skrives invalid outside procedure i en fejlmeddelelse - har du nen kommentar

Public Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long) As Long
   
    x = GetSystemMetrics(0)
    y = GetSystemMetrics(1)

Koden jeg har kopieret, jeg har herefter kaldt den via call GetSystemMetrics
på min åbningsformular.


cuac

Public Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long) As Long


Skal stå for sig selv i et modul

    x = GetSystemMetrics(0)
    y = GetSystemMetrics(1)
skal du skrive i en procedure eller funktion. F.eks. lige inden du skifter opløsningen.


Du kan IKKE bruge call GetSystemMetrics da du derved ikke for nogle parametre hverken den ene eller den anden vej.

Ingen af Jer slutter funktionen med End Function, men jeg antager det er skrivefejl!

mugs->nej, for det er en API-funktion! Den skal ikke afsluttes.

...Den skal blot erklæres.

Hej Thomas > Efter at have fulgt din kommentar virker det bare!, jeg har ikke end function med som du så rigtigt skriver.

MVH
cuac

cuac
Send lige en der virker til mig.
oz1bua@wanadoo.dk
Vh Henrik

Er sendt Henrik

MVH
cuac