afficher les nom de taches

Question

Ce programme qui doit afficher les nom de taches fonctionne dans un projet indépendant, mais pas dans mon programme (qui commence bien par Form1).
Quelqu'un à t'il une idée

Dim CurrWnd As Long
Dim Longueur As Long
Dim Parent As Long
Dim NomTache As String
  
  ' Nous recherchons le handle de notre programme.
  CurrWnd = GetWindow(Form1.hwnd, GW_HWNDFIRST)
  ' on recherche maintenant les hwnd suivants et on prend les caption des fenetres
  While CurrWnd <> 0
      Parent = GetParent(CurrWnd) 'on recupere le hwnd de la fenetre parente
      Longueur = GetWindowTextLength(CurrWnd) 'on recupere la longueur de sa caption
      NomTache = Space$(Longueur + 1)
      Longueur = GetWindowText(CurrWnd, NomTache, Longueur + 1)
      NomTache = Left$(NomTache, Len(NomTache) - 1) 'on recupere la caption de la fenetre

      If (Longueur > 0) Then 'si on a trouver une fenetre alors...
          MsgBox NomTache
      End If
      CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT) 'on cherche le hwnd de la fenetre suivante
      DoEvents
    
  Wend

cs_globule · Answer

J'ai trouvé. J'avais oublié de declarer les constantes
Desolé !

Public Const GW_HWNDFIRST = 0 ' retourne le handle de la fenêtre au sommet de l'ordre z.
Public Const GW_HWNDLAST = 1  ' handle de la fenêtre au bas de l'ordre z.
Public Const GW_HWNDNEXT = 2  ' handle de la fenêtre suivante.
Public Const GW_HWNDPREV = 3  ' handle de la fenêtre précédente.

Public Const SW_DISABLE = 0   'constante pour Disable
Public Const SW_ENABLE = 1    'constante pour activer
Public Const SW_SHOW = 5      'constante pour Montrer
Public Const SW_HIDE = 0      'constante pour Cacher
Public Const WANNAKILL = &H10 'constante pour Fremer

Public Const MF_BYPOSITION = &H400&
Public Const MF_DISABLED = &H2&

Afficher les nom de taches

1 réponse

Discussions similaires