Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Uvek na vrhu

[es] :: Visual Basic 6 :: Uvek na vrhu

[ Pregleda: 4117 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

misa2000
Lazic Miodrag
Sabac

Član broj: 3666
Poruke: 39
212.62.58.*

Jabber: Misha@elitesecurity.org
Sajt: www.slimcomputer.net


Profil

icon Uvek na vrhu30.08.2002. u 23:44 - pre 262 meseci
kako da izvedem da mi obrazac bude uvek "iznad" ostalih otvorenih prozora?(Always on top, na pr. Winamp), hvala unapred!
 
Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096



+51 Profil

icon Re: Uvek na vrhu31.08.2002. u 09:58 - pre 262 meseci
Moze ovako nekako:
Code:

Option Explicit

Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Declare Function SetWindowPos Lib "user32" _
   (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
    ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
    ByVal cy As Long, ByVal wFlags As Long) As Long


Sada mozes koristiti dve rutine (za postavljanje na 'top' i za vracanje u 'normalu'):

Code:

Public Sub MakeWindowAlwaysTop(hwnd As Long)
 SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
   SWP_NOMOVE + SWP_NOSIZE
End Sub

Public Sub MakeWindowNotTop(hwnd As Long)
  SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
     SWP_NOMOVE + SWP_NOSIZE
End Sub


Rutine koristis tako sto prosledis hWnd svojstvo forme.

HTH
Commercial-Free !!!
 
Odgovor na temu

misa2000
Lazic Miodrag
Sabac

Član broj: 3666
Poruke: 39
212.62.58.*

Jabber: Misha@elitesecurity.org
Sajt: www.slimcomputer.net


Profil

icon Re: Uvek na vrhu31.08.2002. u 23:47 - pre 262 meseci
Hvala, to je to!
 
Odgovor na temu

[es] :: Visual Basic 6 :: Uvek na vrhu

[ Pregleda: 4117 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.