26/05/10 15:33
salva94
Postato originariamente da giogiogio1213:
Io invece pensavo a aprire e chiudere la cartella font, l'utente enache se ne accorge ed è fatta .... ora però non so come chiudere la cartella
Come chiudo una cartella?
Io invece pensavo a aprire e chiudere la cartella font, l'utente enache se ne accorge ed è fatta .... ora però non so come chiudere la cartella
Come chiudo una cartella?
Utilizzando le api :
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, ByVal lParam As String) As Long Public Const WM_CLOSE = &H10 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, "Nomecartella") If winHwnd <> 0 Then RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) If RetVal = 0 Then MsgBox("Errore nella chiusura.") End If Else MsgBox("Errore.") End If
aaa