Skærmopløsning

Hej Puppet

Prøv at tilføje en SysInfoControl til dit projekt

Private Sub Command1_Click()
If SysInfo.WorkAreaWidth > 12000 Then
    MsgBox "Opløsningen er større end 800*600"
Else
    MsgBox "Opløsningen er mindre end 800*600"
End If
End Sub

Prøver det lige engang, hvis det virker, er pointene dine.

Hvordan er det nu lige dimensioneringen/initialiseringen af et SysInfoObject ser ud?

SysInfo Control, er det ikke kun et Visual Basic objekt? Er det også et VBA objekt???

Jo, undskyld.
Jeg var ikke lige opmærksom på, at du havde skrevet VBA.
Jeg ved desværre ikke hvordan det virker i VBA

vh. Søren

Ok, jeg afventer og ser om der er andre derude der kan svare på spørgsmålet.

Her er hvad du kan gøre (og det virker også i VBA).

Du kan kalde API-funktionen GetSystemMetrics der findes i dit user32.dll i sit windows system-bibliotek.

Optag en macro, og indsæt nedenstående:

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

Sub VisOpløsning()
  MsgBox "Opløsning er lodret" & Chr(13) & _
        "Lodret : " & GetSystemMetrics(1) & Chr(13) & _
        "Vandret : " & GetSystemMetrics(0)
End Sub

Kør macroen VisOpløsning - det virker...

/Martin

Øhh - MsgBos'en skulle nok hedde

  MsgBox "Opløsning er som følger..." & Chr(13) & _
        "Lodret : " & GetSystemMetrics(1) & Chr(13) & _
        "Vandret : " & GetSystemMetrics(0)

En lille skønhedsfejl - der stod "lodret" 2 gange i den tidligere MsgBox.

Hej.

Hvis screen.width findes i VBA, så giver den svaret i twips.

M.v.h.  Jørn

Man kunne jo lave en usynlig form der er åben når progget loader, hvor der er en SysInfo og så lader den være maximeret, uanset opløsningen og så hente infoen ind i den form hvor man skal arbejde med det....noget ala......

frmOploesning.SysInfo1.WorkAreaHeight
frmOploesning.SysInfo1.WorkAreaWidth

Hvis den form er maximeret må det jo give skærmopløsningen......

Jaja ved godt det er en lidt dummymetode.....
Tubber

Ang. joern's svar, så findes screen.width IKKE i VBA (jeg kan ikke få kommandoen til at virke, i hvert fald)

Og ang. det meget kreative svar :o) fra tubber, så vil den give forkert "skærm"-højde hvis procenlinien altid er synlig, da procesliniens højde bliver fraregnet den usynlige forms højde (eller bredde hvis man har proceslinien til at stå lodret). Det samme gælder hvis der er andre bjælker, der er permanent synlige, f.eks. en lotus office-bjælke.

Jeg synes selv at "min" løsning er meget enkel - erklær en funktion (blot een linie), og find skærmhøjde ved at kalde GetSystemMetrics(nr), hvor nr=0 er bredde og nr=1 er højde. Svaret kommer i pixels.

/Martin

Hov SysInfo1.WorkAreaWidth tager breden af skærmen
og SysInfo1.WorkAreaHeight teger højden.....
Har nemlig brugt det til at finde midten, så min applikation altid står i midten......

koden ser ud som følger :
'variables for window position

Dim varX1 As Integer
Dim varX2 As Integer
Dim varY1 As Integer
Dim varY2 As Integer
Dim varX3 As Integer
Dim varX4 As Integer
Dim varY3 As Integer
Dim varY4 As Integer

'Function declaretion for set window position

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

'Constants for window position

Const conHwndTopmost = -1
Const conHwndNoTopmost = -2
Const conSwpNoActivate = &H10
Const conSwpShowWindow = &H40

'Sets variables for windowposition on screen
'Using SysInfo to get resolution and screen size

varX1 = ((SysInfo1.WorkAreaWidth / 15) / 2) - 200
varY1 = ((SysInfo1.WorkAreaHeight / 15) / 2) - 150
varX2 = 400
varY2 = 300

'Sets window position

SetWindowPos hwnd, conHwndTopmost, varX1, varY1, varX2, varY2, _
        conSwpNoActivate Or conSwpShowWindow

'Topmost er Alwayes on top, den kan bare ændres til NoTopmost

Tubber

>> Tubber
Du, Tubber. Det var jo det jeg foreslog som det første svar til dette indlæg. Hvordan får du SysInfo lagt ind i VBA.
Det kan nemlig hverken Pubbetmaster eller jeg

vh. Søren

Højreklikke ude i venstre side der hvor de forskellige kontroller er, der skal du vælge components og under det faneblad der hedder "Controls" der skal du hakke et flueben af i "Microsoft SysInfo Control 6.0" og der kommer en fin lille kontrol du kan tilføje din aplikation.....

Tubber

Har lige læst det hele igennem igen, og jeg havde heller ikke lige set det der vbA, så jeg er ikke sikker på det virker.....

>> Martin Moth:
Dit API kald ser ret fornuftigt ud :O)) Tror også din løsning er den bedste....

Takker for de mange gode svar, det blev dog Martin der løb af med pointene

Hov lige en ting.....hvad er VBA ?

>>Tubber
VBA er Visual Basic for Application. ALtså det scriptsprog, der bruges sammen med Word, Excel, PowerPoint osv., i Officepakken

vh. Søren

Takker onlinepc :O)
Så ved jeg godt hvad det er hehe....
kendte bare ikke lige VBA.....