Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Minimalizacja programów
dk




Typ: neutral
Postów: 8
Zarejestrowany: May 2004
Minimalizacja programów

Witam
Jam zminimalizować uruchomione programy, ściągnąć do paska.

24-05-2004 13:07
Pokaż profil dk  Wyślij email do dk   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Chodzi ci żeby zminimalizowac program zaraz po uruchomieniu? Jezeli tak to najprostszy kawałek kodu wyglada nastepujaco:
Private Sub Form_Load()
Form1.WindowState = vbMinimized
End Sub


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

24-05-2004 13:29
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
dk




Typ: neutral
Postów: 8
Zarejestrowany: May 2004

przykład
odpalam program napisany w VB potem odpalm np. jakąś gre. I teraz chce aby program (VB) ściągną tą gre do paska.Klawiaturą robimy to przez Ctrl+Esc.

24-05-2004 14:38
Pokaż profil dk  Wyślij email do dk   
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Bez API raczej się nie obejdzie. Najpierw trzeba znaleść prawdopodobnie hwnd tej aplikacji a potem użyć jakiejś funkcji do zminimalizowania okna. Nie znam wszystkich API operujących na oknach więc raczej ci więcej nie pomoge ale napewno któryś z forumowiczów zarzuci odpowiednią funkcje.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

24-05-2004 20:15
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

Nie wiem czy o to Ci chodzi, jestem na modemie, wiec mam malo czasu do konca impulsu . Przyklad z API-Guide.

Private Const SW_MINIMIZE = 6
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Type WINDOWPLACEMENT
        Length As Long
        flags As Long
        showCmd As Long
        ptMinPosition As POINTAPI
        ptMaxPosition As POINTAPI
        rcNormalPosition As RECT
End Type
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Dim Rectan As RECT
Private Sub Form_Load()
    'Tip submitted by pyp99 ()
    Dim WinEst As WINDOWPLACEMENT
    Dim rtn As Long
    WinEst.Length = Len(WinEst)
    'get the current window placement
    rtn = GetWindowPlacement(Me.hwnd, WinEst)
    Rectan = WinEst.rcNormalPosition
End Sub
Private Sub Command1_Click()
    Dim WinEst As WINDOWPLACEMENT
    Dim Punto As POINTAPI
    Dim rtn As Long
    'set the new min/max positions
    Punto.x = 100
    Punto.y = 100
    'initialize the structure
    WinEst.Length = Len(WinEst)
    WinEst.showCmd = SW_MINIMIZE
    WinEst.ptMinPosition = Punto
    WinEst.ptMaxPosition = Punto
    WinEst.rcNormalPosition = Rectan
    'set the new window placement (minimized)
    rtn = SetWindowPlacement(Me.hwnd, WinEst)
End Sub


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


27-05-2004 17:58
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
dk




Typ: neutral
Postów: 8
Zarejestrowany: May 2004

Dzięki Viper ale po skopiowaniu tego kodu i odpaleniu go minimalizuje mi się tylko program utworzony przez ten kod (VB) inne uruchomione programy pozostają bez zmian czyli nie ściągają się do paska. Może jeszcze jakiś pomysł masz ?
Pozdrawiam

28-05-2004 13:14
Pokaż profil dk  Wyślij email do dk   
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

No sie nie dziwie że sie tak dzieje - to był sampel jak zminimalizować dowolne okno. Żeby zminimalizować wszystkie otwarte okna musisz zdobyć (przeskanować/wyszukać) wszystkie uchwyty otwartych okien i wstawiać je pokoli w miejsce  SetWindowPlacement(uchwyt, WinEst)

a jak pozyskać uchwyty wszystkich okien masz opisane w vbFAQ - którego jeżeli jescze nie masz polecam jak najszybciej ściągnąć


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

28-05-2004 14:00
Pokaż profil m-a-x  Wyślij email do m-a-x   
dk




Typ: neutral
Postów: 8
Zarejestrowany: May 2004

Dzięki MAX za podpowiedź. Jednak widze , że temat jest troche skąplikowany jak dla mnie ale dam rade (chyba).No cóż jak to się mówi "masz łeb i ..uj to kombinuj".
Pozdrawiam !!!

28-05-2004 15:27
Pokaż profil dk  Wyślij email do dk   
Viper87



Typ: neutral
Postów: 490
Zarejestrowany: Oct 2002

A ja Ci doradzam jeszcze raz: ściągnij API-guide. Masz w nim opisane wszytskie (prawie) funkcje API wraz z przykładami kodu. Szukasz przykładu, kopiujesz i patrzysz jak działa. W ten sposób łatwiej zrozumiesz API. Powodzenia .

Oto adres: http://www.mentalis.org/agnet/apiguide.shtml


_____________________________________________
Viper

"Savoir c`est prevoir, prevoir c`est prevenir". 
(Wiedzieć to przewidzieć, przewidzieć to zapobiegać) 


29-05-2004 22:14
Pokaż profil Viper87  Wyślij email do Viper87   Odwiedź stronę Viper87  
Wszystkich odpowiedzi: 8 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1