vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
TextBox.Text mittig ausrichten 
Autor: .:TBX:.
Datum: 09.09.09 15:50
Hallo Gemeinde

habe mein Programm um einige Features erweitert, unter anderem auch mit den
"Resize" Befehlen (Automatische Größenänderrung/Anpassung bei Veränderrung der Form).

Nun habe ich aber eine TextBox die sich der Größe der Form anpasst aber der enthaltene Text nicht.
Vllt. haben schon einige solche TextBox gesehen wo darin mittig der ProgrammName und VersionsHinweise
stehen. Aber nur wenn die Größe der Form nicht verändert wird was nun machen wenn das aber passiert?

Habe mich mal hingesetzt und folgendes gemacht. 

Private Sub Form_Load()
newline = Chr(13) + Chr(10)
Me.Height = 3600
Me.Width = 4800
Text1.Width = 2415
Text1.Height = 615
Text1.Width = Me.Width / 2
Text1.SelLength = Me.Width / 2
End Sub
 
Private Sub Form_Resize()
 
Text1.Text = "Der Text bleibt fast in der Mitte" + Space(Me.Width / 400)
' Hier würde dann MultiLine reinkommen
Text1.Width = Me.Width / 1.5
Text1.Text = Space(Me.Text1.Width / 150) + Text1.Text
Text1.SelLength = Me.Width / 2
Text1.MaxLength = Me.Text1.Width / 150 + Text1.SelLength
 
End Sub
Damit bleibt der vorhandere Text auch dann noch mittig, selbst wenn
die Größe der Form verändert wird.

Was nun noch leider fehlt ist, eine Erweiterung des ganzen Codes um das ganze
MultiLine fähig zu machen. Das heißt auch wenn Nachfolgender Text kommt.
dieser dann auch mittig erscheint.

Hoffe jmd. kann das dann noch ergänzen bzw. gibt es vllt. noch einen sauberen Code
dafür, hier konnte ich keinen finden der das ganze Unterstützt.

[u]MultiLine 
'########### Hiermit wäre es dann jetzt MultiLine #############
'Text1.Text = Text1.Text + Space(Me.Width / 400) + "" + Space(Me.Width / 400) + 
' newline
'Text1.Text = Text1.Text + Space(Me.Width / 400) + "" + Space(Me.Width / 400) + 
' newline
'Text1.Text = Text1.Text + Space(Me.Width / 400) + "Mit diesem Text extra" + 
' Space(Me.Width / 400) + newline
'##############################################################
LG TBX
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
TextBox.Text mittig ausrichten2.505.:TBX:.09.09.09 15:50
Re: TextBox.Text mittig ausrichten4.583Zardoz09.09.09 16:02
Re: TextBox.Text mittig ausrichten1.995Dirk09.09.09 16:06
Re: TextBox.Text mittig ausrichten1.598.:TBX:.09.09.09 16:16

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel