Form: Min. størrelse

[DevN]

Håper på raskt svar, da jeg muligens ikke vil bli sett her på en god stund etter en gang i dag.

 

Ønsker å sette en minimum størrelse på en form, så kom over to koder da. En enkel og kort kode, men da "flimrer" formen. Altså den låser seg ikke på størrelsen, den går tilbake til minimum størrelsen hvis man trekker den mer sammen.

 

En annen kode brukte en module, mye større funksjon. Den funket ganske greit, men da måtte formen avsluttes vha X-knappen, jeg vil også at den skal kunne avsluttes fra Fil - Avslutt.

Det var altså denne koden.

 

Noen som kan gi meg en løsning?

 

EDIT: Skrivefeil.

Endret 28. april 2004 av DevN

[Jonas]

Du må Unhook'e formen får du end'er. Legg til en knapp og en timer. Sett interval til 1 og enabled til false og paste denne koden inn:

Private Sub Command1_Click()
Unhook
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

Det funka ikke hvis du end'a rett etter så et lite mellom rom var nok. Hvertfall her

 

Edit: Takk for en god resize kode!

Endret 28. april 2004 av Jonas

[DevN]

Tusen takk for hjelpen, funka nå.