[VB] Form property "icon"

[Verwijderd]

Hoe kan ik een icon van een form toch zichtbaar maken als ik de controlbox heb uitgeschakeld (=>controlbox = false).

Ik wil wel een icoon bovenaan het form
Maar geen form minimize, maximize en close.

De gekozen border style = fixed single
De caption is niet leeg

Heb naar mijn mening alle mogelijkheden al uitgetest, misschien nog iemand iedeeen.

[Skinny]

Niet helemaal zoals gevraagd, wel hetzelfde resultaat :

code:

Form.MaxButton = False
Form.MinButton = False

Private Sub Form_Unload(Cancel As Integer)
   Cancel = True
End Sub

[Verwijderd]

Sorry is niet helemaal wat ik zoek

Is het niet mogelijk met de standaard propertys van een form??

Ik wil de form opties die standaard rechts boven in het form staan niet gebruiken (en ook niet zichtbaar hebben). De applicatie moet gaan draaien op een touch-screen, en ik wil dus een grotere knop voor afsluiten op een andere plaats.

[Skinny]

Waarom is dat Icon dan zo belangrijk ?
Zet eventueel een bitmapje linksbovenin ofzo.

[johnwoo]

Ik dacht dat je met SetWindowLong het systeemmenuutje wel kon disablen (en het Close knopje ook, of dat ging zelfs samen).

[Verwijderd]

Het is niet mogelijk je CloseButton niet te laten zien en je Icon wel.

Je kunt wel je CloseButton disabelen:

code:

Option Explicit
Public Const MF_BYPOSITION = &H400&
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Sub DisableCloseWindowButton(ByRef frmForm As Object)

    Dim lngSysmenu As Long

    'Get the handle to this windows
    'system menu
    lngSysmenu = GetSystemMenu(frmForm.hwnd, 0)

    'Remove the Close menu item
    'This will also disable the close button
    RemoveMenu lngSysmenu, 6, MF_BYPOSITION

    'Lastly, we remove the seperator bar
    RemoveMenu lngSysmenu, 5, MF_BYPOSITION

End Sub

Als je dan ook nog in Design-time je min en max buttons op False zet, dan heb je volgens mij wat jij bedoelt.

Suc6

p.s. Prak deze code in een module...

[Exterazzo]

hehe KingGeorge helpt KingLois uit de brand waar koninkrijken toch al niet goed voor zijn

[Birk]

Kan je dan niet veel beter gewoon de app full screen maken en dan je hele screen lay-out zelf maken etc...

Dat icoontje heb je dan ook helemaal niet nodig