Formulier hercentreren na uitklappen

[hellboy01]

Hallo forum,

Ik probeer mijn formulier in het midden van mijn scherm gecentreerd te krijgen na het uitklappen van een listbox die dus helaas dan buiten mijn scherm komt.
Ik heb in de properties bij StartUpPosition=02-CenterScreen staan, maar nu wil ik deze via vba code na het aanklikken van mijn button dat het scherm zich opnieuw centreerd.

ik heb deze code geprobeerd

Private Sub cmdVisible_Click() ' knop Zichtbaar wordt Verbergen na indrukken

'Application.Visible = True
'Me.Hide

 ListBox1.RowSource = "A3:E" & Range("E" & Rows.Count).End(xlUp).Row
 
 
 
 frmNewFilm.StartUpPosition = 2 - centerscreen
 
 
 
    If cmdVisible.Caption = "Zichtbaar" Then
        frmNewFilm.Height = 340
        'frmNewFilm.Top = 100
        cmdVisible.Caption = "Verbergen"
        
        Else
        frmNewFilm.Height = 190
        'frmNewFilm.Top = 200
        cmdVisible.Caption = "Zichtbaar"
        cmdVisible.BackColor = vbButtonFace
        cmdVisible.Font.Bold = False
    
    End If

End Sub

Alleen ik krijg het niet werkend. Heeft iemand advies voor mij?

 

[gast0660]

Hoi,
heb je vbtje (zonder gevoelige info)?
Ik heb echt geen idee wat deze quote betekent

na het uitklappen van een listbox die dus helaas dan buiten mijn scherm komt.

Een listbox zet je in een Userform en dan kan je scrollen

 

[hellboy01]

Hi gast0660, wat ik bedoel is dat ik een userform heb met invoervakken en wat knoppen en 1 van die knoppen zorgt dat het userform vergroot wordt (uitklapt zogezegd) zodat de listbox die onderaan staat zichtbaar wordt.
Ik vind het mooier als het formulier gecentreerd blijft na het uitklappen , nu blijft het op de zelfde positie staan maar dan is de onderkant doordat het vergroot wordt opeens een stuk lager. dus ik wil het form op zijn nieuwe centrum gecentreerd hebben.

 

[OctaFish]

Is er een reden waarom je zoveel lege regels in de code zet zodat je wel móet scrollen?
Lijkt mij een kleine moeite om je code even netjes neer te zetten...

Private Sub cmdVisible_Click() ' knop Zichtbaar wordt Verbergen na indrukken
'Application.Visible = True
'Me.Hide
    ListBox1.RowSource = "A3:E" & Range("E" & Rows.Count).End(xlUp).Row
    frmNewFilm.StartUpPosition = 2 - centerscreen
    If cmdVisible.Caption = "Zichtbaar" Then
        frmNewFilm.Height = 340
        'frmNewFilm.Top = 100
        cmdVisible.Caption = "Verbergen"
    Else
        frmNewFilm.Height = 190
        'frmNewFilm.Top = 200
        cmdVisible.Caption = "Zichtbaar"
        cmdVisible.BackColor = vbButtonFace
        cmdVisible.Font.Bold = False
    End If

End Sub

 

[hellboy01]

Hi Octafish, sorry was even quick and dirty gaat alleen maar om dit stuk

frmNewFilm.StartUpPosition = 2 - centerscreen

waarom werkt dit niet ?

 

[OctaFish]

Kun je een voorbeeldje plaatsen?

 

[hellboy01]

dit geeft helaas ook niet het gewenste resultaat

 With frmNewFilm
 .Top = Int(((Application.Height / 2) + Application.Top) - (.Height / 2))
 .Left = Int(((Application.Width / 2) + Application.Left) - (.Width / 2))
End With

ps alle lege regels verwijderd

 

[hellboy01]

octafish hoe doe ik dat een bestandje plaatsen?

 

[gast0660]

Hoi,
Druk op de knop ga geavanceerd nadien bijlage toevoegen

 

[hellboy01]

Bekijk bijlage FilmDB.xlsm

 

[gast0660]

Hoi,
Je hebt nu wel een bestandje bijgevoegd maar zonder userform

 

[hellboy01]

Bekijk bijlage FilmDB.xlsm

sorry eerste was zonder makro's

 

[gast0660]

Hoi,
Zoiets?

 

[hellboy01]

Hoi gast0660,

Dat is wat ik wil dat het form doet, alleen als ik jouw code onder de knop "Zichtbaar" zet zodat de form zich automatisch centreert ongeacht klein of groot gaat het formulier raar doen.
Weet je daar mischien wat voor?

 

[gast0660]

Hoi,
Vreemd, bij werkt het perfect.
Ik heb de code zelf onder de knop zichtbaar gezet en uitgetest
probeer het ook nog eens

 

[hellboy01]

Hoi,
Nu werkt het bij mij ook , vreemd inderdaad, kan zijn omdat ik excel afgesloten heb en weer aangezet ???
Maar hardstikke bedankt voor het oplossen. Kan ik weer verder hobbien :thumb:

toch nog even jouw code bekeken.
Ik zie het al ik had jouw code bovenin mijn sub "zichtbaar" gezet en in jouw versie staat de code onderin de sub, blijkbaar maakt de volgorde toch wel verschil wanneer iets getriggerd wordt. Goed dat ik dat weet loop wel vaker tegen iets onbegrijpelijks aan dat gewoon moet werken.

 

[gast0660]

Mooi zo,
:thumb: