Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

textbox-breite (großes Chaos)
Autor: seb-software
Datum: 27.09.03 14:17
Hallo, allerseits Ich beiße mir schon seit Wochen an dieser Routine die Zähne aus. Private Sub Text1_Change(Index As Integer) 'im Modul txtbreite = 3000 definiert. (Bei >3000 vbcrlf) Dim boxbreite As Long Dim zeilen As Variant Static Rek As Boolean If Rek Then Exit Sub Rek = True zeilen = Split(frmbogen.TextWidth(Text1(index)), vbCrLf) boxbreite = frmbogen.TextWidth(Text1(index).text) If boxbreite > txtbreite Then If UBound(zeilen) < 3 Then ----Max 3 Zeilen frmbogen.Text1(index).SelText = vbCrLf txtbreite = txtbreite + 3000 End If End If Rek = False End Sub Nachdem ich nun mein erstes vbcrlf eingefügt habe, bleibt die Boxbreite auf den Wert 3000 stehen. Der nächste Umbruch wird dann erst wieder bei >6000 eingefügt. Also die 1.Zeile in der Multiline-Box geht dann bis 3000 die 2.Zeile aber bis 6000 dann 9000. Ich will aber alle nur bis 3000 lang haben. Was um alles in der Welt ist hier falsch ??? Könnt Ihr mir helfen ?? Danke im voraus - Dieter - seb

textbox-breite (großes Chaos)	705	seb-software	27.09.03 14:17
Re: textbox-breite (großes Chaos)	368	Mr. Fox	28.09.03 08:46

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übersicht

Suchen