Caption della finestra attiva

[aserto1]

So che esiste un'api per sapere il titolo della finestra attiva, sapete qual'è?

[darkblOOd]

Originariamente inviato da aserto1
So che esiste un'api per sapere il titolo della finestra attiva, sapete qual'è?

in vb6 non c'è qualcosa tipo NomeProgetto.ActiveForm.Text???


vb.net?? me.text?????

[xegallo]

Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () 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 Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal Hwnd As Long) As Long
Private Sub Form_Activate()
    Dim Hwnd As Long
    Dim MyStr As String
    Hwnd = GetActiveWindow 'trova l'handle
    MyStr = String(GetWindowTextLength(Hwnd) + 1, Chr$(0))'crea il buffer

    GetWindowText Hwnd, MyStr, Len(MyStr)
    MsgBox MyStr
End Sub