| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Fenster immer im Vordergrund (6178 mal gelesen)
|
stevieda Mitglied Dipl.-Ing.
Beiträge: 138 Registriert: 21.11.2003 Pro/E Wildfire 2.0 Inventor Pro 9
|
erstellt am: 14. Feb. 2005 10:16 <-- editieren / zitieren --> Unities abgeben:
Hallo an alle, Wie kann ich es realisieren, dass meine programmierte Applikation immer im Vordergrund bleibt? So möchte ich beispielsweise Zellen in Excel markieren können, während mein Dialogfenster im Vordergrund bleibt. Ich habe schon im Netz herumgestöbert und auch einige Lösungen für VB gefunden. Aber leider funktioniert es nicht in VBA! Jemand eine Lösung oder einen Ansatz? Vielen Dank für jede Hilfe!!! ------------------ Gruß, Stevie Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 Veni, Vidi, VW ... I came, I saw, I drove around in a little car.
|
erstellt am: 14. Feb. 2005 11:29 <-- editieren / zitieren --> Unities abgeben: Nur für stevieda
|
stevieda Mitglied Dipl.-Ing.
Beiträge: 138 Registriert: 21.11.2003 Pro/E Wildfire 2.0 Inventor Pro 9
|
erstellt am: 14. Feb. 2005 12:15 <-- editieren / zitieren --> Unities abgeben:
Hallo Nancy, ich starte in Inventor (Pro 9) ein Makro, welches zunächst ein Dialogfenster (Userform) zeigt. Danach starte ich Excel (2000)mittels VBA und hole mein Userform nach vorne mit dem folgenden Code: AppActivate "Import" ('Import' ist der Titel meines Anwendungsfensters, sprich Userform) Anschließend möchte ich Zellen in Excel markieren. Dabei verschwindet allerdings mein Userform nach hinten. Genau das soll es nicht machen. Es soll ständig im Vordergrund bleiben. Danke für jede Hilfe. ------------------ Gruß, Stevie Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 Veni, Vidi, VW ... I came, I saw, I drove around in a little car.
|
erstellt am: 14. Feb. 2005 13:02 <-- editieren / zitieren --> Unities abgeben: Nur für stevieda
Mit AppActivate aktivierst Du die gesamte 'Mutteranwendung', in dem Falle den IV, da die UF ein Element von Inventor ist. Das heisst Du müsstest es umgekehrt machen, die UF unter Excel einbinden und von der XL-Userform aus mit der Diva kontaktieren, oder zwei Userforms, eine IV und eine XL, oder so, ansonsten no Idea ... Gruss Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stevieda Mitglied Dipl.-Ing.
Beiträge: 138 Registriert: 21.11.2003 Pro/E Wildfire 2.0 Inventor Pro 9
|
erstellt am: 14. Feb. 2005 13:11 <-- editieren / zitieren --> Unities abgeben:
|
stevieda Mitglied Dipl.-Ing.
Beiträge: 138 Registriert: 21.11.2003 Pro/E Wildfire 2.0 Inventor Pro 9
|
erstellt am: 14. Feb. 2005 17:09 <-- editieren / zitieren --> Unities abgeben:
Hallo Nancy, wenn ich mit AppActivate die Mutteranwendung aktiviere, wie funktioniert das denn dann mit Inventor? Normalerweise muss ich den Namen der Titelleiste der zu aktivierenden Anwendung kennen. Doch leider kann ich den nicht immer kennen, da in der Titelleiste von Inventor hinter dem Standardtext noch der Bauteilname steht. Kann ich für solche Fälle auch Platzhalter verwenden? Danke für die Hilfe! ------------------ Gruß, Stevie Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 Veni, Vidi, VW ... I came, I saw, I drove around in a little car.
|
erstellt am: 14. Feb. 2005 17:32 <-- editieren / zitieren --> Unities abgeben: Nur für stevieda
|
Ulr1ch Mitglied Konstrukteur
Beiträge: 75 Registriert: 18.12.2003 IV9 Windows XPpro Pentium 4 2,4GHz 1,5GB RAM
|
erstellt am: 16. Feb. 2005 09:01 <-- editieren / zitieren --> Unities abgeben: Nur für stevieda
Hallo Stevieda, ich weis nicht, ob es Dir weiterhilft, aber ich aktivier Excel aus IV raus immer so: Code:
'********************************** Excel öffnen ******************* Dim objExcel As Excel.Application Dim objWorkbook As Workbook Dim objWorksheet As WorkSheet '************************************************************ On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number Then Err.Clear On Error Resume Next Set objExcel = CreateObject("Excel.Application") If Err.Number Then Err.Clear MsgBox "Kann Excel nicht öffnen." End If End If objExcel.Run
Mit der Anweisung: Code: objExcel.Visible = False
schalte ich Excel dann unsichtbar. Vieleicht hilft Dir das weiter. Viele Grüße Ulrich
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
stevieda Mitglied Dipl.-Ing.
Beiträge: 138 Registriert: 21.11.2003 Pro/E Wildfire 2.0 Inventor Pro 9
|
erstellt am: 16. Feb. 2005 09:19 <-- editieren / zitieren --> Unities abgeben:
Hallo Ulrich, vom Prinzip her mache ich das genau so. Nur setze ich die Eigenschaft objExcel.Visible dann nicht auf False. Lieber wäre mir, wenn die Excel-Anwendung weiterhin sichtbar bleibt aber im Hintergrund verschwindet bzw. Inventor wieder nach vorne geholt wird. Trotzdem danke! ------------------ Gruß, Stevie Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |