Wie erkenne ich mein display eine Auflösung in VB6?

Ich bin mit dem folgenden code:

Private Sub Form_Load()
    ResWidth = Screen.Width \ Screen.TwipsPerPixelX
    ResHeight = Screen.Height \ Screen.TwipsPerPixelY
    ScreenRes = ResWidth & "x" & ResHeight
    MsgBox (ScreenRes)
End Sub

Und einige andere ähnliche codes, die ich habe gegoogelt für. Das problem ist, ich bekomme immer eine Meldung, die sagen, dass meine Auflösung beträgt 1200x1200, obwohl meine eigentliche Auflösung ist 1920x1200. Warum bin ich immer schlechte Ergebnisse?

Fügen Sie dem Bildschirm.width, screen.Höhe, twipsperpixelx und twipsperpixely Werte, um Ihre message-box, was Sie bekommen?
Funktioniert prefectly auf meinem system! Neugierig problem....
Ich denke, das sollte funktionieren, es sieht gut aus. Ist es etwas ungewöhnliches, über das system?
Was ist mit mehreren Monitoren?

InformationsquelleAutor Exist | 2010-08-22

vb6

4

Nicht sicher, warum das nicht funktioniert, könnte man aber Tippen Sie in der Windows-API.
```
Private Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long) As Long
```
Und dann wenn Sie Sie brauchen, die Bildschirm Breite und Höhe an, definieren Sie diese Konstanten:
```
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
```
Dann können Sie GetSystemMetrics wo Sie es brauchen. Wenn es mehr Sinn macht, fügen Sie die Deklaration und Konstanten in einem Modul (.BAS), dann stellen Sie einfach die Deklaration und Konstanten öffentlichkeit.
```
Dim width as Long, height as Long
width = GetSystemMetrics(SM_CXSCREEN)
height = GetSystemMetrics(SM_CYSCREEN)
```
GetSystemMetrics auf den Microsoft-Support

InformationsquelleAutor derekerdmann
2

Scheint es, dass es ein problem mit dem Screen-Objekt in VB6. Als pro KB253940 PRB: Fehlerhafter Screen-Objekt-Breite/- Höhe, Nachdem der Desktop skaliert Wird:

Innerhalb der IDE von Visual Basic, das Screen-Objekt meldet einen falschen Wert für die desktop-Breite, nachdem Sie die Bildschirmauflösung geändert wird. Wenn die Anwendung ausgeführt wird, außerhalb der IDE, die Width-und Height-Eigenschaften des Screen-Objekts falsche Werte zurückgeben, wenn die Auflösung geändert wird Eigenschaften von Anzeige " - Symbol in der Taskleiste.

KB empfiehlt GetDeviceCaps API-Funktion um das problem zu umgehen:
```
Private Declare Function GetDeviceCaps Lib "gdi32" _
        (ByVal hdc As Long, ByVal nIndex As Long) As Long

Private Const HORZRES = 8
Private Const VERTRES = 10

Private Sub Form_Load()
    ResWidth = GetDeviceCaps(Form1.hdc, HORZRES)
    ResHeight = GetDeviceCaps(Form1.hdc, VERTRES)
    ScreenRes = ResWidth & "x" & ResHeight
    MsgBox (ScreenRes)
End Sub
```
InformationsquelleAutor Ilya Kurnosov
0

Wenn Sie das arbeiten mit Windows Mobile, der Weg ist etwas anders. Sie müssen verwenden Sie die nächste Methode:
```
Width = (Screen.PrimaryScreen.WorkingArea.Width * 0.32)
```
In dem vorherigen Beispiel zugeordnet ist, die 32% der Bildschirm Breite zu width variable.
- 35% oder 32% ...?
- Korrigiert, Vielen Dank!! =)
InformationsquelleAutor Javier Castillo

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.