Comment des info-bulles peuvent-elles être ajoutées à une (des) ligne (s) datagrid vb.net winforms?

Question

Je souhaite ajouter une info-bulle à chaque ligne d'une grille de données liée dans les formulaires win.net. Comment cela peut-il être fait?

Answer 1

Je n'ai pas essayé cela moi-même, mais je voudrais essayer:

System.Windows.Forms.ToolTip formToolTip = new System.Windows.Forms.ToolTip();
formToolTip .SetToolTip(item, "Row Tooltip");

Où élément correspond à la cellule pour laquelle vous définissez l'info-bulle.

Answer 2

row.cells[indexof].ToolTipText= "tootip here".

Dans les Winforms, il ne semble pas que vous puissiez faire toute la ligne.

si vous avez besoin de toute la ligne, vous pouvez parcourir les cellules.

 foreach (DataGridViewCell cell in row.Cells)
                {
                    cell.ToolTipText = "tooltip here";
                }

Answer 3

If TypeOf control Is TabControl Then
    For Each control1 In control.Controls
        If TypeOf control1 Is TabPage Then
            strControlText = fnGetLanguage(control1.Text)
        End If
        For Each control2 In control1.Controls
            If TypeOf control2 Is label Then
                strControlText = control2.Text
                ' strToolTipText = ToolTip.GetToolTip(control2)
                If strControlText.Contains("*") Then
                    strDizi = Split(strControlText, " ")
                    strControlText = fnGetLanguage(strDizi(0))
                Else
                    strControlText = fnGetLanguage(control2.Text)
                End If
            ElseIf TypeOf control2 Is DataGridView Then
                For i = 0 To control2.ColumnCount - 1
                    strControlText = control2.Columns(i).HeaderText
                    strControlText = fnGetLanguage(strControlText)
                Next
            ElseIf TypeOf control2 Is ComboBox Then
                strControlText = control2.Text
                'strToolTipText = ToolTip.GetToolTip(control2)
                If control2.DataSource Is Nothing Then
                    For i = 0 To control2.Items.Count - 1
                        strControlText = control2.Items(i)
                        strControlText = fnGetLanguage(strControlText)
                    Next
                Else
                    For i = 0 To control2.Items.Count - 1
                        strControlText = control2.Items(i).ToString
                        strControlText = fnGetLanguage(strControlText)
                    Next
                End If
            End If
        Next
    Next
End If