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.250 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. |
Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access 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 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |