Comment les info-bulles peuvent-elles être ajoutées à une ou plusieurs lignes de la grille de données winbords vb.net?

Question

Je cherche à ajouter une info-bulle à chaque ligne dans une grille de données liée dans winforms vb.net. Comment cela peut-il être fait?

Answer 1

Je n'ai pas essayé moi-même, mais je lui donnerais un coup de feu:

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

Où item correspond à la cellule vous réglez la pointe de l'outil pour.

Answer 2

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

En WinForms, il ne semble pas que vous pouvez faire toute la ligne.

Si vous avez besoin de toute la ligne, vous pouvez faire une boucle dans 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