Abkürzungen bei der Labelbeschriftung in VB

Computer: Software & Programmierung Programmierung allgemein
1

HI!

Ich habe eine etwas koplizierte Frage an Euch. Angenommen ich habe ein Textfeld, wo jemand seinen Namen eingeben kann. Anschließen wird ein Label damit beschriftet. Angenommen der Name ist aber läng als der Label. Dann sieht man die letzten Buchstaben nicht. Wie kann ich es machen, das immer wenn der Name zu lang ist, „…“ am Ende erscheinen. Als Besipiel: Wenn man ein normales Fenster soweit verkleinert, bis die Beschriftung nicht mehr passt, erscheinen auch „…“ am Ende. Bitte helft mir.
Danke…

MFG Patrick

PS: Ich benutze VB 5 in der Enterprise Edition

2

hi Pat,

versuchs mal mit form_resize abfrage,autosize true,und scalewidht,sowie left(…)

aber du kannst auch dein fenster so einstellen das man es nicht verkleinern kann.

oder solltest du noch Platz haben im Formular
verschiebe doch das label woanders hin mit befehl MOVE…

achwas ich schick dir ein source-code…

MfG…JH

3

Hallo Patrick,

verwende diesen Code mal:
http://www.mvps.org/vbnet/code/textapi/strellipse.htm

‚…‘ am Ende funktioniert wirklich bestens!

greets from MichL (Vienna)

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

form hat ein Command und ein label und so einfach ist es.

Private Sub Command1_Click()
strin = „blablablablablabla“

Do While TextWidth(strin) > lbl1.Width
strin = Left(strin, Len(strin) - 4)
strin = strin + „…“

Loop
lbl1.Caption = strin
End Sub