Discussion :

[t26]

bonjour,
J'aimerais récupérer le texte associé à la fenêtre située au premier plan (son "caption"). Pour cela, j'utilise les apis getforeground windox et getwindow text de la manière suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Declare Function GetForegroundWindow Lib "user32" () As Long
 
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
                 ByVal hwnd As Long, _
                 ByVal lpString As String, _
                 ByVal cch As Long) As Long
Private Sub Command1_Click()
Dim str As String
str = Space$(257)
titre = Module1.GetWindowText(Me.hwnd, str, 256)
MsgBox (titre)
End Sub

Le problème est qu'à la place du titre de la fenêtre, j'obtiens la longueur de ce titre! (c'est à dire le même résultat qu'avec la fonction getwindowtextlenght !)
Qu'y a-t-il à modifier???

merci

[ThierryAIM]

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Command1_Click()
Dim str As String
    str = String$(100, Chr$(0))
    GetWindowText Me.hwnd, str, 100
    titre = Left$(str, InStr(str, Chr$(0)) - 1)
    MsgBox (titre)
End Sub

[leroissejp]

Bonjour,
Tu peux utiliser ce 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
32
33
34
35
36
37
38
39
 
Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
 
 
Private Sub Command1_Click()
' Fenetre active lors de l'iteration precedente
Static LastActive As Long
 
' Fenetre active sur le systeme
' Utiliser GetActiveWindow pour connaitre la fenetre active dans l'application)
Dim Active As Long
Active = GetForegroundWindow
 
' Si c'est la même fenêtre qui est active, on quitte
If LastActive = Active Then Exit Sub
 
' On récupère la longueur du titre
Dim Length As Long: Length = GetWindowTextLength(Active) + 1
 
' Afin de pouvoir reserver une chaine de caractères assez grande
Dim Buffer As String: Buffer = Space$(Length)
 
' On récupère le titre
Length = GetWindowText(Active, Buffer, Length)
 
' On supprime le caractère \0 final
Buffer = Left$(Buffer, Length)
 
' On ajoute le titre dans la liste
'List1.AddItem Buffer
MsgBox Buffer
 
' Et on mémorise la fenetre qui etait active
LastActive = Active
End Sub

jpleroisse