FindWindowA Problème de récupération d'handle

Question

Bonjour, 


Je ne comprend rien, voici mon code:


Private Sub UserForm_Initialize()
    Dim hSysMenu As Long
    Dim leHwnd As Long
    
  leHwnd = FindWindowA(vbNullString, IHM_APPORT.Caption)
  hSysMenu = GetSystemMenu(leHwnd, False)
  RemoveMenu hSysMenu, &HF010&, &H0&


End Sub




Sur un poste la fonction FindWindowA me renvoi l'handle de la fenetre sur l'autre il me renvoi 0.


Je ne sais pas du tous pourquoi j'ai la meme version entre les 2 postes et les même bibiothèque.


Auriez vous une idées??


D'avance merci

Renfield · Answer

a voir si tu as bien saisi le titre exact

Utilisateur anonyme · Answer

Salut,

Le titre de l'application doit être différent sur tes deux postes.

__________
  Kenji

mortalino · Answer

salut,

et même si le tittre est différent, qu'est ce que àçça change ?
Vu qu'il récupère le caption directement depuios son objet fenêtre IHM_APPORT
@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

serar53 · Answer

Le titre est le même car je fais un copier coller de la même application? 

La je ne comprend pas.

serar53 · Answer

Bonjour
J'utilise la fonction suivante : 


'Déclaration
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&


Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long


Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long


Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long




' Fonction
Private Sub UserForm_Initialize()
    Dim hSysMenu As Long
    Dim leHwnd As Long
    leHwnd = FindWindowA(vbNullString, IHM_APPORT.Caption)
    hSysMenu = GetSystemMenu(leHwnd, False)
    RemoveMenu hSysMenu, &HF010&, &H0&
End Sub


Je cherche à bloquer l'affichage de ma fenetre au centre de l'écran, sur mon poste cela fonctionne mais pas sur un autre 
poste quasiment identique l'UHM ne se bloque pas. Je ne comprend pas d'ou cela peux venir j'ai vérifier les bibiothques mais elle sont identique.


Le problème est que sur l'autre poste la fonction "FindWindowA(vbNullString, IHM_APPORT.Caption)" renvoi zéro, pourquoi ... je sais pas...


La je cale.


Si des personnes peuvent m'aider se serait sympa, je peux vous envoyer le prog si vous souhaitez.


D'avance merci.


Je ne sais pas d'ou cela peux venir avez vous des idées.


Cdlt.

Renfield · Answer

UserForm Excel => ThunderDFrame
leHwnd = FindWindowA("ThunderDFrame", IHM_APPORT.Caption)

l'evenement Initialize survient peut etre trop tôt (fenetre pas encore crée)

tenter alors avec Form_Activate, par exemple

mortalino · Answer

ouaip, m^me

"Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame"

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

serar53 · Answer

Merci, bonne Hypothèse mais cela n'a pas résolu mon problème, 

Les utilisateurs ne recupère toujours pas le bon handle. 

Je pe vous envoyer l'appli? 

Avez vous d'autres hypothèse?

Renfield · Answer

quel autre evenement as-tu testé ?

FindWindowA Problème de récupération d'handle

9 réponses

Votre réponse

Discussions similaires