How to close window forcefully

StanleyH

Hi Specialist:
             I try to close window forcefully without considering the prompt window of save or not. However, the macro below can not realize this. Could you please direct me how to revise? Thank you.

StanleyH

Hi Friends:
           I have solved it, just share the code. Thank you.

      
Public _windows As McWindows

_windows = ThisApplication.Windows _windows.CloseAll(True)

mbatchelor

2022-02-14-143516

StanleyH --

Below is another way to perform a CLOSE ALL IMAGE WINDOWS without a prompt to the USER

I hope this is helpful.

-- Matt

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

                        'CLOSE ALL OPEN IMAGES WITHOUT PROMPTING THE USER
                        CloseAllForm.ClosingAllAction=CloseAllForm.CloseAllFormAction.actionNoAll
                        ThisApplication.Windows.CloseAll()

StanleyH

Hi Matt:
           Thanks for your code, it also works.

StanleyH

Just share the post link to someone that needs:
https://forums.mediacy.com/discussion/258/how-do-i-write-a-macro-to-close-all-open-images-without-user-prompt

mbatchelor

2022-02-15-093338

StanleyH --

Thank you for locating and posting the link to that POST. 

You might also consider putting your own PROMPT in front of your CLOSE ALL.  Maybe something like what I have used in the past. 

I hope this is helpful.

-- Matt

-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

        'Determine the number of open documents
        Dim MyNumberOfDocuments
        MyNumberOfDocuments = ThisApplication.Documents.Values.Count

        'If there are any images open
        If ( MyNumberOfDocuments > 0 ) Then

            'Then
                'Give the user an appropriate prompt
                If (MsgBox _
                    ( _
                    "There are images open within IMAGE-PRO PREMIER."  & vbLf & vbLf & _
                    "This program is designed to work with only its images open."  & vbLf & vbLf & _
                    "Please press YES to CLOSE ALL IMAGES or press NO to leave the images open.", _
                    vbYesNo, _
                    "'textBox_WorkingFolder_DoubleClick' says . . ." _
                    ) = vbYes) Then

                    'Close all open images without prompting user
                    CloseAllForm.ClosingAllAction=CloseAllForm.CloseAllFormAction.actionNoAll
                    ThisApplication.Windows.CloseAll()

                    End If

            End If

StanleyH

Hi Matt:
            Thanks for your solution, I have read a lot of posts sent by you and it helped a lot.

mbatchelor

2022-02-16-122809

StanleyH --

Super.

Thanks.

-- Matt