Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Sub Cacher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cacher.Click SetWindowPos(FindWindow("shell_traywnd", ""), 0, 0, 0, 0, 0, &H80) End Sub Private Sub Visible_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Visible.Click SetWindowPos(FindWindow("shell_traywnd", ""), 0, 0, 0, 0, 0, &H40) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question