PDA

Vollständige Version anzeigen : Größeneinstellung!


BHR PG
14.05.2001, 18:33
Hallo, ich habe da ein kleines Problem:
Codeteil:

Option Explicit

Private Sub Form_Load()
txttextfenster.Top = 0
txttextfenster.Left = 0
End Sub

Private Sub Form_Resize()
txttextfenster.Width = frmtextv.ScaleWidth
txttextfenster.Height = frmtextv.ScaleHeight
End Sub

Nur ein bisschen verschoben und natürlich gekürzt! Durch diesen Code wird die Textbox immer und egal wie groß die Form ist eben genau eingepasst in die Form, also genau so groß. Aber ich will eventuell noch Schaltflächen einfügen. Deshlb dachte ich mir das ich einfach txttextfenster.Top auf 300 geb. Dann wird aber natürlich die Textbox nur noch teilweiße angezeigt. Meine Farge ist nun, wie kann ich die Größe so veränder, dass die Textbox bei Top 300 anfängt und trotzdem die untere Scrollleiste zu sehen ist?
Verstanden?
Danke
Johannes Roth

Stefan Kulpa
15.05.2001, 06:51
Hallo,

wenn Du die Textbox erst ab 300 anzeigen willst, musst du entweder die Form um die 300 vergrößern, oder die Textbox um 300 verkleinern.

z.B.:
<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Form_Load()

<FONT COLOR=#000080>With</FONT> Text1
.Left = 0
.Top = 300
.Width = ScaleWidth
.Height = ScaleHeight - 300
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Form_Resize()

<FONT COLOR=#000080>On</FONT> <FONT COLOR=#000080>Error</FONT> Resume <FONT COLOR=#000080>Next</FONT> <FONT COLOR=#008000>'!</FONT>
<FONT COLOR=#000080>With</FONT> Text1
.Left = 0
.Top = 300
.Width = ScaleWidth
.Height = ScaleHeight - 300
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080></FONT>

</FONT></PRE>

Gruß

BHR PG
15.05.2001, 16:52
Jo, danke, das wars!!

Johannes Roth