Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Anwendungsgruppe verbergen/sichtbar machen
zurück: Datumsabfrage weiter: Markierten Kommentar TopleftCell anzeigen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
GoGoGadget
Gast


Verfasst am:
28. Feb 2013, 12:54
Rufname:

Anwendungsgruppe verbergen/sichtbar machen - Anwendungsgruppe verbergen/sichtbar machen

Nach oben
       Version: Office 2010

Hallu,

ich habe eine bestimmte Exe die ich öfters offen habe.
Alle offenen Fenster dieser Exe würde ich gerne per Buttun 'hide'en wieder sichtbar machen können. Als Beispiel mal:

c:\windows\notepad.exe

Ich kann ja jetz z.B. das ganze wie folgt 'unsichtbar' öffnen:

Ergebnis = Shell("c:\windows\notepad.exe", vbHide)

Sagen wir mal ich führe das 3 mal aus. Welcher Code sorgt dafür, dass die 3 nicht zu sehenden notepad.exen wieder sichtbar sind? Und welche Code sorgt dafür, dass diese dann wieder 'unsichtbar' sind?

Meine Exen hab verschiedene 'ActiveWindow.Caption's.
Isabelle :-)
Menschin


Verfasst am:
28. Feb 2013, 13:46
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis


AW: Anwendungsgruppe verbergen/sichtbar machen - AW: Anwendungsgruppe verbergen/sichtbar machen

Nach oben
       Version: Office 2010

Hallöchen,

so geht's mit dem NotePad:

Code:
Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)
Private Declare Function EnumWindows Lib "user32.dll" ( _
    ByVal lpEnumFunc As Long, _
    ByVal lParam As Long) As Boolean
Private Declare Function GetClassNameA Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

Private Const GC_CLASSNAME_NOTEPAD = "Notepad"
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1

Public Sub test()

    Dim lngIndex As Long

    'erzeugen
    For lngIndex = 1 To 3
        Call Shell("c:\windows\notepad.exe", vbHide)
    Next

    '2 Sekunden Pause
    Call Sleep(2000)

    'einblenden
    Call EnumWindows(AddressOf GetWindows, ByVal SW_SHOWNORMAL)

    '2 Sekunden Pause
    Call Sleep(2000)

    'ausblenden
    Call EnumWindows(AddressOf GetWindows, ByVal SW_HIDE)

End Sub

Private Function GetWindows( _
    ByVal pvlngHwnd As Long, _
    ByVal pvlngParameter As Long) As Boolean

    Dim lngReturn As Long, lngStyle As Long
    Dim strClassname As String * 100

    lngReturn = GetClassNameA(pvlngHwnd, strClassname, Len(strClassname))

    If Left$(strClassname, lngReturn) = GC_CLASSNAME_NOTEPAD Then _
        Call ShowWindow(pvlngHwnd, pvlngParameter)

    GetWindows = True

End Function

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
GoGoGadget
Gast


Verfasst am:
28. Feb 2013, 14:26
Rufname:

AW: Anwendungsgruppe verbergen/sichtbar machen - AW: Anwendungsgruppe verbergen/sichtbar machen

Nach oben
       Version: Office 2010

Puh, das hatte ich mir nich so viel drumherum vorgestellt.

Da es nicht lebensnotwendig ist, lasse ich das ganze lieber weg um Speicher zu sparen.

Trotzalle dem, vielen Dank für deine Mühe :*
Isabelle :-)
Menschin


Verfasst am:
28. Feb 2013, 14:41
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis

AW: Anwendungsgruppe verbergen/sichtbar machen - AW: Anwendungsgruppe verbergen/sichtbar machen

Nach oben
       Version: Office 2010

Hallöchen,

Speicher sparen ?????

Bringst du die 2.616 Byte dann auf die Speicherbank und kassierst 2% Zinsen also rund 52 Byte pro Jahr dafür?

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
GoGoGadget
Gast


Verfasst am:
28. Feb 2013, 17:30
Rufname:


AW: Anwendungsgruppe verbergen/sichtbar machen - AW: Anwendungsgruppe verbergen/sichtbar machen

Nach oben
       Version: Office 2010

Ok, wenns wirklich nur n paar Kilobyte sind, werd ichs verkraften und einbauen!!
Und nochmals besten Dank ^.^
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Bild in Kopfzeile bei Office-Anwender nicht sichtbar 2 KuR 595 07. Jun 2012, 10:52
Gast Bild in Kopfzeile bei Office-Anwender nicht sichtbar
Keine neuen Beiträge Excel Formate: Bedingte Formatierung erst nach Neuöffnung sichtbar 2 Gast 287 26. Apr 2012, 14:36
steve1da Bedingte Formatierung erst nach Neuöffnung sichtbar
Keine neuen Beiträge Excel Formate: Änderung sofort in Label sichtbar? 0 Rind 301 22. Nov 2011, 00:02
Rind Änderung sofort in Label sichtbar?
Keine neuen Beiträge Excel Formate: automatische Gitternetzlinien auch bei Füllfarbe sichtbar? 2 Katja1 1530 15. Sep 2010, 08:24
Katja1 automatische Gitternetzlinien auch bei Füllfarbe sichtbar?
Keine neuen Beiträge Excel Formeln: Problem: Gefilterte Zeilen (NV) in CSV sichtbar 0 tvtotal2010 591 07. Aug 2010, 12:53
tvtotal2010 Problem: Gefilterte Zeilen (NV) in CSV sichtbar
Keine neuen Beiträge Excel Formate: Zellenfarbe im Sheet sichtbar, unter Format nicht 2 LilliLoeffel 387 24. Jul 2010, 12:04
LilliLoeffel Zellenfarbe im Sheet sichtbar, unter Format nicht
Keine neuen Beiträge Excel Formate: Spalten A-F nicht sichtbar 2 D'ole 492 06. Mai 2010, 14:24
D'ole Spalten A-F nicht sichtbar
Keine neuen Beiträge Excel Formeln: Dropdownmenü sichtbar machen 1 TFK-Killermatrix 805 08. Feb 2010, 17:07
Zero Dropdownmenü sichtbar machen
Keine neuen Beiträge Excel Formeln: Spalten zusammenfassen / Dublikate sichtbar machen 1 Barricada 388 31. März 2009, 12:46
Gast Spalten zusammenfassen / Dublikate sichtbar machen
Keine neuen Beiträge Excel Formate: lediglich wichtigen bereich sichtbar machen! 1 testfahrer_101 397 21. Aug 2007, 18:24
Klaus-Dieter lediglich wichtigen bereich sichtbar machen!
Keine neuen Beiträge Excel Formeln: txt_felder wieder sichtbar machen 4 baggi 1016 13. Aug 2007, 11:14
tüftler txt_felder wieder sichtbar machen
Keine neuen Beiträge Excel Formeln: Summanden sichtbar 2 Ina123 397 11. Jun 2007, 14:06
Ina123 Summanden sichtbar
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme