rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik, Master Eng. IT-Security & Forensic
Beiträge: 2912 Registriert: 15.11.2006
Windows 10 x64, AIP 2020-2025
erstellt am: 27. Apr. 2009 20:53 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
Hallo
Code:Public Sub Vollbild()
Dim oApp As Application Set oApp = ThisApplication
If oApp.UserInterfaceManager.ShowBrowser = False Then oApp.UserInterfaceManager.ShowBrowser = True If oApp.UserInterfaceManager.ShowPanelBar = False Then oApp.UserInterfaceManager.ShowPanelBar = True If oApp.UserInterfaceManager.ShowStatusBar = False Then oApp.UserInterfaceManager.ShowStatusBar = True If oApp.UserInterfaceManager.ShowToolBar = False Then oApp.UserInterfaceManager.ShowToolBar = True Exit Sub End If
If oApp.UserInterfaceManager.ShowBrowser = True Then oApp.UserInterfaceManager.ShowBrowser = False If oApp.UserInterfaceManager.ShowPanelBar = True Then oApp.UserInterfaceManager.ShowPanelBar = False If oApp.UserInterfaceManager.ShowStatusBar = True Then oApp.UserInterfaceManager.ShowStatusBar = False If oApp.UserInterfaceManager.ShowToolBar = True Then oApp.UserInterfaceManager.ShowToolBar = False
End Sub
Schaltet abwechselnd in sowas ähnliches wie einen Vollbildmodus und zurück. Leider wird die Browserleiste beim Einblenden ganz klein geschrumpelt. Ich konnte nicht finden wie man die Größe einstellt.
Über Extras->Anpassen->Tastatur kannst du noch einen Shortcut zuweisen.
erstellt am: 28. Apr. 2009 08:40 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
anbei ein fertiges Modul welches diese Funktion (inclusive Makroicon) ausführt. Bitte den VBA Editor starten und dort in der Standard IVB mittels Datei importieren die Datei "cadde.bas" hinzufügen. Nun noch die beiden BMP dateien in dein IVB Verzeichniss kopieren. nach dem IV Neustart kannst du dann mittel Extras > Anpassen > Befehle > Makros dir die Schaltfläche in die Hauptwerkzeugleiste ziehen
------------------
"Das Motto des Tages" Wir hatten nie 'ne Schulung in Inventor Wir hatten nie 'ne Schulung in Methodik Wir haben keinen Wartungsvertrag Wir haben keinen Admin Wir haben trotzdem Spaß!
Für die cseTools bieten wir flexible Lizenzierungsoptionen an. Dauer- und Mietlizenzen sowie jeweils Einzelplatz- und Netzwerklizenzen. Wenn Sie Ihre Lizenzen im Netzwerk mit allen Benutzern teilen möchten, wird der cseTools Lizenzserver benötigt.
Alexander_M Mitglied Maschinenbautechniker
Beiträge: 926 Registriert: 09.03.2006
IV 2008 SP2 Win XP SP2 P4 3,4 GHz 3 GB RAM NVIDA Quatro NVS 285 128MB