Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Vb08 Textlänge in Label begrenzen

Mitglied: erik87

erik87 (Level 1) - Jetzt verbinden

19.02.2011 um 13:05 Uhr, 4168 Aufrufe, 2 Kommentare

Hallo Forumgemeinde,


ich habe ein kleines Problem, bei der mir keine einfache Lösung einfällt.

Ich habe mir ein Benutzersteuerelement erstellt, welches ein Label und Pictureboxen zur Anzeige enthält. Diese erstelle ich automatisch zu Laufzeit in einem Panel. Nun ist es möglich die Größe des Panels zu ändern. Momentan funktioniert das so, dass sobald das Steuerelement größer als das Panel ist, eine Scrollbar erscheint und der Nutzer sich das dann durch scrollen alles anschauen kann.

Ich würde aber gerne das Steuerelemet bis zu einer bestimmten Minimalgröße mit "schrumpfen" lassen (nur in der Breite, meistens ist der Text im LAbel nur 10 Zeichen breit, gelegentlich um einiges mehr). Aus anderen Programmen kenne ich es, das der Text dann abgeschnitten und ein "[...]" eingefügt wird. Die Größenänderung ist für mich kein Problem, nur das Text abschneiden. Da ja nicht jeder Buchstabe gleich breit ist, kann man das weder schön rechnen, noch statisch von einer bestimmten Anzahl ausgehen, da das echt S** aussieht.

Gibt es eventuell eine fertige Funktion für dieses Problem? Oder muss ich mir jetzt zu jedem Buchstaben die Breite raussuchen und das ganze durchrechnen lassen das es immer Gleich abschneidet. Die Steuerelemente werden übrigens untereinander erstellt und fungieren quasi als einspaltige tabellarische Übersicht.


Mit freundlichsten Grüßen
Mitglied: bastla
19.02.2011 um 13:47 Uhr
Hallo erik87!

Den Vorschlag, eine nicht-proportionale Schrift zu verwenden, spare ich mir gleich mal ...

Eine passende Funktion kenne ich leider auch nicht, aber als Workaraound fiele mir ein, in einem unsichtbaren weiteren Label (im Beispiel "Dummy") per Schleife solange verschiedene String-Längen zu testen, bis die (automatische) Breite ("Width") den Vorgabewert überschreitet - also etwa:
01.
Dim DerText As String = InputBox("Text eingeben!") 
02.
Dim Breite As Integer = 80, i As Integer, ZeichenAnzahl As Integer 
03.
ZeichenAnzahl = 1 
04.
For i = Len(DerText) To 1 Step -1 
05.
    Dummy.Text = Mid(DerText, 1, i) 
06.
    If Dummy.Width <= Breite Then 
07.
        ZeichenAnzahl = i 
08.
        Exit For 
09.
    End If 
10.
Next 
11.
Label1.Text = Mid(DerText, 1, ZeichenAnzahl) & IIf(ZeichenAnzahl < Len(DerText), "...", "")
Die Länge von "..." müsste bei der Vorgabe von "Breite" entsprechend einkalkuliert werden.

Grüße
bastla
Bitte warten ..
Mitglied: erik87
19.02.2011 um 13:59 Uhr
Hallo Bastla,

sowas in der Art is mir vorhin auch eingefallen, nur das ich nen extra Label mit "[...]" erstellen würde, damit dieses dann wirklich immer genau untereinander ist. Außerdem würde ich in diesem Fall mit den Eigenschaften Maximumsize arbeiten... Ich denke das wird auch die beste Option sein.

Ich dachte das es vllt. dafür ne fertige Eigenschaft gibt ;)

Danke!
Bitte warten ..
Ähnliche Inhalte
Netzwerkprotokolle
MPLS Label Distributing Protocoll
Frage von battermanNetzwerkprotokolle1 Kommentar

Hallo Leute, ich muss da mal was wegen dem Labl Distributing Protocoll fragen. Also: Wenn ein Label Switched Path ...

Visual Studio
Bewegtes Label Visual Basic
gelöst Frage von Cougar77Visual Studio1 Kommentar

Guten Abend, ich versuche mich grade ein bisschen an VB. An sich würde ich gerne ein beliebiges Element (Label, ...

Windows Netzwerk
Single Label Domain Umbennen
Frage von daMopsiWindows Netzwerk5 Kommentare

Hallo Zusammen, ich habe vor kurzen eine neue Stelle als Admin in einer Produktionsfirma angenommen und habe mich fürs ...

Windows Server

Welche Version vom Server, Label nicht erkennbar

Frage von malkieWindows Server8 Kommentare

Hallo, habe ein kleines Problem, wollte mir Windows Server 2008 kaufen. Jetzt steht über den Artikel : WinSrv Std ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 23 StundenWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...