api FindWindow

Question

bonjour
j'ai une petite incomprehension
quand j'execute le code suivante
pas de probleme 
je rentre le nom de lafenetre dans la textbox
et la croix rouge de cette fenetre se grise
Public

Class Form1

Public
Declare
Function FindWindow 
Lib
"user32"
Alias
"FindWindowA" (
ByVal lpClassName 
As
String, 
ByVal lpWindowName 
As
String) 
As
Integer

Public
Declare
Function GetSystemMenu 
Lib
"user32" (
ByVal Hwnd 
As
Integer, 
ByVal bRevert 
As
Integer) 
As
Integer

Public
Declare
Function GetMenuItemCount 
Lib
"user32" (
ByVal hMenu 
As
Integer) 
As
Integer

Public
Declare
Function RemoveMenu 
Lib
"user32" (
ByVal hMenu 
As
Integer, 
ByVal nPosition 
As
Integer, 
ByVal ByValwFlags 
As
Integer) 
As
Integer

Public
Declare
Function DrawMenuBar 
Lib
"user32" (
ByVal Hwnd 
As
Integer) 
As
Integer

Public
Const MF_BYPOSITION = &H400&

Public
Const MF_REMOVE = &H1000&

Private
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

Dim Hwnd 
As
Integer

Dim titre 
As
Stringtitre = TextBox2.Text

Hwnd = FindWindow(vbNullString, titre)

Dim hMenu 
As
Integer

Dim nCount 
As
IntegerhMenu = GetSystemMenu(Hwnd, 0)

nCount = GetMenuItemCount(hMenu)

Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE 
Or MF_BYPOSITION)

Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE 
Or MF_BYPOSITION)DrawMenuBar(Hwnd)

End
Sub

Mais quand je met directement le titre de la fenetre dans l'instruction
Hwnd = FindWindow(vbNullString, "Mes documents")

comme je l'ai vu dans plusieurs source  cela ne fonctionne pas!? 

merci de m'indiquer l'erreur que je commets

Renfield · Answer

étrange, chez moi ca marche au poil...

VB6:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
    Debug.Print FindWindow("CabinetWClass", "Mes documents")
End Sub

as-tu bien une fenetre 'mes documents' ouverte ?

Api FindWindow

1 réponse

Votre réponse

Discussions similaires