Userform Maximieren Text/CommandButton

[michel34497]

Hallo Leute!

Meine Userformen die ich erstellt habe, können Minimmiert oder Maximiert werden.
Das funktioniert ja auch alles.
Jezt habe ich in den UF's ein Bild eingefügt, die Controls sind alle unter dem Bild angeordnet das man sie sehen kann.
Wird die Uf Maximiert sind alle Controls im Bild verschwunden.

Wie kann man das ändern das wenn die UF Maximiert wird genauso aussieht wie bei der minimierte UF (erstellte UF)?

Ich hoffe es ist verständlich.

[Kuwer]

Hallo Michael,

wie mir scheint, hast den Min/Max-Code von hier: http://www.vb-fun.de/cgi-bin/loadframe.p...0164.shtml

Da ist der Code für die Anpassung der enthaltenen Elemente (im Resize-Ereignis) enthalten.

Genau so musst Du das für alle Elemente in Deinen Userforms machen.

Gruß Uwe

[michel34497]

Hallo Uwe!

Danke für deine antwort.

Ich weiß im moment nicht wo ich was machen soll.

Kannst du mir mal ein Beispiel geben?

[Kuwer]

Hallo Michael,

Kannst du mir mal ein Beispiel geben?

da ist doch schon alles dabei. Das Klassenmodul hast Du ja schon drin. Nun brauchst Du nur noch die Datei frmUserFormResize.frm in (D)eine Datei importieren (Im VBA-Editor Rechtsklick auf das entsprechende VBA-Projekt in der linken Spalte > Datei importieren).

Gruß Uwe

[DbSam]

Hallo Michael,

na, die Commandbuttons schweben im maximierten Zustand in Deinem Bild herum ...

Probiere es damit:

Code:

Private Sub UserForm_Resize()
   Me.CommandButton6.Top = Me.Height - Me.CommandButton6.Height - 45
End Sub

und dann sinngemäß auf die anderen gewünschten Controls anwenden ...


Gruß Carsten

PS:
Lesbarer wird der Code, wenn man den Controls sinnvolle Namen geben würde ...

Edit:
Name korrigiert, hatte versehentlich den Uwe geschrieben.

[Kuwer]

Hallo Carsten,

Hallo Uwe,

na, die Commandbuttons schweben im maximierten Zustand  hinter Deinem Bild herum ...

Probiere es damit:

Code:

Private Sub UserForm_Resize()
   Me.CommandButton6.Top = Me.Height - Me.CommandButton6.Height - 45
End Sub

und dann sinngemäß auf die anderen gewünschten Controls anwenden ...


Gruß Carsten

PS:
Lesbarer wird der Code, wenn man den Controls sinnvolle Namen geben würde ...

wovon sprichst Du?

Gruß Uwe

[DbSam]

Hallo Uwe,

oh, entschuldige. Ich meinte den Michael.


Gruß Carsten


PS:
Ich ändere meinen Beitrag und setze den richtigen Name.