Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Aktywne okna
OPAX
RatNet



Typ: neutral
Postów: 21
Zarejestrowany: Mar 2005
Aktywne okna

Witam
Jak zrobic zeby w listbox były wyswietlone wszystkie aktywne okna i można by bylo jakies okno Zabić. Czy ktos wie jak to zrobici????


_____________________________________________
Sendpack packet

22-04-2005 11:13
Pokaż profil OPAX  Wyślij email do OPAX   Odwiedź stronę OPAX       8910371
marmaj82
mariusz m



Typ: neutral
Postów: 11
Zarejestrowany: Apr 2005

powiedz o jakie okna ci chodzi.
czy aktywne okna danego proektu, czy raczej wszelkiego rodzaju inne okna (programy itp)


_____________________________________________
...expect unexpected...

22-04-2005 17:53
Pokaż profil marmaj82  Wyślij email do marmaj82        3330636
marmaj82
mariusz m



Typ: neutral
Postów: 11
Zarejestrowany: Apr 2005

bo jesli chodzi ci o okna otwarte przez aktualny projekt (czyli inaczej mowiac aktywne formatki) to masz:

'wyswietla aktywne okna i wrzuca je do pola listy

Dim x As Form
For Each x In Forms
List1.AddItem x.Name
Next x

'zamyka wybrane przez ciebie okno

Private Sub list1_Click()

Dim sNazwaFormy As String
sNazwaFormy = List1.Text
Call ZamknijForme(sNazwaFormy)
End Sub

Function ZamknijForme(ByVal sNazwaFormy As String)
Dim i As Long
Do While i < Forms.Count
    If Forms(i).Name = sNazwaFormy Then
      Unload Forms(i)
      If sNazwaFormy <> "frmMain" Then
      List1.RemoveItem (i)
      End If
     
    End If
i = i + 1
Loop
End Function


_____________________________________________
...expect unexpected...

22-04-2005 17:56
Pokaż profil marmaj82  Wyślij email do marmaj82        3330636
OPAX
RatNet



Typ: neutral
Postów: 21
Zarejestrowany: Mar 2005

Chodzi mi o wszystkie okna które są ktwarte np. notatnik internet explorer itp. i jak te okna by morzna zamknac??


_____________________________________________
Sendpack packet

22-04-2005 19:38
Pokaż profil OPAX  Wyślij email do OPAX   Odwiedź stronę OPAX       8910371
marmaj82
mariusz m



Typ: neutral
Postów: 11
Zarejestrowany: Apr 2005

do tego sa funkcje API.
nie pamietam teraz ktora z nich to byla, ale polecam narzedzie o nazwie API Guide, tam jest wiele funkcji, dobrze opisanych


_____________________________________________
...expect unexpected...

22-04-2005 22:18
Pokaż profil marmaj82  Wyślij email do marmaj82        3330636
Jeż



Typ: neutral
Postów: 55
Zarejestrowany: Mar 2004

"Co działa" - jest taki programik autorstwa KaDwa na tym forum. Gdyby go już nie było - mogę Ci go podesłać.

23-04-2005 18:30
Pokaż profil Jeż  Wyślij email do Jeż   
OPAX
RatNet



Typ: neutral
Postów: 21
Zarejestrowany: Mar 2005

to przesli


_____________________________________________
Sendpack packet

23-04-2005 19:37
Pokaż profil OPAX  Wyślij email do OPAX   Odwiedź stronę OPAX       8910371
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Moglibyście mi też taki programik podesłąć? Jak zabić okno to wiem, tylko nie wiem właśnie jak zdobyć listę okien


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

24-04-2005 16:27
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Jeż



Typ: neutral
Postów: 55
Zarejestrowany: Mar 2004

kliknij tutaj!

24-04-2005 23:57
Pokaż profil Jeż  Wyślij email do Jeż   
Wszystkich odpowiedzi: 8 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1