---

Hallo liebe Community!

Edit: Der xPos Wert der Funktion InputBox ist intern als Integer definiert, welcher nur bis 32767 geht....
Kann ich denn die Funktion irgendwie abändern? Kennt jemand ne andere Eingabe-Lösung in CATScript?   

Ich versuche gerade eine Input Box in der Mitte von Catia anzuzeigen.
Funktioniert auf dem Hauptbildschirm super!
Sobald ich Catia jedoch auf den zweiten Monitor verschiebe, gibt die Zeile mit XPos einen Error aus.
Irgendwelche Ideen, wie ich dieses Problem lösen/diese Funktion anders schreiben könnte?

Code:

---

Sub CATMain()
    Dim XPos As Long
    Dim YPos As Long
    XPos = CATIA.Left * 15 + (CATIA.Width * 15 / 2) - 186 * 15 'Conversion in Twips; 186 = ~Breite der MsgBox
    YPos = CATIA.Top * 15 + (CATIA.Height * 15 / 2) - 82 * 15 'Conversion in Twips; 82 = ~Höhe der MsgBox

    Dim inputboxresult
    inputboxresult = InputBox("Enter Number:", "Title", "StandardValue", XPos, YPos)
End Sub

---

Danke und beste Grüße aus Wien,
Christoph

[Diese Nachricht wurde von C.Samer am 08. Feb. 2018 editiert.]

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

---

Hi Christoph,

vielleicht hilft einer der Artikel weiter:

https://msdn.microsoft.com/en-us/library/windows/desktop/dd162827(v=vs.85).aspx
http://www.flounder.com/virtual_screen_coordinates.htm
https://visualstudiomagazine.com/articles/2009/03/02/working-with-multiple-monitors.aspx

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Also ich hab mich jetzt noch ein wenig gespielt und sehe dass der Fehler doch direkt an "InputBox" liegt.
Sie wird wenn sich Catia am zweiten Monitor befindet einfach nicht aufgerufen. XPos und YPos sollten richtig sein.

Deine Links helfen also nicht viel :/

LG Christoph

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

---

Moin,

IMHO rechnet sich das immer von der linken oberen Ecke der angeschlossenen Anzeigen, d.h. egal wo die Anwendung läuft, man muß den anderen Monitor dazurechnen.
Im VBA sind die Angaben optional, d.h. Weglassen erzeugt Erscheinen in der Mitte der zum Aufruf aktiven Anzeige.

Beispiel:
InputBox("Tipp was rein: ", "HALLO Du da", "1234", 500, 500) poppt IMMER auf dem linken Monitor 500/500 px von der oberen Ecke auf.

InputBox("Tipp was rein: ", "HALLO Du da", "1234") poppt IMMER in der Mitte der Anzeige auf, in der die aufrufende Anwendung läuft.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

---

@runkelruebe: Die InputBox wird ohne Parameter leider nicht auf der zuletzt aktiven Anzeige angezeigt, sondern auf jener, welche in Windows als Hauptanzeige definiert ist :S

Habe noch weiter probiert und habe den Fehler herausgefunden!
Der xPos Wert der Funktion InputBox ist intern als Integer definiert, welcher nur bis 32767 geht....
Kann ich denn die Funktion irgendwie abändern? Kennt jemand ne andere Eingabe-Lösung in CATScript?   

[Diese Nachricht wurde von C.Samer am 08. Feb. 2018 editiert.]

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