Office: (Office 2019) VBA7, Declare Function FindWindow Lib

Hallo Allerseits,

Frage:
Anpassung eines bereits Geschrieben Codes (Forum).
Würde ich gern verwenden da es gut Passt.

Quelle> VBA Beispiele Seite Datei schließen - Hajo's Excelseiten
Datei> Datei schließen02, (ggf. im Anhang)

Problem:
Eine Funktion im Code ist mit meinem Office nicht kompatibel.
Vorgabe der Datei (Office 2010, 32-bit), mein (Office 2019, 64-bit)

Ziel:
Wie muss dies Umschrieben/Abändern werden, auf 64-bit?
Diesen würde ich gerne weiter Verwenden in meinem Project.

Könnte mir jemand Helfen den Code Anzupassen od. gibt es eine Alternative?

Gruß Leon

 

Moin Leon!

Versuch's mal so:

Code:

#If VBA7 Then
    Declare PtrSafe Function FindWindow Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
       
    Declare PtrSafe Function SetActiveWindow Lib "user32.dll" _
        (ByVal hwnd As LongPtr) As LongPtr
       
    Declare PtrSafe Function SetWindowPos Lib "user32" _
        (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
         ByVal x As Long, ByVal y As Long, _
         ByVal cx As Long, ByVal cy As Long, _
         ByVal wFlags As Long) As Long
#Else
    Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
       
    Declare Function SetActiveWindow Lib "user32.dll" _
        (ByVal hwnd As Long) As Long
       
    Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
         ByVal x As Long, ByVal y As Long, _
         ByVal cx As Long, ByVal cy As Long, _
         ByVal wFlags As Long) As Long
#End If

Public Enum Parameter
    HWND_TOPMOST = -1
    SWP_NOSIZE = &H1
    SWP_NOMOVE = &H2
    SWP_NOACTIVATE = &H10
    SWP_SHOWWINDOW = &H40
End Enum

Viel Erfolg! und Grüße

 

hallo d`r Bastler,

Danke für deine Rückmeldung.
Ein teil des Codes nach #Else bis #End If würd Rot Angezeigt. Also Passt was nicht oder?
Farblich Markieren im Code geht im Forum nicht...

Code:

#If VBA7 Then
   Declare PtrSafe Function FindWindow Lib "user32" _
       Alias "FindWindowA" ( _
       ByVal lpClassName As String, _
       ByVal lpWindowName As String) As LongPtr
 
   Declare PtrSafe Function SetActiveWindow Lib "user32.dll" _
       (ByVal hwnd As LongPtr) As LongPtr
 
   Declare PtrSafe Function SetWindowPos Lib "user32" _
       (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
        ByVal x As Long, ByVal y As Long, _
        ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long
#Else
   Declare Function FindWindow Lib "user32" _
       Alias "FindWindowA" ( _
       ByVal lpClassName As String, _
       ByVal lpWindowName As String) As Long
 
   Declare Function SetActiveWindow Lib "user32.dll" _
       (ByVal hwnd As Long) As Long
 
   Declare Function SetWindowPos Lib "user32" _
       (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal x As Long, ByVal y As Long, _
        ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long
#End If

Public Enum Parameter
   HWND_TOPMOST = -1
   SWP_NOSIZE = &H1
   SWP_NOMOVE = &H2
   SWP_NOACTIVATE = &H10
   SWP_SHOWWINDOW = &H40
End Enum

Gruß Leon

 

Tja, dann wirst Du die roten Zeilen wohl irgendwie benennen müssen. Sonst sehe ich keine Chance für weitere Hilfe.
Die beiden Codes sind übrigens 1:1 gleich. Vielleicht versuchst Du es mit Zeilennrn. oder Auszügen der Stellen, wo's klemmt.

Du hast nach Alternativen gefragt. Dazu müsstest Du mal genauer beschreiben, was Du denn vorhast.

Grüße

 

Moin!
Ich bin jetzt wahrlich kein API-Experte, weiß aber, dass die Rotfärbung in der Regel kein Problem darstellt.


Daher habe ich mal eine KI befragt.
Ich will jetzt hier nicht den Roman einkopieren.
Die Quintessenz ist:
• Der Code ist in Ordnung.
• Ich verwende ein 64-Bit-Office, daher wird der Else-Zweig der bedingten Kompilierung rot.
• Auf die Funktionsfähigkeit des Codes hat das keinen Einfluss!

Gruß Ralf

 

Hallo Leon,

Das ist völlig normal so. Ebenso ist die # If VBA7 Abfrage passend. Es gibt hier keine API Funktionen, welche auf Win64 geprüft werden müssen.
Ansonsten überlege dir, ob es sinnvoll ist den Nutzern der Datei so was Nerviges zuzumuten.
Ich würde dies eher als Aprilscherz (lustige Spielerei) betrachten.

Gruß Uwe

 

Hallo d'r Bastler, Ralf u. Uwe,

danke für die Antworten.

Meine Unwissenheit, für mich Roter Text also passt was nicht

Gruß Leon

 

Moin allerseits!

Der entscheidende Hinweis kam von Ralf: Off64 = VBA7. Der else-Fall tritt auf Deinem System also garnicht ein. Dadurch könntest Du die Deklaration auch einfach auf diese Zeile (zzgl. der Enum Parameter) reduzieren:

Code:

Declare PtrSafe Function FindWindow Lib "user32" _
       Alias "FindWindowA" ( _
       ByVal lpClassName As String, _
       ByVal lpWindowName As String) As LongPtr
 
   Declare PtrSafe Function SetActiveWindow Lib "user32.dll" _
       (ByVal hwnd As LongPtr) As LongPtr
 
   Declare PtrSafe Function SetWindowPos Lib "user32" _
       (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, _
        ByVal x As Long, ByVal y As Long, _
        ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long

Damit sollte das Rot verschwunden sein.

Grüße!