Lägga anpassade ToolTips i celler för en DataGridView kolonn med Visual Basic kan hjälpa dig att kommunicera mer information om en viss cell till användare såsom att tillhandahålla en alternativ beskrivning av cellinnehållet . En DataGridView kontroll visar data i ett tabellformat som liknar en relationsdatabas tabell . Använd " CellFormatting " händelsen för att exekvera kod som ändrar " ToolTipText " egenskapen för en viss cell . ToolTips används ofta för att visa text förklaringar på rader som visar bilder . Saker du behöver
Microsoft Visual Studio
Visa fler instruktioner
1
Launch Microsoft Visual Studio , klicka på " Nytt projekt " från den vänstra rutan på din datorskärm , och expandera " Visual Basic " under " Installerade mallar . " Klicka på " Windows " och dubbelklicka på " Windows Forms Application " från mitten av dialogrutan för att skapa ett nytt projekt .
2
Dubbelklicka på " DataGridView " från " Toolbox " rutan för att lägga till en till formuläret . Dubbelklicka på formuläret för att skapa en händelse formulär belastning . Kopiera och klistra in följande kod för att befolka " DataGridView " med data : .
DataGridView1.ColumnCount = 2 Review
DataGridView1
RowHeadersVisible = False
. Kolumner ( 0 ) . name = " ID "
. Kolumner ( 1 ) . name = " Description "
End With
Dim gridRow As String ( ) = { " 3 ", " bil" }
Dim gridRow1 As String () = {" 4 ", " Truck "}
Dim gridRow2 As String () = {" 5 ", " Motorcykel "}
Dim gridRow3 As String () = {" 6 "," SUV "}
Med Addera 3
Växla tillbaka för att bilda design och högerklicka på " DataGridView " kontroll och klicka på "Egenskaper . " Klicka på "Event " -ikonen som liknar ett blixtnedslag och dubbelklicka bredvid " CellFormatting " för att skapa denna händelse .
4
Lägg till följande kod för att visa en anpassad TooTip för varje cell i " Beskrivning "-kolumnen :
p Om e.ColumnIndex = Me.DataGridView1.Columns . ( " Beskrivning " ) Index _
andalso ( e.Value isnot Nothing ) Sen
Me.DataGridView1.Rows ( e.RowIndex ) . Celler ( e.ColumnIndex ) katalog p Om e.Value.Equals ( " Car " ) Sen
. ToolTipText = " mycket dåligt "
elseIf e.Value.Equals ( " SUV " ) Then
. ToolTipText = "dåliga"
elseIf e.Value.Equals ( " motorcykel" ) Then
. ToolTipText = "bra"
elseIf e.Value.Equals ( " Truck " ) Then
. ToolTipText = " mycket bra "
End If
End With
End If
5
Tryck " F5 " för att köra programmet och flytta muspekaren över varje cell i kolumnen Beskrivning .
Addera
