Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Größe eines Frames dynamisch gestaltbar?

Größe eines Frames dynamisch gestaltbar?
23.01.2003 11:58:44
Martin

Hallo,

ich benutze eine UserForm, um Daten anzuzeigen. Dazu habe ich eine ComboBox, aus der man sich etwas aussucht. In einem Frame darunter habe ich verschiedene Textboxen, die dann die entsprechenden Informationen anzeigen. Es gibt ca. 20 Textboxen, (untereinander) aber nicht alle Textboxen haben Informationen zu dem Wert aus der ComboBox. Wie man sich vorstellen aknn, ist die UserForm recht groß. Kann man die Größe dynamisch gestalten, so dass sie sich der angezeigten Menge Informationen anpasst?

Gruss,
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Größe eines Frames dynamisch gestaltbar?
23.01.2003 12:54:27
Michael Scheffler
Hallo,

kannst Du, ist aber sehr aufwendig.

Gruß

Micha

Re: Größe eines Frames dynamisch gestaltbar?
23.01.2003 13:21:51
Steffan
Hallo Martin,

automatisch geht es m.E. nicht.
Aber vielleicht probierst Du mal folgenden Ansatz (der Code sollte dem combobox_Change-Ereignis zugeordnet werden, die Textboxen sollten TextBox1, TextBox2, TextBox.., etc. heißen.)


'Startpos aus Position von Textbox1 ermitteln
'WICHTIG: Textbox1 muss oben stehen
iStartPos = TextBox1.Top
'Abstand aus Abstand von Textbox1 und Textbox2 ermitteln
'WICHTIG: Textbox2 muss direkt unter Textbox1 stehen
iAbstand = TextBox2.Top - TextBox1.Top
'unteren Rand festlegen
iRand = 10
iAktStart = iStartPos
For i = 0 To UserForm1.Controls.Count - 1
    If InStr(1, LCase(Controls(i).Name), "textbox") = 1 Then
        If Not (Controls(i).Text = "") Then
            Controls(i).Visible = True
            Controls(i).Top = iAktStart
            iAktStart = iAktStart + iAbstand
        Else
            Controls(i).Visible = False
        End If
    Else
        If iMaxPos < Controls(i).Top + Controls(i).Height + iRand Then _
            iMaxPos = Controls(i).Top + Controls(i).Height + iRand
    End If
Next i
UserForm1.Height = UserForm1.Height - UserForm1.InsideHeight + iMaxPos
 
     Code eingefügt mit Syntaxhighlighter 1.16

Steffan.

Anzeige
Re: Größe eines Frames dynamisch gestaltbar?
23.01.2003 13:34:26
Martin
na, das ist doch mal ein Ansatz.
Werde es ausprobieren.

Danke!

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige