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.159 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. |
sevZIP40 Pro DLL Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. 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. |