Hallo nochmal
Das mit dem Bild öffnen habe ich hingekriegt ( siehe Code - 'Bemerkung)
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private lnghWnd As Long
Sub DateiPerShellObjectStarten()
Dim appSh As Object
Dim BILDPFAD As String
BILDPFAD = UserFormEINGABE.TextBoxDER_PFAD.Value _
& UserFormEINGABE.TextBoxEINLESEN.Value _
& "." _
& UserFormEINGABE.TextBox2.Value
Set appSh = CreateObject("Shell.Application")
appSh.Open (BILDPFAD) 'der BILDPFAD in Klammern gesetzt (eingeklammert) oeffnet mir das (gewuenschte) Bild
DoEvents
lnghWnd = GetForegroundWindow
Set appSh = Nothing
End Sub
Sub closeFile()
If lnghWnd > 0 Then Call SendMessage(lnghWnd, WM_CLOSE, 0, 0)
End Sub
die
Sub closeFile()
macht mir jedoch noch Schwierigkeiten.
Ich bekomme eifach mein geoeffnetes Bild ( das Anzeigefenster dieses Bildes ) nicht per Code geschlossen.
Kann mir jemand noch einen Tipp dazu geben?
Gruß
Fugmann
|