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 |
Partager