Office: Userform Minimieren Maximieren (Klassenmodul)

Excel 2007/2010 (VBA)

Hi Leute,
ich kenn mich mit Klassenmodule wenig aus und habe daher folgendes Problem.
Meine Userform hat neben dem Schließkreuz rechts oben nun auch die Minimeren und Maximieren Schaltflächen dank der Codes (siehe Quellenangaben) die u.a. im Klassenmodul stehen.

Frage:
Ich möchte nun, dass die Userform direkt nach dem Aufruf „maximal“ („Vergrößern“) und somit gleich Bildschirmfüllend erscheint.
Vereinfacht gesagt möchte ich per VBA die Maximieren Schaltfläche neben dem Schließkreuz nach dem Start betätigen.

Derzeit erscheint die Userform beim Start am Bildschirm im „Verkleinern“ Modus
und hat die Abmessungen der Eigenschaften (width, height).


Hinweis:
Es reicht mir leider nicht die width und height Eigenschaft der Userform beim Start (Initialisieren) auf
Userform1.Height = Application.Height
Userform1.Width = Application.Width
zu stellen, denn dann ist die Userform ja immer noch nicht im Vergrößern“-Modus (komplett maximiert).
Zwischen „Verkleinern“ und „Vergrößern“ wäre zu dem auch kaum ein Unterschied zu erkennen (beides wäre annähernd Bildschirmgroß)
und ein „Ziehen“ der Userformränder mit der Maus wäre dann auch nicht mehr so einfach möglich…

Danke für jegliche Information!

Quellenangaben:
www.herber.de/forum/archiv/796to800/t799902.htm
www.vb-fun.de


Grüße
Lombe

:)

 

Morgen,

ändere im Klassenmodul die Zeile:

Code:

in:

Code:

und definiere das als:

Code:

HTH, Bernd

 

Hi Bernd,
das hat super geklappt mit den 2 Zeilen ändern!!!
Ich konnte dann den Code auch super in meinem eigentlichen Projekt einbinden.
DANKE NOCHMAL!!!

Grüße
Lombe

 

Hi Bernd,
es ergibt sich nun doch noch eine weitere Frage.

ist es möglich, dass im verkleinern Modus, rechts und unten ein Scrollbalken (ScrollBarsBoth) in der Userform erscheinen,
diese Scrollbalken aber im maximierten Zustand (das ist der Normalzustand der Userform) wieder verschwinden?

Gruß
Lombe

 

Hi Lombe,

wenn Du da normale ScrollBar-Objekte (Bildlaufleiste) aus der Werkzeugsammlung nimmst kannst Du die via Eigenschaft Visible einfach ein/-ausblenden.

Nimm dazu im Klassenmodul der Userform das Ereignis Resize und teste dort m_objUserForm.gIsIconic bzw. m_objUserForm.gIsZoomed.

Passe ggf. noch deren Position und Grösse an. In etwa so.

ScrollBar1 ist hier der vertikale, ScollBar2 der horizontale Bar.

Code:

HTH, Bernd

 

Hi Bernd,
ich hab's jetzt mit der Eigenschaft der Userform selbst gelöst...

Code:

Merci noch mal

 

Morgen,

Das wird wohl hier auch der bessere Weg sein...

cu, Bernd

 

Hallo Zusammen,
ich hab ein Problem und zwar würde ich gerne beim Drücken des Maximierbuttons nicht nur meine UserForm sondern auch meine TextBox'en und Lables an die Auflösung anpassen.
Das Anpassen würde ich hin bekommen bloß weiß ich nicht wo der Click befehl des MaximierButtons ist.
gibt es da eine art befehl:

Privat Sub MAXIMIZEBOX_Click()

i=1.2 '(ZoomFaktor von 120%)

CommandButton13.Width = 518 * i
CommandButton13.Left = 6 * i

TextBox1.Width = 72 * i
TextBox1.Left = 288 * i
TextBox1.Font.Size = 9 * i
TextBox2.Width = 72 * i
TextBox2.Left = 288 * i

End Sub

Vielen Danke Gruß Lukas

 

Hi,

nein, den gibt es soweit mir bekannt ist nicht. Du kannst aber:

Private Sub UserForm_Resize()

benutzen. Teste dort m_objUserForm.gIsIconic, m_objUserForm.gIsZoomed sowie Me.Width und Me.Height.

cu, Bernd

 

Hi,
also das mit dem

Private Sub UserForm_Resize()

klappt hervorragend.

Bloß geht quasi die Reresize-funktion nicht also wenn ich auf maximieren klicke passt es sich meinem Bildschirm an aber wenn ich dann minimiren klicke minimiert sich nur die userform nicht meine TextBoxen und co

wie kann ich das erreichen?

Gruß

 

Ok habe eine If Schleife eingebaut jetzt klappt alles!
Danke!