---

Hallo,

ich würde gerne den scale Factor auf meinem Bildschirm während des Makroablaufs auf 1 setzen. Habe bereits eine Lösung (ZoomFactor) die allerdings abhängig von der Monitorgrösse ist (Also unbrauchbar).

Kennt noch jemand ne andere?

Schönen Dank schon mal

Gruss Niko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hast du mal ein Beispiel?

Über VB2008 ist es relativ einfach möglich die Bildschirm-Auflösung zu ermitteln.

Vielleicht hilft dir das für eine weitere Berechnung.

Grüsse Dominik

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo  ,

ein Beispiel wäre echt nicht schlecht. Aber die Bildschirmauflösung kannst du auch mit einem CATVba ganz einfach auslesen. Hierzu gibt es die API "GetDeviceCaps". Nachfolgend mal ein kleines Beispiel wie mit der API umzugehen ist:

Code:

---

Private Const HORZRES  As Long = 8&
Private Const VERTRES  As Long = 10&
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Sub CATMain()

    Dim intScreenResStr As String

    intScreenResStr = CheckResolutionFnc
    If intScreenResStr <> "" Then
        intScreenResStr = intScreenResStr & " Pixel"
    Else
        MsgBox "Die Bildschirmauflösung konnte nicht gelesen werden!", vbExclamation, "Fehler"
        Exit Sub
    End If
   
    MsgBox "Die Bildschirmaflösung ist:" + vbNewLine + vbNewLine + intScreenResStr, vbInformation, "Bildschirmauflösung"

End Sub

Public Function CheckResolutionFnc() As String

    Dim intHWndMainDeviceLng As Long
    Dim intScreenResWidthLng As Long
    Dim intScreenResHeightLng As Long

    intHWndMainDeviceLng = GetDC(0&)
    intScreenResWidthLng = GetDeviceCaps(intHWndMainDeviceLng, HORZRES)
    intScreenResHeightLng = GetDeviceCaps(intHWndMainDeviceLng, VERTRES)

    If intScreenResWidthLng <> 0 And intScreenResHeightLng <> 0 Then
        CheckResolutionFnc = CStr(intScreenResWidthLng) & " x " & CStr(intScreenResHeightLng)
    Else
        CheckResolutionFnc = ""
    End If
   
  End Function

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

BILD.jpg

Hallo,

schönen Dank schon mal für die Antworten.

Die Bildschirm Auflösung auslesen bekomm ich hin, des is nich des Problem. Hätte gerne die Funktion mit der ich den Scale Faktor (Unten Rechts im CATIA Fenster. Siehe BILD) auf 1 setzen kann, da dieser nicht nur von der Bildschirmauflösung abhängt sondern ebenfalls von der Fenstergröße des CATIA Fensters(Wenn dieses nicht im Vollbild betrieben wird).

Gruss Niko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Niko,

IMHO gibt es hier in VBA keine Schnittstelle. D.h. das ist ein ziemlich großer Programmieraufwand. Du brauchst ja dann nicht nur die Auflösung des Bildschirms sondern auch die Größe des CATIA Fensters. Das geht zwar auch über eine API (bzw. mehrere) aber es ist doch recht aufwendig 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP