[vb6] Hoe een form "Always on top"?

[Verwijderd]

Hi y'all
Weet iemand hoe je in visual basic het voor elkaar krijgt dat een bepaalde form niet steeds achter andere schermpjes verdwijnt (always on top, zoals winamp of msn)?

Het staat niet in de properties. Maar het kan wel. Moet het met een code? Wat is die code??? thanx!

[roelkw]

Bij Delphi staat 't wel in de properties van het form, lijkt me eignelijk ook best wel logisch.. issut niet ergens verborgen?

En trouwens: zoek 'ns in de VB-manual op "always on top", wedden dat je iets vind?

[Crazy D]

Nee, je hebt er een API call voor nodig...:

code:

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

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

Public Function SetAlwaysOnTop(ByVal pbOnTop As Boolean, ByVal hWnd As Long)
    SetWindowPos hWnd, IIf(pbOnTop, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Function

[Verwijderd]

Ok thanx! maar hoe gaat de code dan, als ik Form1 always on top wil laten zijn?


Private Sub Form_Load()

SetAlwaysOnTop True, (en dan??)

End Sub

[Verwijderd]

Op donderdag 05 juli 2001 22:01 schreef Teup het volgende:
Ok thanx! maar hoe gaat de code dan, als ik Form1 always on top wil laten zijn?


Private Sub Form_Load()

SetAlwaysOnTop True, (en dan??)

End Sub

hwnd is de handle van je window
dus als je form1 on top wil zetten zeg je

SetAlwaysOnTop True, Form1.hwnd

[Verwijderd]

ok! ja dat hwnd heb ik altijd maar een Btje ontweken, dat snapte ik nooit echt

[Gerco]

Op vrijdag 06 juli 2001 00:12 schreef Teup het volgende:
ok! ja dat hwnd heb ik altijd maar een Btje ontweken, dat snapte ik nooit echt

Dan is nu de tijd gekomen om eens te gaan kijken wat het is. hWnd is een waarde die het window voor windows uniek identificeert. Dus als je wilt dat windows IETS met je window doet, moet je 1-of-andere functie aanroepen en de hWnd meegeven om te vertellen met welk window hij het moet doen.

Op die manier kun je vaak ook windows van andere applicaties manipuleren (sluiten, minimizen, moven, etc.) door hun hWnd op te zoeken en die door te passen aan bepaalde windows API functies.

[Crazy D]

Let wel, hWnd gebruik je in principe alleen als je de Api gebruikt, binnen VB heb je 'm in principe niet nodig.

[Mir]

Ok..antwoord is al gegeven..dit is ook niet echt wat hij zoekt..maar misschien wel weer leuk 4 just knowing (ofzo ;-) )

code:

me.show vbModal

of

code:

chatform.show vbModal

gr. Maarten

(of hebik het weer mis? )

[baskabas]

Op vrijdag 06 juli 2001 16:33 schreef Mir het volgende:
Ok..antwoord is al gegeven..dit is ook niet echt wat hij zoekt..maar misschien wel weer leuk 4 just knowing (ofzo ;-) )

code:

me.show vbModal

of

code:

chatform.show vbModal

gr. Maarten

(of hebik het weer mis? )

Yep, is alleen geldig voor de forms binnen je project.

[Mir]

is idd wel even leuk om te zeggen wat het doet

Het zorgt er dus voor dat een 2e form in je project voorop blijft staan en de achterligende niet meer gebruikt kunnen worden en alleenmaar zichtbaar zijn..

of is dit prz hetzelfde als wat teknogecko zei?

[baskabas]

Lol! Dat was eigenlijk wel de bedoeling... marja ... nu is het zeker duidelijk!

[Knutselsmurf]

Op vrijdag 06 juli 2001 16:40 schreef Mir het volgende:
is idd wel even leuk om te zeggen wat het doet

Het zorgt er dus voor dat een 2e form in je project voorop blijft staan en de achterligende niet meer gebruikt kunnen worden en alleenmaar zichtbaar zijn..

of is dit prz hetzelfde als wat teknogecko zei?

In dat geval is een andere oplossing waarschijnlijk handiger. Ik ben niet helemaal thuis in VB, maar in Delphi kun je ipv. form2.show form2.showmodal gebruiken. Dan komt form2 naar de voorgrond en blijft actief totdat het gesloten wordt. De andere forms uit je applicatie zijn dan niet actief.
Of wil je dat er ook geen andere applicaties voor kunnen komen? In dat geval zal je die API-functie moeten gebruiken. Daarmee zorg je er echter niet voor dat achterliggende windows niet actief worden... Kijk maar naar Winamp. Die blijft op de voorgrond maar is niet actief.

