| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | Bechtle Competence Days | Online |
|
Autor
|
Thema: VBA - Position von UserForm auslesen (1822 mal gelesen)
|
Spirou85
Mitglied
Konstruktuer und CAD-Betreuer
   Beiträge: 70
Registriert: 01.12.2014 HP ZBook 15 G5
Intel Xeon 2,9 GHz - 32GB Ram
NVIDIA Quadro P2000M
Windows 10 Pro 64Bit Version 1809
Build 17763.1098
SWX2020-64Bit-SP1.0
MaxxDB 2020 SP0.06
DraftSight Enterprise 2019 x64 SP3
3DCONNEXION SpaceMouse Enterprise mit CadMouse
|
erstellt am: 13. Mai. 2015 13:58  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, habe eine UserForm, von der ich beim schließen die Position auslesen möchte, um sie beim nächsten ausführen wieder an der Position anzeigen zu können. Frage ich im "UserForm_Terminate()" die Eigenschaften "Left" und "Top" ab, haben diese jedoch die Anfangswerte, und nicht die aktuellen Werte. Wie komme ich an die aktuellen Werte? Verwendet wird VBA 7.1 von SWX2013. ------------------
Viele Grüße aus Brackenheim Lars Pauly Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV
Mitglied
Konstrukteur, Engineering
Beiträge: 813
Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0
Dell Precision 5820
Intel Xeon W-2125 4x4GHz
NVIDIA Quadro P2000 5GB
32GB RAM
2x Dell U2412M, 24" TFT
Windows 10 Enterprise x64 22H2
Microsoft 365 E5
Microsoft Visual Studio Enterprise 2022
|
erstellt am: 13. Mai. 2015 14:25 <-- editieren / zitieren --> Unities abgeben: Nur für Spirou85 
Hallo Lars Pauly Im "UserForm_Terminate"-Ereignis ist das Formular schon weg, deshalb die falschen Werte. Benutze das "UserForm_QueryClose"-Ereignis, dann bekommst du die richtigen Werte. Code:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox "Links: " & Me.Left & " Oben: " & Me.Top
End Sub
Gruss Andreas ------------------
21 ist nur die halbe Antwort. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Spirou85
Mitglied
Konstruktuer und CAD-Betreuer
Beiträge: 70
Registriert: 01.12.2014 HP ZBook 15 G5
Intel Xeon 2,9 GHz - 32GB Ram
NVIDIA Quadro P2000M
Windows 10 Pro 64Bit Version 1809
Build 17763.1098
SWX2020-64Bit-SP1.0
MaxxDB 2020 SP0.06
DraftSight Enterprise 2019 x64 SP3
3DCONNEXION SpaceMouse Enterprise mit CadMouse
|
erstellt am: 13. Mai. 2015 14:42 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
