Chiusura di un eseguibile

[sara81it]

Ciao a tutti,
c'è un comando che permette di chieudere un eseguibiole da VB?


Grazie a tutti
Sara

[Saturno83]

end

[xegallo]

passa a closeapplication il nome che vedi nella tray

Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" _
    (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" _
    Alias "PostMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Public Function CloseApplication(byVal sAppCaption As String) As Boolean
    Dim lHwnd As Long
    Dim lRetVal As Long
    lHwnd = FindWindow(vbNullString, sAppCaption)
    If lHwnd <> 0 Then
        lRetVal = PostMessage(lHwnd, WM_CLOSE, 0&, 0&)
    End If
End Function

[sara81it]

ummm, scusa l'ignoranza....

ma io devo chiudere il WINWORD.EXE...


come lo dichiaro?

[xegallo]

se metti word non funziona?

[sara81it]

il mio problema è che non so dove sostituirlo!

[xegallo]

devi chiamare la funzione closeapplication passandogli l'applicazione da chiudere come parametro

[sara81it]

Non ci riesco!!
i public li ho dichiarati nel modilo e poi

Public Function CloseApplication(ByVal WinWord As String) As Boolean
    Dim lHwnd As Long
    Dim lRetVal As Long
    lHwnd = FindWindow(vbNullString, sAppCaption)
    If lHwnd <> 0 Then
        lRetVal = PostMessage(lHwnd, WM_CLOSE, 0&, 0&)
    End If
End Function

e poi all'interno della roputine della stampa dopo il closeDocument ho messo una call CloseApplication

[sara81it]

Ragazzi metto il codice della stampa!

nomefile = App.Path & "\RisultatoFattAccompVend.doc"

 With WordXChangeCtrl1
    .OpenDocument App.Path & "\Cliente.doc"
    .ReplaceField "CampoFornitore", cmbragso.Text
    .ReplaceField "Via", txtind.Text
    .ReplaceField "Cap", txtcap.Text
    .ReplaceField "Citta", txtcitta.Text
    .ReplaceField "PIVA", txtpiva.Text.SaveDocumentAs nomefile
    ActiveDocument.PrintOut
    .CloseDocument
End With

Non mi chiude l'eseguibile winword.exe e quindi quando si lancia la seconda stampa mi da errore e non funziona.

Come devo fare?

Grazie Sara

[s|n3]

allora..metti in um modulo il codice che ti ha dato xegallo e poi quando ti serve chiudere il word richiami l'evento con il nome del programma che vedi nella tray....esempio

closeapplication("word")

se non funziona prova a togliere le virgolette :tongue: