Rechtsbündiges Label in Menu ToolStrip mit rechtsbündigem Text in max. Grösse des Freiraums zw. letztem Menu und rechtem Rand

    • VB.NET
    • .NET (FX) 4.5–4.8

      Rechtsbündiges Label in Menu ToolStrip mit rechtsbündigem Text in max. Grösse des Freiraums zw. letztem Menu und rechtem Rand

      Falls jemand mal diese Funktion braucht, ein Label rechtsbündig in der Menu Toolstrip Bar, das maximal den verfügbaren Platz zwischen letztem Menu-Eintrag und rechten Rand des Menu-Toolstrip ausfüllt und den Text rechsbündig im Label am rechten Rand des ToolStrips anzeigt. Wenn der Text breiter als der verfügbare Platz ist, wird der Text gekürzt und mit "..." ergänzt:

      VB.NET-Quellcode

      1. ' in Deklaration
      2. Dim mnu_Mainform_label As New ToolStripLabel()
      3. Dim LabelText As String
      5. ' Im Load-Handler
      7. ' Label in Menu ToolStrip
      8. mnu_Mainform_label.Padding = New Padding(0, 0, 5, 0)
      9. mnu_Mainform_label.Alignment = ToolStripItemAlignment.Right
      10. mnu_Mainform_label.TextAlign = System.Drawing.ContentAlignment.MiddleRight
      11. mnu_Mainform_label.AutoSize = True
      12. mnu_MainForm.Items.Add(mnu_Mainform_label)
      14. ' im Mainform-SizeChanged
      15. Private Sub StateChangedForm_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
      16. LabelInMenuToolStripSetzenUndAnpassen()
      17. End Sub
      19. ' Text in Label schreiben und Label anpassen
      20. Private Sub TextInLabelSchreiben()
      21. LabelText = "Mein Text"
      22. LabelInMenuToolStripSetzenUndAnpassen()
      23. End Sub
      25. ' SubText-Ausgabe und Breitenanpassung des Labels
      26. Private Sub LabelInMenuToolStripSetzenUndAnpassen()
      27. If LabelText IsNot Nothing Then
      28. mnu_Mainform_label.Text = LabelText
      30. ' Maximal verfügbare Breite
      31. Dim menuWidth As Integer = mnu_MainForm.Items.OfType(Of ToolStripMenuItem)().Sum(Function(item) item.Width)
      32. Dim availableWidth As Integer = mnu_MainForm.Width - menuWidth
      33. If availableWidth < 0 Then availableWidth = 0
      35. ' Setzen der Breite des Labels
      36. ' Text kürzen, wenn er nicht passt
      37. Dim displayText As String = LabelText
      38. Do While TextRenderer.MeasureText(displayText & "...", mnu_Mainform_label.Font).Width > availableWidth - 20 AndAlso displayText.Length > 0
      39. displayText = displayText.Substring(0, displayText.Length - 1)
      40. Loop
      41. If LabelText <> displayText Then
      42. displayText &= "..."
      43. End If
      45. mnu_Mainform_label.Text = displayText
      46. End If
      47. End Sub


      Das funktioniert bei mir einwandfrei.
      Bilder

      • LabelInMenuBar.jpg

        23,94 kB, 1.290×74, 10 mal angesehen

      • LabelInMenuBar1.jpg

        12,03 kB, 535×74, 5 mal angesehen

      Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Dideldum“ ()

    Facebook
    Telefonspende