Keskustelu: Ohjelmointikysymykset: VB6: VB ActiveForm

niin, kekkasin ton screen.activeform mutta ei se anna muuta kun sen formin mikä on käynnissä, eli onko jotain vastaavaa joka antaisi aktiivin ikkunan esim. intternet eksplorer?

WinApia tarvitaan taas. Funktiolla GetForegroundWindow saat selville aktiivisen ohjelman ikkunan tunnisteen (hWnd), ja tämän tunnisteen avulla GetWindowText-funktio palauttaa ikkunan otsikkotekstin.

Funktioiden määrittelyt:

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

Esimerkki:

Dim x As Long, teksti As String * 255
x = GetWindowText(GetForegroundWindow, teksti, 255)
'nyt teksti-muuttuja sisältää aktiivisen ikkunan otsikkorivin tekstin

Lisätietoa käytetyistä funktioista löytyy MSDN:stä.

Kiitokset!