|
Co zrobić, aby okienko było zawsze na wierzchu? |
|
|
|
Napisał Administrator
|
|
poniedziałek, 03 październik 2005 |
'W module kodu deklarujemy sta?e:
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40
'a nast?pnie funkcj? API:
Declare Sub SetWindowPos Lib "User32.dll" (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)
'Teraz wpisujemy funkcj?:
Function StayTop(nazwaFormy As Form, FormOnTop As Boolean)
If FormOnTop = True Then
'Forma na wierzch
SetWindowPos nazwaFormy.hwnd, HWND_TOPMOST, nazwaFormy.Left / 15, _
nazwaFormy.Top / 15, nazwaFormy.Width / 15, _
nazwaFormy.Height / 15, SWP_NOACTIVA
TE Or SWP_SHOWWINDOW
ElseIf FormOnTop = False Then
'Forma pod spód
SetWindowPos nazwaFormy.hwnd, HWND_NOTOPMOST, nazwaFormy.Left / 15, _
nazwaFormy.Top / 15, nazwaFormy.Width / 15, _
nazwaFormy.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End Function
'Teraz wystarczy wpisa?
' StayTop form1,true - aby form1 mialo atrybut zawsze na wierzchu
' SteyTop form1,false - aby form1 powróci?o do normy
|
pytanie
Dodane przez scigi w dniu - 2010-10-16 17:28:51
zaczynam w VB - wpisałem wszystko jak powyżej i nie działa - tu moje pytanie gdzie mam wpisać i dokładnie jak ( StayTop form1,true) - czy form1 to nazwa formy?
Z poważaniem Marek Zagajewski |
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |
