VB Befehl Buchstaben Label name Beschriftung abkürzungen

Abkürzungen bei der Labelbeschriftung in VB

Von: , Frage gestellt am Mo, 4. Okt 1999

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

3 Antworten zu dieser Frage

1. Antwort von nach 6 Stunden hilfreich

   Re: Abkürzungen bei der Labelbeschriftung in VB

   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
   

2. Antwort von nach 20 Stunden hilfreich

   Re: Abkürzungen bei der Labelbeschriftung in VB

   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]
   

3. Antwort von nach einem Tag hilfreich

   Re: Abkürzungen bei der Labelbeschriftung in VB

   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
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!