| |
 | CATIA V5 Grundkurs | Einsteiger - 5 Std. 15 Min 48 |
| |
 | KISTERS 3DViewStation: Germar Nikol - Der Visionär hinter der Erfolgsgeschichte, eine Pressemitteilung
|
Autor
|
Thema: Input Box Position (1134 / mal gelesen)
|
C.Samer Mitglied CAD Administrator

 Beiträge: 72 Registriert: 03.05.2017
|
erstellt am: 08. Feb. 2018 09:15 <-- editieren / zitieren --> Unities abgeben:         
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 |
joehz Mitglied Freiberuflicher Konstrukteur
   
 Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 08. Feb. 2018 10:54 <-- editieren / zitieren --> Unities abgeben:          Nur für C.Samer
|
C.Samer Mitglied CAD Administrator

 Beiträge: 72 Registriert: 03.05.2017
|
erstellt am: 08. Feb. 2018 13:42 <-- editieren / zitieren --> Unities abgeben:         
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 |
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau

 Beiträge: 8086 Registriert: 09.03.2006 Drauß vom Walde komm ich her, verlaufen hab ich mich gar sehr ;-)
|
erstellt am: 08. Feb. 2018 14:00 <-- editieren / zitieren --> Unities abgeben:          Nur für C.Samer
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 |
C.Samer Mitglied CAD Administrator

 Beiträge: 72 Registriert: 03.05.2017
|
erstellt am: 08. Feb. 2018 14:07 <-- editieren / zitieren --> Unities abgeben:         
@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 |