mehrere Tooltips auf einem Dialog

  • VB.NET

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

    mehrere Tooltips auf einem Dialog

    Moin!

    ich habe einen Dialog mit mehreren Blitz-Bildern, die im Falle eines Fehler eingeblendet werden sollen.

    Nun möchte ich bei den Bildern die Fehlerursache als Tooltip hinterlegen.

    Hierzu hatte ich mich zunächst an Tooltip auf Tooltip1 ändern orientiert.

    Hier mein mein bisheriger Code:

    * EIN Tootip aus der Toolbox platziert.
    * dann habe ich folgenden Code erstellt

    VB.NET-Quellcode

    1. ' Eingabe für Lage erfolgt
    2. If txt_Lage.Text.Trim.Length < 10 Then
    3. Status = False
    4. lbl_err_Lage.Visible = True
    5. pb_err_Lage.Visible = True
    6. Dim t1 As New ToolTip
    7. t1.SetToolTip(pb_err_Lage, "mindestens 10 Zeichen erforderlich!")
    8. Else
    9. lbl_err_Lage.Visible = False
    10. pb_err_Lage.Visible = False
    11. End If
    13. ' kein Zeitfenster zulässig
    14. If cal_Anfrage.SelectionStart.ToString("dd.MM.yyyy") = cal_Anfrage.SelectionEnd.ToString("dd.MM.yyyy") Then
    15. pb_Err_Meldedatum.Visible = False
    16. Else
    17. pb_Err_Meldedatum.Visible = True
    18. Dim t2 As New ToolTip
    19. t2.SetToolTip(pb_err_Lage, "Zeitfenster sind NICHT zulässig!")
    20. Status = False
    21. End If
    23. If _ID_ArtEinleitung < 1 Then ' Überwachung der Combobox
    24. pb_Err_ArtEinleitung.Visible = True
    25. Dim t3 As New ToolTip
    26. t3.SetToolTip(pb_err_Lage, "keine Art der Einleitung gewählt!")
    27. Else
    28. pb_Err_ArtEinleitung.Visible = False
    29. End If
    31. If _FID_UserOfJob < 1 Then ' Überwachung der Combobox
    32. pb_Err_User.Visible = True
    33. Dim t4 As New ToolTip
    34. t4.SetToolTip(pb_err_Lage, "kein Bearbeiter definiert!")
    35. Else
    36. pb_Err_User.Visible = False
    37. End If
    39. bt_Create.Enabled = Status
    40. End Sub


    Wenn ich das ausführe, dann kommt es zu einer Überlagerung der Tooltips. Alle Tooltips werden für das erste Bild in dem Dialog angezeigt.



    Kann mir einer weiterhelfen?

    Gruß Jan

    Hinterlege einen ToolTip im Designer und beschrifte ihn zur Laufzeit. Du erzeugst gerade viele.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Moin!

    erst hatte ich Euch nicht verstanden und dann heute morgen beim Spaziergang mit dem Hund ist es mir klar geworden und ich habe den Fehler gefunden!

    VB.NET-Quellcode

    1. Dim t1 As New ToolTip
    2. t1.SetToolTip(pb_err_Lage, "mindestens 10 Zeichen erforderlich!")
    4. Dim t2 As New ToolTip
    5. t2.SetToolTip(pb_err_Lage, "Zeitfenster sind NICHT zulässig!")
    7. Dim t3 As New ToolTip
    8. t3.SetToolTip(pb_err_Lage, "keine Art der Einleitung gewählt!")
    10. Dim t4 As New ToolTip
    11. t4.SetToolTip(pb_err_Lage, "kein Bearbeiter definiert!")


    Ich habe überall pb_err_Lage verwendet und nicht die unterschiedlichen Controlls wie eigentlich beabsichtigt!!

    Gruß Jan

    @jan99 Du kannst eine ToolTip-Instanz für (fast) beliebig viele Controls verwenden.
    Wie @VaporiZed schrieb:
    Zieh im Designer ein ToolTip auf das GUI und klicke die einzelnen Controls an.
    Unter dem Namen des Controls wird dann die Vorgabe des ToolTip-Textes angeboten.
    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!

    Damit Du weißt, wie es auch gehen kann:

    unten die neue PicBox-Einstellung, wenn ein ToolTip auf das Form hinzugefügt wurde.
    Oben das Ergebnis zur Laufzeit, wenn man folgenden easy-peasy-Code hinzufügt:

    VB.NET-Quellcode

    1. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    2. PictureBox1.Visible = String.IsNullOrEmpty(TextBox1.Text)
    3. End Sub
    5. Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
    6. PictureBox2.Visible = String.IsNullOrEmpty(TextBox2.Text)
    7. End Sub
    9. Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
    10. PictureBox3.Visible = String.IsNullOrEmpty(TextBox3.Text)
    11. End Sub
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @jan99 Nicht wundern:

    RodFromGermany schrieb:

    Unter dem Namen des Controls wird dann die Vorgabe des ToolTip-Textes angeboten.
    Bei @VaporiZed erscheint der ToolTipText unter der Kategorie Sonstiges.
    Bei mir sind die Properties alphabetisch, bei VaporiZed nach Kategorien sortiert.
    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!

Facebook
Telefonspende