userform1.hide geeft geen trigger ?

[sylvester-ponte]

hallo, als ik van uit vba een userform hide ontstaat er geen trigger. (misschien zoek ik fout)

als ik de userform met de X (rechts boven) afsluit ontstaat er een trigger via userform1_terminate.

kan vba een userform sluiten zodat er een trigger ontstaat?

of hoe heet die X (rechts boven ) in vba (userform1.terminate wordt niet ondersteund)

ik wil graag de userform afsluiten via vba en dat er een trigger ontstaat.

zie voorbeeld.

 

[snb]

Wart is er mis met het afsluitkruisje in de rechterbovenhoek ?

 

[sylvester-ponte]

hallo snb, met dat kruisje is niets mis.

ik wil graag via vba dat afsluitkruisje na doen. dan krijg ik tenminste een trigger als ik ergens met vba de userform sluit.

ik wil als een userform afgesloten wordt, de status van de userform opslaan( hoogte breedte zoom locatie e.d.)

 

[snb]

Waarom stel je die dan niet in in de Initialize-gebeurtenis ?
Of liever nog in de ontwerpmodus ?

 

[sylvester-ponte]

als iemand de userform bvb verplaatst tijdens het gebruik wil ik dat opslaan asl hij afgesloten wordt.
zodat als hij hem weer opent de userform op de laatste gebruikte plek verschijnt .

 

[snb]

Daarvoor kun je dan de queryclose-gebeurtenis, gecombineerd met de Initialize-gebeurtenis gebruiken.

 

[sylvester-ponte]

hoe met ik dan de userfrom via vba sluiten?

ps aan de terminate trigger heb je niet veel, want die trigger komt pas na dat je userform geterminated is en dan zij de gegevens van de userform ook weg.

 

[snb]

Laat de gebruiker gewoon het kruisje gebruiken.
Het VBA equivalent is : unload Me
Jouw VBA-code komt in queryclose.van het userform.

 

[edmoor]

De Userform1.Hide heeft inderdaad geen event.
In jouw geval hoeft dat ook niet want wanneer je daarna Userform1.Show doet staat hij weer op dezelfde plek als waar hij verdween en alle objecten zijn dan nog gevuld.

De QueryClose heeft 2 CloseModes die je kan gebruiken.
Kijk daar maar eens naar.
Als je op het kruisje klikt is dat 0 en wanneer je een Unload doet is dat 1.

Dus dit in je module:

Sub sluiten()
  Unload UserForm1
End Sub

En zoiets in de Userform:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 1 Then
        Me.Hide
        Cancel = True
    End If
End Sub

 

[sylvester-ponte]

bedankt allen, :thumb:
met unload ben ik er, dat werkt het zelfde als wanneer de gebruiker per ongeluk het kruisje gebruikt.

 

[snb]

De Userform1.Hide heeft inderdaad geen event.

Deactivate

 

[sylvester-ponte]

snb, UserForm_Deactivate wordt in mijn voorbeeld nooit geactiveerd.
ook niet via het kruisje

 

[snb]

Deze wqwel als je iets aan de positie van het userform zelf doet:

Private Sub UserForm_Layout()
    Tag = Join(Array(Top, Left, Height, Width), ";")
End Sub