Problem: Senkrechte Beschriftungen (z.B. für Achsen). Erstellen Sie ein neues Projekt und platzieren auf die Form:
Option Explicit ' ------------------------------------------------------------------- ' LABELS zur senkrechten Beschriftung benutzen. ' müsste mit alle Version von VB funktionieren. ' Horst Laubmann ' ------------------------------------------------------------------- ' Ein beliebiges Label zur senkrechten Beschriftung benutzen! ' Die Schriftausrichtung wird dabei nicht geändert! ' Die Größenanpassung erfolgt automatisch. ' Nachträgliche Änderungen (Inhalt / Font / Größe) kein Problem. ' ' Die Einfärbung des Labels dient zum Zeigen der Veränderung! ' Die Linie und der Kreis dienen nur der Positionsorientierung! ' ' Netter Nebeneffekt: Schalten Sie mal mit den Tasten hin und her! ' In Abwandlung auch für die Formatierung von Zahlenkolonnen denkbar. ' ------------------------------------------------------------------- Private Sub Form_Load() ' Controls positionieren With Me.Lbl_senkrecht .Alignment = 2 .AutoSize = True .Caption = "SENKRECHT" .BackColor = &HFFFF& .Move 420, 360, 1428, 600 End With With Me.Line1 .X1 = 960 .X2 = 960 .Y1 = 120 .Y2 = 4200 End With With Command1 .Caption = "andere Schrift" .Move 2160, 360, 1485, 330 End With With Command2 .Caption = "etwas breiter" .Move 2160, 840, 1485, 330 End With ' Label senkrecht beschriften ' dazu AutoSize auf 'true' und Alignment auf 'zentriert' Call funLabelVertikal(Lbl_senkrecht) ' nur zur Info für Positionierung: Ursprung des Labels kennzeichnen Circle (Lbl_senkrecht.Left, Lbl_senkrecht.Top), Lbl_senkrecht.Width End Sub Public Function funLabelVertikal(objLabel As Object) 'jedes Label wird bearbeitet, da als Objekt übergeben Dim iA As Integer Dim strA As String Dim strB As String strA = objLabel.Caption strB = "" For iA = 1 To Len(strA) - 1 ' zeichenweise plus Zeilenumbruch strB = strB & Mid$(strA, iA, 1) & Chr$(10) Next iA ' plus letztes Zeichen ohne Zeilenumbruch = sonst 'Leerzeichen' am Ende! strB = strB & Right$(strA, 1) objLabel.Caption = strB ' objLabel.Refresh End Function Private Sub Command1_Click() ' auch ein Schriftwechsel ist kein Problem ' Anordnung bleibt mittig! Lbl_senkrecht.Font = "Arial Rounded MT Bold" Lbl_senkrecht.FontSize = 16 Form1.Cls Circle (Lbl_senkrecht.Left, Lbl_senkrecht.Top), Lbl_senkrecht.Width End Sub Private Sub Command2_Click() ' doppelte Breite bitte ' Anordnung verschiebt sich! Lbl_senkrecht.Width = Lbl_senkrecht.Width * 2 End Sub Dieser Tipp wurde bereits 26.244 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |