[VB6] Titolo finestra

[md76]

Come prima cosa chiedo scusa per aver fatto due richieste di aiuto in così poco tempo, ma credo che a volte capiti anche a voi che per mesi e tutto bello e quindi visiti il forum come ospite e magari poi in 2 giorni ti verrebbe da chiedere il mondo, pur cercando prima.

Veniamo a noi.

Dovrei fare una function che mi scriva in una variabile il titolo della finestra attiva, chiaramente man mano che cambio finestra la vaiabile si deve aggiornare.

Spero di essere stato chiaro.

Grazie ragazzi.

[oregon]

In quale linguaggio? Spiega meglio il problema ...

[alka]

Originariamente inviato da md76
Come prima cosa chiedo scusa per aver fatto due richieste di aiuto in così poco tempo

...e senza rispettare il Regolamento.

Il linguaggio va sempre anche nel titolo.

Ciao!

[ladyBlu]

intanto è meglio se specifichi il linguaggio che usi così possiamo essere più chiari nelle risposte.

ritenendo che ti riferisci a VB6...

Nel modulo .bas dichiari una variabile globale:

Public strNomeForm As String

e poi nell'evento Activate di ogni form scrivi questo codice:

Private Sub Form_Activate()
    strNomeForm = Me.Caption
    MsgBox strNomeForm
End Sub

[md76]

avete ragione sono un rin........to, il linguaggio che utilizzo è VB6.

Cerco di spiegarmi meglio, almeno ci provo.

Con VB6 dovrei fare anche una funzione che mi segnali la caption della finestra attiva, questa potrebbe essere una finestra di un documento Word, piuttosto che la finestra di un PDF, piuttosto che un file psd di photoshop.

Quello che dovrei ottenere alla fine è una variabile che abbia come valore appunto la caption della finestra attiva.

grazie ragazzi

[oregon]

Ecco ... vedi che non si era capito cosa volessi fare ...

Se inserisci una label e un timer impostato a 100 o 200 millisecondi, questo codice potrebbe darti un'idea ...

Private Declare Function GetForegroundWindow _
    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 Sub Timer1_Timer()
    Dim h As Long
    Dim b As String
    
    h = GetForegroundWindow
    If h = 0 Then Exit Sub
    
    b = Space(512)
    GetWindowText h, b, Len(b)
    label1.Caption = Left$(b, InStr(b, Chr$(0)) - 1)
End Sub

[md76]

grazie

md76