Transparente Textbox in Menu ToolStrip

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

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Dideldum.

    Transparente Textbox in Menu ToolStrip

    Hi Ihr,

    will mein Proggi verschönern.
    Das kann ja wählbare Hintergrundfarben auch für die Menus.
    Nun habe ich im Main-Menu eine Textbox die ich mit folgenden Codes transparent schalte:

    VB.NET-Quellcode

    1. ' In Variablen-Deklaration
    2. ' transparente Textbox
    3. Private WithEvents TransparenteToolStripTextBox As New TransparentTextBox()
    4. Public mnu_Mainform_txb_Fensterliste As New ToolStripControlHost(TransparenteToolStripTextBox)
    6. ' In Load-Handler
    7. ' transparente Textbox in Menu_Mainform
    8. TransparenteToolStripTextBox.AutoSize = True
    9. TransparenteToolStripTextBox.Size = New Size(350, 20)
    10. TransparenteToolStripTextBox.BackColor = Color.Transparent
    11. TransparenteToolStripTextBox.TextAlign = HorizontalAlignment.Right
    12. TransparenteToolStripTextBox.BorderStyle = BorderStyle.None
    13. TransparenteToolStripTextBox.Name = "mnu_Mainform_txb_Fensterliste"
    14. mnu_Mainform_txb_Fensterliste.Alignment = ToolStripItemAlignment.Right
    15. mnu_MainForm.Items.Add(mnu_Mainform_txb_Fensterliste)
    17. ' Dazu eine Klasse:
    18. Public Class TransparentTextBox
    19. Inherits System.Windows.Forms.TextBox
    21. Public Sub New()
    22. SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    23. BackColor = Color.Transparent
    24. End Sub
    26. Protected Overrides Sub OnPaintBackground(e As PaintEventArgs)
    27. MyBase.OnPaintBackground(e)
    28. Dim b As New SolidBrush(Me.BackColor)
    29. e.Graphics.FillRectangle(b, Me.ClientRectangle)
    30. b.Dispose()
    31. End Sub
    32. End Class
    34. ' Beliebige Text-Zuweisung im Programm-Ablauf
    35. mnu_Mainform_txb_Fensterliste.Text = IO.Path.GetFileNameWithoutExtension(VordergrundFensterOwner) & " | " & VordergrundFensterTitel
    36. mnu_Mainform_txb_Fensterliste.BackColor = Color.Transparent


    Starte ich mein Programm, ist keine Textbox in der Menuleiste zu sehen - also wohl transparent
    Belege ich aber deren Text-Eigenschaft, wird die Textbox undurchsichtig.
    Und ich weiss nicht, warum.

    Habe hier vieles über transparente Textboxen gelesen, finde aber meinen Fehler nicht.
    Kann mir da vielleicht einer von Euch weiterhelfen?

    Schönes Rest-Weekend @all

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

    Dideldum schrieb:

    Belege ich aber deren Text-Eigenschaft, wird die Textbox undurchsichtig.
    Probier mal, Vordergrund und Hintergrund in einer gemeinsamen Prozedur zu setzen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi @RodFromGermany

    danke Dir für den Tip :)

    Das ist ja das komische...
    Wenn ich testhalber:

    VB.NET-Quellcode

    1. mnu_Mainform_txb_Fensterliste.Text = IO.Path.GetFileNameWithoutExtension(VordergrundFensterOwner) & " | " & titel
    2. mnu_Mainform_txb_Fensterliste.ForeColor = Color.Transparent
    3. mnu_Mainform_txb_Fensterliste.BackColor = Color.Transparent

    verwende, wird der Text auch brav durchsichtig - nur die BackColor schert sich nicht um die Zuweisung.

    Mir schleierhaft, warum diese BackColor Einstellung die Textbox kalt lässt.
    Ich habe auch schon andere Ansätze versucht, welche ich hier gefunden habe, um eine transparente Textbox in die Menubar zu zaubern - aber die will einfach nicht das tun, was mir vorschwebt. ;(

    Hi @Haudruferzappeltnoch,
    das war auch meine erste Idee - aber ich kann zum Toolstrip Menubar keine Labels hinzufügen.
    Zumindest finde ich keine Möglichkeit.
    Und wenn ich das Label in den Container werfe, bekomme ich das auch mit Location 500,-40 nicht in der Menuleiste angezeigt, weil das Label dann hinter der Menubar liegt und nicht darüber gehoben werden kann.

    EDIT:
    Geht doch - aber nicht im Designer...

    VB.NET-Quellcode

    1. Dim toolStripItem As New ToolStripLabel()
    2. toolStripItem.Text = "Mein Label"
    3. toolStripItem.Padding = New Padding(0, 0, 20, 0)
    4. toolStripItem.Alignment = ToolStripItemAlignment.Right
    6. mnu_MainForm.Items.Add(toolStripItem)


    Rechtsbündig und transparent :D

    Danke Dir @Haudruferzappeltnoch :)
    Ich dachte bislang, dass auch nur das zu Containern hinzugefügt werden kann, was auch im Designer zur Verfügung steht. :/
    Du hast meinen Sonntach gerettet - darfst Dir ein Leckerli aus dem Süssfach dafür rausnehmen. ^^
    EDIT:
    Jetzt sieht die Menubar genial aus :thumbsup:
    Ihr seid Super!

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

    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 grösser ist, als der verfügbare Platz ist, wird dieser 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
    29. mnu_Mainform_label.Text = LabelText
    31. ' Maximal verfügbare Breite
    32. Dim menuWidth As Integer = mnu_MainForm.Items.OfType(Of ToolStripMenuItem)().Sum(Function(item) item.Width)
    33. Dim availableWidth As Integer = mnu_MainForm.Width - menuWidth
    34. If availableWidth < 0 Then availableWidth = 0
    36. ' Setzen der Breite des Labels
    38. ' Text kürzen, wenn er nicht passt
    39. Dim displayText As String = LabelText
    40. Do While TextRenderer.MeasureText(displayText & "...", mnu_Mainform_label.Font).Width > availableWidth - 20 AndAlso displayText.Length > 0
    41. displayText = displayText.Substring(0, displayText.Length - 1)
    42. Loop
    43. If LabelText <> displayText Then
    44. displayText &= "..."
    45. End If
    47. mnu_Mainform_label.Text = displayText
    48. End If
    49. End Sub

    Bilder

    • LabelInMenuBar.jpg

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

    • LabelInMenuBar1.jpg

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

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

Facebook
Telefonspende