Anwendung beenden mit Userform1

Oraculix · 2022-01-24T06:13:28+00:00

Hallo Alle! In meiner Userform1 verwende ich die Windows Bildschirmlupe die per Comandbutton aufgerufen wird. Frage: Wie kann ich die Bildschirmlupe schließen wenn die Userform1 beendet wird? 'Userform1 beenden Private Sub CommandButton19_Click() Worksheets("FilmeAnsehen").Activate Unload Me End Sub 'Lupe wird Aufgerufen Private Sub CommandButton23_Click() Dim wsh As Object Dim strProgramName As String Set wsh = VBA.CreateObject("WScript.Shell") wsh.Run "C:\WINDOWS\system32\Magnify.exe" End Sub Gruß Oraculix

Hallo Oraculix,
hier zwei Möglichkeiten, externe Programme zu beenden.
Die feine Art mittels Senden einer Close-Message und die codesparende Holzhammermethode. Beides funktioniert.
Dazu wird der Caption der zu schließenden Anwendung benötigt und ich hoffe, dass ich ihn richtig getroffen habe.
Probiere es halt mal aus....

Code:


[Cc][+][-]

Private Declare PtrSafe Function FindWindowA Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function PostMessageA Lib "user32" ( _
        ByVal hwnd As LongPtr, ByVal wMsg As Long, _
        ByVal wParam As LongPtr, _
        ByVal lParam As LongPtr) As Long
Private Const WM_CLOSE = &H10

Dim hwnd As LongPtr

Sub AnwendungSchliessen1()
' Anwendung schließen
  hwnd = FindWindowA(vbNullString, "Bildschirmlupe")
  PostMessageA hwnd, WM_CLOSE, 0&, 0&
End Sub

' #############################################################
Private Declare PtrSafe Function FindWindowA Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function DestroyWindow Lib "user32" ( _
        ByVal hwnd As LongPtr) As Long

Sub AnwendungSchliessen2()
' Anwendung schließen
  DestroyWindow FindWindowA(vbNullString, "Bildschirmlupe")
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Hallo Oraculix,
ja in der Tat schließt sich die Bildschirmlupe nicht, obwohl das Handle (also die Anwendung) gefunden wurde. Siehe Mustertestcode.
Da muss ich leider (vorerst) passen.

Code:


[Cc][+][-]




	
	
	
	


Private Declare PtrSafe Sub Sleep Lib "kernel32" ( _
        ByVal dwMilliseconds As Long)
Private Declare PtrSafe Function FindWindowA Lib "user32" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function PostMessageA Lib "user32" ( _
        ByVal hwnd As LongPtr, ByVal wMsg As Long, _
        ByVal wParam As LongPtr, _
        ByVal lParam As LongPtr) As Long
Private Declare PtrSafe Function DestroyWindow Lib "user32" ( _
        ByVal hwnd As LongPtr) As Long
Private Const WM_CLOSE = &H10

Dim hwnd As LongPtr

Sub AnwendungSchliessenTest()
' Anwendung schließen

 VBA.CreateObject("WScript.Shell").Run "C:&bsol;WINDOWS&bsol;system32&bsol;Magnify.exe"
  Sleep 5000
  hwnd = FindWindowA(vbNullString, "Bildschirmlupe")
  If hwnd <> 0 Then
  Debug.Print hwnd
'     PostMessageA hwnd, WM_CLOSE, 0&, 0&
      DestroyWindow hwnd
  Else
     MsgBox "Anwendung nicht gefunden!", vbCritical
  End If
End Sub

_________________________
viele Grüße 😊
Karl-Heinz

Forumthread: Anwendung beenden mit Userform1

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Anwendung beenden mit Userform1

Forumthread: Anwendung beenden mit Userform1

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread