Discussion :

[L'AMI Yves]

Merci

Au premier coup d’œil, j'au vu un truc qui pourrait tout expliquer : ton programme ne boucle pas sur l'appel de EnumChildWindows ! Bon sang mais c'est bien sûr ! C'est EnumChildWindows qui boucle en interne sur l'appel du CallBack !

Je regarde tout ça de façon plus approfondie et je reviens.

A+

AMIcalement

[L'AMI Yves]

C'est à s'arracher les cheveux ! voici le nouveau code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public Sub Fenetres_filles(Mere As Long)
'"Filles" est la table des types "Fille" où sont listées les données des fenêtres filles
Dim texte As String * 21, n As Long
  MaxFilles = 100
  ReDim Filles(MaxFilles)
  nfille = 0
   EnumChildWindows Mere, AddressOf Une_Fille, ByVal nfille
  For nfille = 0 To nfille - 1
    With Filles(nfille)
      n = GetWindowText(.Handle, texte, 20)
      .TypeF = IIf(n > 0, Left(texte, n), "_")
      n = SendMessage(.Handle, WM_GETTEXT, 20, texte)
      .texte = IIf(n > 0, Left(texte, n), "_")
      .Autre = ""
    End With
Next
End Sub
 
Public Function Une_Fille(ByVal hwndf As Long, ByVal nfille As Long) As Boolean
  If nfille > MaxFilles Then
    MaxFilles = MaxFilles + 100
    ReDim Preserve Filles(MaxFilles)
  End If
  With Filles(nfille)
    .numero = nfille
    .Handle = hwndf
  End With
  nfille = nfille + 1
  Une_Fille = nfille < 600
End Function

Maintenant, il ne me ramène qu'une seule fenêtre, avec aucun texte, et que ma fenêtre cible soit "mon démineur" (écrit en VB6 avec plein de boutons) ou celui de Microsoft.

Je rame !

AMIcalement, quand même

[l_autodidacte]

Ligne 9 : For nfille = 0 To nfille - 1 ????
Le compteur est en même temps une limite ?

[ProgElecT]

Salut

l_autodidacte
@L'AMI Yves
Je dirais même plus For 0 To - 1 donc le code à l’intérieur de la boucle For n'est jamais exécuté, à moins d'y ajouter Step -1

[L'AMI Yves]

Bonjour à tous les deux.

Je n'avais pas fait attention à ce détail ! Est-ce que VB6 réévalue la borne à chaque passage ? La situation actuelle, après avoir transformé l'instruction en "for i = 0 to nfille-1", ne me permet pas de répondre, car le résultat est le même (donc nfille vallait 1). Je pense que ProElect se trompe un tout petit peu : ma boucle était exécutée une fois.

Je me semi-pardonne cette faute de programmation, car j'avais conservé les "debug.print" : si EnumChildWindows m'en avait énuméré plusieurs, je l'aurais vu, et j'aurais cherché pourquoi, ensuite la boucle For ne m'en listait qu'une, et là, j'aurais vu la faute. A n'en pas douter une seconde, non mais sans blague.

Je suis vraiment perplexe : je suis bien certain que l'application que je lance ouvre une fenêtre qui a au moins 300 fenêtres filles (les boutons du démineur). Je la lance avec "Shell", qui me répond un Numéro de Pid. Il y a une petite magouille (piquée sur le Net) qui me permet d'obtenir le handle de la fenêtre correspondante. Je vérifie bien que le titre de cette fenêtre est celui attendu ("Démineur", pour être original). Dans ces conditions, est-il possible que la fenêtre sur laquelle je lance le EnumChildWindows ne soit pas la bonne ? Voila ma prochaine recherche.

Je vais surement revenir ici avant longtemps...

Encore merci.

AMIcalement.

[ProgElecT]

Salut du soir

Je pense que ProElect se trompe un tout petit peu : ma boucle était exécutée une fois.

Ben là je comprend pas, je viens de vérifier, chez moi cela ne passe pas dans la boucle For.

Pour le reste ne programment plus sous VB6, toutes mes interventions son par apport à mes souvenirs, donc pas toujours des plus fiables car je me suis tourné du coté HTML, PHP, CSS et JavaScript, donc des fois il y a confusion de ma part.
En tous cas, bon courage à toi L'AMI Yves, je suis toujours nostalgique de VB6, c'est pourquoi je surveil toujours ce forum.

[L'AMI Yves]

Pour le moment, je suis dans la mélasse...

Tu fais en PHP HTML CSS et JavaScript ce que tu faisais avant en VB6 ? J'ai fait pas mal de choses avec cette combinaison, mais pas du tout les mêmes : il faut que ça tourne en environnement "serveur/navigateur client"...