chiudere programma

[sanny82]

Si può chiudere un programma in visual basic?
Es:
Shell App.Path & "\Reader\AcroRd32.exe " & disegno così apro un pdf in acrobat...
Dopo chiudere l'applicazione direttamente senza cliccare su chiudi di acrobat??? :master:
Grazie mille

[tas]

Potresti inviare il messaggio WM_CLOSE alla finestra dell'applicazione:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (lpClassName As Any, ByVal lpWindowName As String) As Long
Public Const WM_CLOSE = &H10

'nel punto dove vuoi chiudere il programma
hApp = FindWindow(ByVal 0&, "Acrobat Reader [pippo.pdf]")
SendMessage hApp, WM_CLOSE, 0, 0

Naturalmente, al posto di pippo.pdf devi inserire il nome del file aperto.

[sanny82]

Non fa niente...
il nome del pdf l'ho cambiato..

[sanny82]

no l'ha fatto...
ora devo vedere come passa gli una stringa...

[tas]

In FindWindow devi mettere esattamente il titolo della finestra aperta di Acrobat, altrimenti non trova nulla. Controlla il valore di hApp che deve essere diverso da zero.

[sanny82]

no il problema è che sono caricati da database e gli passo il nome del file...
Quello che intedevo io è che ora devo fare così:
disegno = "ciccio.pdf"
hApp = FindWindow(ByVal 0&, "Acrobat Reader - [disegno]")
Ma così non lo trova...

[tas]

E così?

disegno = "ciccio.pdf" 
hApp = FindWindow(ByVal 0&, "Acrobat Reader - [" & disegno & "]")

[sanny82]

Funziona perfettamente....
Grazie mille