c148270
Messages postés303Date d'inscriptionmercredi 12 janvier 2005StatutMembreDernière intervention 3 octobre 20131 22 janv. 2010 à 08:41
Bonjour
Voilà ce que j'ai utilisé pour excel (avec windows xp et vba)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, _
ByVal bRevert As Integer) As Integer
Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Integer, _
ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
-----------------------------------------------------------------------------------
Sub Disable_Control()
Dim X As Integer, hwnd As Long
hwnd = FindWindow("XLMain", Application.Caption)
For X = 1 To 9
Call DeleteMenu(GetSystemMenu(hwnd, False), 0, 1024)
Next X
End Sub
-------------------------------------------------------------------------------------------------------------
Sub RestoreSystemMenu()
Dim hwnd As Long
' Excel application
hwnd = FindWindow("xlMain", Application.Caption)
'restaure le menu systéme original
hMenu% = GetSystemMenu(hwnd, 1)
End Sub
cs_bidouille007
Messages postés257Date d'inscriptionjeudi 11 septembre 2008StatutMembreDernière intervention22 décembre 20121 23 janv. 2010 à 01:10
c148270 merci pour ta réponse
mais je vois pas comment appliquer ta solution puisque je cherche un moyen de cacher le petit rectangle blanc du bureau lorsque la form principale est reduite et cachée dans un environnement VISTA ou SEVEN et une application en VB.NET