[Crazy D]

Maar als je ook nog eens wilt dat geen andere app dan de jouwe actief kan worden, kun je nog een subclassje over je form heengooien, en afvangen wanneer je form de focus verliest, en dan de focus terugzetten (niet netjes, werkt wel )
vbModal is trouwens idd dat die form die je modal showt, voor de andere forms in het project komt te hangen, en die andere forms zijn niet te gebruiken door de gebruiker totdat de modale form gesloten is.
vbModeless is het gewoon een 2e windootje wat open is (zoals een nieuw mailtje maken in Outlook), maar je kan vrolijk verder werken in de 1e.

[Mir]

Op vrijdag 06 juli 2001 16:54 schreef Knutselsmurf het volgende:

[..]

In dat geval is een andere oplossing waarschijnlijk handiger. Ik ben niet helemaal thuis in VB, maar in Delphi kun je ipv. form2.show form2.showmodal gebruiken. Dan komt form2 naar de voorgrond en blijft actief totdat het gesloten wordt. De andere forms uit je applicatie zijn dan niet actief.
Of wil je dat er ook geen andere applicaties voor kunnen komen? In dat geval zal je die API-functie moeten gebruiken. Daarmee zorg je er echter niet voor dat achterliggende windows niet actief worden... Kijk maar naar Winamp. Die blijft op de voorgrond maar is niet actief.

Nee, dit werkt niet zo in VB... je kan namenlijk met form2.show [iets] veel meer doen dan alleen vbModal.. zijn geloof ik (uit mn hoofd) 6 verschillende 'opties'.

[BramT]

Goed.. ik haal 'm weer even naar boven want ik zit met hetzelfde probleem... en deze oplossingen (en uit andere threads) werken niet helemaal..

Ik wil, heel simpel, dat mijn progje een ander programma start. MAAR wel een splashscreen (form1) laat zien die een seconde of 2 blijft staan BOVEN het net gestarte programma... (er gebeurt nog veel meer gerommel in de achtergrond, maar dat doet er even niet toe)

Probleem (1 van de iig) is dat je niet weet wanneer het 2e progje is geladen en zichzelf laat zien...

Ik ben een 100% noob met VB, heb dit projectje overgenomen van iemand anders, dus aub beetje uitleg erbij (ken wel andere programeertalen, dus de basics ken ik wel.. )


(
vbModal functie geeft error: "window already is modal" ofzoiets..
en de oplossing van Crazy D ziet er goed uit, maar heeft geen effect... (m'n form verdwijnt nog steeds achter het net geopende programma)
het nieuwe programma is overigens niet "always on top"
)

[ Voor 19% gewijzigd door BramT op 07-08-2003 05:13 ]

[farlane]

BramT schreef op 07 August 2003 @ 05:11:
vbModal functie geeft error: "window already is modal" ofzoiets..
en de oplossing van Crazy D ziet er goed uit, maar heeft geen effect... (m'n form verdwijnt nog steeds achter het net geopende programma)
het nieuwe programma is overigens niet "always on top"
)

'Cant show non-modal form when modal form is displayed'
Betekent wat het zegt, als je een modal form hebt ( bv een dialoog formpje ) kun je geen non-modal form laten displayen. Dit is logisch want het modal form moet eerst worden gesloten, aangezien het in je applicatie exclusief de focus heeft.

Met die API call zou je in principe topmost moeten zijn, maar als er een nieuw window wordt geopend wordt hij topmost. Je moet dan opnieuw je window topmost maken.

[GigaDave56]

@ BramT

Zelf heb ik mijn splash screen zo opgezet. Eerst laad ik de splash, die ik vooraan zet via de eigenschap .ZOrder. Dan laadt ik het hoofdscherm, die ik achteraan zet via de eigenschap .ZOrder en disable hem.

Als het hoofdscherm de focus krijgt als het splash screen er nog is, zet ik het hoofdscherm weer achteraan en geef de focus terug aan het splash screen.
Als het splash screen verdwijnt, wordt het hoofdscherm enabled.

Misschien niet de meest nette methode, maar het werkt voor mij.

[BramT]

Hmmmja, probleem is dus dat het om een compleet extern programma gaat.. Of kan ik vanuit een vb-progje ieder willekeurig programma op deze manier aanpassen?

[BramT]

Fantastisch.. heb het al gevonden...

Het werkte dus allemaal wel, maar er stond nog een "End" commando ergens waar die niet moest staan...

dom dom dom dom dom

[comprobot]

End is niet goed..

[comprobot]

zoek goed

[curry684]

Gaat nergens meer over