Forse ho un'API che fa per te... :quote: :quote:
Accetta come parametri:
-L'handle della finestra
-Una stringa dove sarà immesso il risultato (Dev'essere piena)
-La lunghezza massima del risultato
Restituisce la lunghezza effettiva del testo della finestra
Ecco un codice di esempio:
codice:
'La dichiarazione è la seguente:
Private Declare Function GetWindowText Lib "user32"
Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As
String, ByVal cch As Long) As Long
Private Sub Form_Click()
'Variabili
Dim TestoFinestra As String, LunghezzaTesto As Byte
'Inizializza la variabile del risultato
TestoFinestra = Space(256)
'Chiamata API
LunghezzaTesto = GetWindowText(Me.hwnd, TestoFinestra, 255)
'Mantiene solo la stringa effettiva
TestoFinestra = Left(TestoFinestra, LunghezzaTesto)
'Visualizza il risultato
MsgBox TestoFinestra
End Sub
Spero che ti serva... :gren: