Lemur zaprasza
Strona: [ > ] z 1 Autor Temat: Aktywne okno PAWKO Typ: neutral Postów: 42 Zarejestrowany: Mar 2003 Aktywne okno Mam kod: Private Sub Timer3_Timer() Dim hwnd As Long, hWndLength As Long, hWndTitle As String, lastTitle As String lastTitle = "" hwnd = GetForegroundWindow hWndLength = GetWindowTextLength(hwnd) hWndTitle = String$(hWndLength, 0) Temp = GetWindowText(hwnd, hWndTitle, hWndLength + 1) If hWndTitle = lastTitle Then Label1.Caption = "bez zman" ElseIf hWndTitle <> lastTitle Then Label1.Caption = hWndTitle Label3.Caption = lastTitle lastTitle = hWndTitle End If End Sub interval timera 0.5sek Wg mojgo rozumowania gdy okno jest aktywne label powinien pokazywac "bez zmian". Jezeli okno aktywne sie zmieni label powinien na chwile pokazac jego nazwe a potem znow "bez zmian". Jest jednak tak ze label pokazuje caly czas nazwe aktywnego okna. 14-11-2004 22:43 PAWKO Typ: neutral Postów: 42 Zarejestrowany: Mar 2003 Wystarczyło zadeklarowac zmienne w sekcji general declaration. 14-11-2004 23:33 Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |