[visual Basic 6.0]Formulier alleen minialiseren

[Verwijderd]

Hoe kan ik in een formulier, alleen het Icoontje minialiseren laten weergeven, zonder dat er andere Iconen in de balk aanwezig zijn zoals maximaliseren en sluiten?

En hoe kan ik er voor zorgen dat het formulier ook niet met ALT F4 af te sluiten is of via de taakbalk?

Bedankt alvast!!!

[.GoO]

Dat kan je bij de properties van een form instellen..

[Verwijderd]

Volgens mij kan dit niet.
Als je een min of een max-button wil, dan moet je ook een close-button hebben.

Je zou het eventueel kunnen oplossen door helemaal een titelbalk te maken en een eigen commandbutton laten werken als min-button.

[edit]
Bij het Form-Event QueryUnload kan je het sluiten van een form tegenhouden...

[Verwijderd]

Op vrijdag 04 januari 2002 10:46 schreef devv05 het volgende:
Dat kan je bij de properties van een form instellen..

Ja, dat weet ik maar dan worden de Maximaliseren en de sluitknop grijs. Deze staan er dus nog wel maar zijn niet meer actief. Ik wil deze totaal weg hebben.

[Verwijderd]

Op vrijdag 04 januari 2002 10:51 schreef Debbus het volgende:
Volgens mij kan dit niet.
Als je een min of een max-button wil, dan moet je ook een close-button hebben.

Je zou het eventueel kunnen oplossen door helemaal een titelbalk te maken en een eigen commandbutton laten werken als min-button.

Ja, daar zat ik ook aan te denken. Maar ik hoopte dat er een simple manier voor was.

[Verwijderd]

Dit kan met een API call.

code:

Public Const MF_BYPOSITION = &H400&

Public Declare Function RemoveMenu Lib "user32" _
    (ByVal hMenu As Long, _
     ByVal nPosition As Long, _
     ByVal wFlags As Long) As Long

Public Declare Function GetSystemMenu Lib "user32" _
    (ByVal hWND As Long, _
     ByVal bRevert As Long) As Long

Public Sub RemoveCloseButton(hWND As Long)
    Dim hSysMenu As Long

    hSysMenu = GetSystemMenu(hWND, 0)
    RemoveMenu hSysMenu, 6, MF_BYPOSITION
    RemoveMenu hSysMenu, 5, MF_BYPOSITION
End Sub

0,05 sec

[stylee]

ti_mon3aan: Hoe kan ik in een formulier, alleen het Icoontje minialiseren laten weergeven, zonder dat er andere Iconen in de balk aanwezig zijn zoals maximaliseren en sluiten?

je kan bijvoorbeeld hier beginnen en gewoon ff wat zoeken op google, je vindt vast wel wat.

En hoe kan ik er voor zorgen dat het formulier ook niet met ALT F4 af te sluiten is of via de taakbalk?

Zie voorgaande, je kan ook in je QueryUnload event cancel op true zetten.

[Verwijderd]

Oh, bedankt Jongens

[Verwijderd]

Maak in je project een module aan (bv modFuncties)
plak de bovenstaande code erin

in je Form doe je dit

code:

Private Sub Form1_Load ()
  RemoveCloseButton Form1.hWnd
End Sub

om dan alt-f4 te disablen doe je

code:

Private Sub Form1_QueryOnload()
' dit weet ik niet vanbuiten
End Sub

(Form1 vervang je wel door de naam van jouw form(ulier))

[Verwijderd]

Grappig die API-call.
Dat je een knop kan disablen door een menu weg te gooien...

Dan heb ik nog wel een andere vraag:
Nu wil ik een extra knop in me titelbalk?

[Verwijderd]

Ik denk dat alleen maar te doen is als je gaat subclassen en je titelbalk zelf tekent (en dus ook extra knop). Maja daar is VB niet echt goed in. Ik denk het gemakkelijkste is je eigen Titelbalk maken.

[Verwijderd]

Op vrijdag 04 januari 2002 11:24 schreef GrAviTy het volgende:
Ik denk dat alleen maar te doen is als je gaat subclassen en je titelbalk zelf tekent (en dus ook extra knop). Maja daar is VB niet echt goed in. Ik denk het gemakkelijkste is je eigen Titelbalk maken.

Waar en hoe kan je dan je eigen titelbalk ontwerpen?

[Crazy D]

Ik kan de file zelf ff niet vinden online, maar dit heb ik in een tekstje staan:

Section: Black Belt Programming
Issue: March 1999
Author: Matt Hart


This file contains the complete listing for Matt Hart's March Black Belt article, "Create Custom Title Bars."

Gaat dus over een sample om een eigen button erbij te plaatsen, werkt vrij behoorlijk.

[Verwijderd]

Op vrijdag 04 januari 2002 16:50 schreef CrazyD_at_work het volgende:
Ik kan de file zelf ff niet vinden online, maar dit heb ik in een tekstje staan:

Section: Black Belt Programming
Issue: March 1999
Author: Matt Hart


This file contains the complete listing for Matt Hart's March Black Belt article, "Create Custom Title Bars."

Gaat dus over een sample om een eigen button erbij te plaatsen, werkt vrij behoorlijk.

Ik heb zelf net dit gevonden
http://www.devx.com/premier/mgznarch/vbpj/1999/03mar99/bb0399.pdf

Ik heb het nog niet goed bekeken, maar het ziet er goed uit.

[Chimera]

Weet je ook een goede componenten site voor vb? Daar staat vast een component om extra buttons te maken, heb ik ook in Delphi 5 (Pascal).

[Gerco]

Op vrijdag 04 januari 2002 11:21 schreef Debbus het volgende:
Dan heb ik nog wel een andere vraag:
Nu wil ik een extra knop in me titelbalk?

Daarvoor gebruik je een ActiveX control die ik voor dat doel geschreven heb, even ergens online zetten, moment.

Deze dus: CaptionButton Control

Hij is nogal beta, maar werkt prima, alleen is het wat lastig als je er meerderen op 1 form wilt zetten, je moet dan met de Offset properties zelf de positie van de buttons op de titlebar aangeven. Ik ben helaas nog niet aan automagisch positioneren toegekomen. Zelfde verhaal met Windows XP button formaten, de buttons hebben wel het goede formaat, maar hun positie moet je nog zelf regelen. Help of documentatie heb ik niet, als je een testproject wilt zien, dan zal ik dat er even bijzetten.

[Verwijderd]

nice, very nice...
thnx

[Gerco]

Op vrijdag 04 januari 2002 21:32 schreef Debbus het volgende:
nice, very nice...
thnx

Graag gedaan, (eventuele) bugs graag mailen naar "gerco at gdries dot com".