textbox der Form angleichen?

[gill_bates]

hallo zusammen,

ich habe eine Art Texteditor gemacht, mit einer Textbox. Wenn man den Editor startet, kann man zwar die Größe der Form verändern, jedoch bleibt die Textbox immer in der gleichen Größe.

Gibt es ne möglichkeit, dass sich die Textbox automatisch der Größe der Form anpasst?

 

[JensG]

Hi,

was fertiges in VB6 selber gibt es dafür nicht.
Du musst im Form_Resize Ereignis Height und Width der Form abfragen
und den Faktor zur Orginal oder Entwicklungsgröße der Form ermitteln.
Dann multiplizierst du diesen Faktor mit Height und Width der Textbox.

Jens

 

[gill_bates]

ach du grüne neune... wie soll das denn gehen?
hm. ich werd mal probieren ob ich da was hinbekomme, klingt in der theorie nämlich ganz plausibel - jetzt kanns ja nur noch an mir scheitern ;-)

 

[red_mowl]

Servus!

Hier ne kleine Lösung!

Private Sub Form_Resize()

Text1.Height = Form1.Height - 850
Text1.Width = Form1.Width - 500

End Sub

Die Zahl hinten ist der Abstand unten und rechts zu deiner Form

LG,

red_mowl

 

[der jonas]

zu der Möglichkeit von red_mowl
wenn ich die Höhe der Form verkleiner kommt bei mir eine Fehlermeldung.
des passiert nicht wenn man es so macht:

Private Sub Form_Resize()
Text1.Height = Form1.Height / 100 * 80
Text1.Width = Form1.Width / 100 * 80
End Sub

 

[red_mowl]

Hallo!

An die Verkleinerung und den darauf folgenden Fehler hab ich nicht gedacht;
bin in erster Linie nur auf die Vergrößerung fixiert gewesen!

Danke, für den Hinweis!

red_mowl

 

[Christoph1972]

Gibt es den keine Mglichkeit über diesen Weg eine Text oder Picturebox zu zentrieren?
Ich komme da einfach nicht weiter.

Gruß

Christoph

 

[der jonas]

klar geht das:

Dim a, b, c
 
Private Sub Command1_Click()
a = Form1.Width / 2
b = Text1.Width / 2
c = a - b
Text1.Left = c
End Sub