Textbox Infotext

  • VB.NET

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

    Textbox Infotext

    Hallo liebe Community,
    da ich leider nichts zu diesem gefunden habe muss ich euch hier leider fragen.

    Ich möchte gerne wissen wie ich einen Infotext in eine Textbox einfüge, welcher beschreibt für was die Textbox ist, aber wenn man dann die Textbox in den Fokus nimmt bzw etwas eintippt das dieser auch wieder verschwindet.

    Beispiel:
    img202.imageshack.us/i/sufu.png/

    Danke euch schonmal

    MfG

    Dafür gibt es die ToolTip-Klasse und eine entsprechnde Tooltip-Komponente in der Toolbox.

    Mach folgendes:
    - zieh eine Textbox auf die Form ( Textbox1 )
    - zieh eine Tooltip Komponente aus der Toolbox auf Deine Form (tooltip1)

    Im Form.Load Event schreibe folgendes:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. ' ToolTip Text für Textbox1 zuordnen
    3. ToolTip1.SetToolTip(Me.TextBox1, "Meine Textbox")
    4. End Sub

    Voilà !

    Ich glaube er meint etwas anderess, und zwar einen Default Text der angezeigt wird, solang das Textfeld leer ist

    Meinst du das?:

    VB.NET-Quellcode

    1. Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    2. If TextBox1.Text = "" Then
    3. TextBox1.ForeColor = Color.Gray
    4. TextBox1.Text = "<Suchbegriff eingeben>"
    5. Else
    6. TextBox1.ForeColor = Color.Black
    7. TextBox1.Text = TextBox1.Text.Replace("<Suchbegriff eingeben>", "")
    8. End If
    9. End Sub



    link_275 :thumbup:
    Hello World

    Penguin schrieb:

    Jop danke. Einfacher gehts nicht oder?

    Doch: setze im Designer die ForeColor und den Text auf Deinen gewünschten Wert.

    Im Code kannst Du dann das GotFocus Event verwenden:

    VB.NET-Quellcode

    1. Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
    2. Static firstCall As Boolean = True
    3. If firstCall Then TextBox1.ForeColor = Color.Black : TextBox1.Text = "" : firstCall = False ' quick'n dirty
    4. End Sub

    Man kann das ganze auch in ne Klasse packen:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class DefaultTextHandler
    3. Public Shared lTb As New Dictionary(Of String, Tuple(Of TextBox, String))
    5. Public Shared Sub Add(ByVal tb As TextBox, ByVal DefaultText As String)
    6. If lTb.ContainsKey(tb.Name) Then Exit Sub
    7. lTb.Add(tb.Name, New Tuple(Of TextBox, String)(tb, DefaultText))
    8. AddHandler tb.GotFocus, AddressOf TBGotFocus
    9. AddHandler tb.LostFocus, AddressOf TBLostFocus
    10. If tb.Text = String.Empty Then tb.Text = DefaultText
    11. End Sub
    13. Public Shared Sub Remove(ByVal tb As TextBox)
    14. If lTb.ContainsKey(tb.Name) Then
    15. RemoveHandler tb.LostFocus, AddressOf TBLostFocus
    16. RemoveHandler tb.GotFocus, AddressOf TBGotFocus
    17. lTb.Remove(tb.Name)
    18. End If
    19. End Sub
    21. Private Shared Sub TBGotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
    22. Dim t As TextBox = DirectCast(sender, TextBox)
    23. Dim s As String
    24. If lTb.ContainsKey(t.Name) Then
    25. s = lTb.Item(t.Name).Item2
    26. If t.Text = s Then t.Text = String.Empty
    27. End If
    28. End Sub
    30. Private Shared Sub TBLostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
    31. Dim t As TextBox = DirectCast(sender, TextBox)
    32. Dim s As String
    33. If lTb.ContainsKey(t.Name) Then
    34. s = lTb.Item(t.Name).Item2
    35. If t.Text = String.Empty Then t.Text = s
    36. End If
    37. End Sub
    39. Public Shared Sub RemoveAll()
    41. For Each kvp As KeyValuePair(Of String, Tuple(Of TextBox, String)) In lTb
    42. Remove(kvp.Value.Item1)
    43. Next
    45. End Sub
    47. End Class


    und dann zb so:

    VB.NET-Quellcode

    1. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    2. DefaultTextHandler.RemoveAll()
    3. End Sub
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. DefaultTextHandler.Add(TextBox1, "<Ihr Name>")
    7. DefaultTextHandler.Add(TextBox2, "<Ihr Geschlecht>")
    8. DefaultTextHandler.Add(TextBox3, "<Ihr Wombat>")
    9. End Sub


    Mal als Anregung ... (weil man sowas ja ggf öfter braucht)

Facebook
Telefonspende