Tja..

Jag har gjort ett program som kollar upp vad man har för system. Men det duger inte. Det skall vara med all info som går att få om grafiken. Detta är den viktigaste informationen vi behöver.
Har kollat lite API och så men inte hittat något.
Informationen jag vill åt som är viktigast är grafikkort, version av drivrutiner och OpenGL sammt version av DirectX och skärmupplösning.
Tacksam för lite hjälp hur jag skall lösa detta.. Förklara gärna lätt. Har inte hållt på så länge med VB

För att få reda skärmupplösningen så kan du använda dig av följande kod och sedan lägga till olika upplösningar.


Lägg det här i General Declarations.

<code>
Public Function CheckRez(pixelWidth As Long, pixelHeight As Long) As Boolean

Dim lngTwipsX As Long
Dim lngTwipsY As Long

' Omvandla Twips till Pixel.
lngTwipsX = pixelWidth * 15
lngTwipsY = pixelHeight * 15

' Kolla mot medföljande variabler.
If lngTwipsX <> Screen.Width Then
CheckRez = False
Else
If lngTwipsY <> Screen.Height Then
CheckRez = False
Else
CheckRez = True
End If
End If

End Function
</code>

Och följande kan ligga under Form_Load eller en knapp.

<code>
If CheckRez(640, 480) = False Then
MsgBox "Du har inte 640 x 480."
Else
MsgBox "Du har 640 x 480."
End If
</code>

Vill du har ett utförligare exempel är det bara att kontakta mig.

/Hjorten

Är det inte bättre att få måtten på skärmen direkt som i mitt exempel:

<code>
Public Sub GetScreenDimension(pixelWidth As Long, pixelHeight As Long)
pixelWidth = Screen.Width / 15
pixelHeight = Screen.Height / 15
End Sub

Private Sub Command1_Click()
Dim h As Long
Dim w As Long

Call GetScreenDimension(h, w)

MsgBox "Du har " & h & " x " & w & "."

End Sub
</code>

Kan vara lite mer lämpligt att använda sig av Screen.TwipsPerPixelX och Screen.TwipsPerPixelY än att använda 15.

Ex.

Public Sub GetScreenDimension(pixelWidth As Long, pixelHeight As Long)
pixelWidth = Screen.Width / Screen.TwipsPerPixelX
pixelHeight = Screen.Height / Screen.TwipsPerPixelY
End Sub

Det har du rätt i.
/Ivar