xpwindaube
Messages postés14Date d'inscriptionvendredi 28 mai 2004StatutMembreDernière intervention10 décembre 2004 16 nov. 2004 à 19:08
_à metre dans un module:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function showwindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
_à metre dans un bouton pr cacher la fenetre AOL:
Dim AOL
AOL = FindWindow("AOL Frame25", vbNullString)
Call showwindow(AOL, 0)
Bonne prog' a tous ! ;-)
-à metre dans un autre bouton pr monter la fentre:
Dim AOL
AOL = FindWindow("AOL Frame25", vbNullString)
Call showwindow(AOL, 1)