Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm , en uitbreiden " Visual Basic " onder " Installed Sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een ​​nieuw project aan te maken .

Dubbelklik op " Datagridview " 2 van de " Toolbox " deelvenster toe te voegen een aan uw formulier . Dubbelklik op het formulier om een formulier load gebeurtenis te maken . Kopieer en plak de volgende code om de " DataGridView " met data bevolken : .

DataGridView1.ColumnCount = 2

Met DataGridView1

RowHeadersVisible = False

. Columns ( 0 ) . Name " ID "

. Columns = ( 1 ) . Name = "Beschrijving "

End
Met

Dim gridRow
As String ( ) = { " 3 " , " Auto " }

Dim gridRow1
As String ( ) = { " 4 " , " Truck" }

Dim gridRow2
As String ( ) = { " 5 " , " Motorcycle " }

Dim gridRow3 als Koord
( ) = { " 6 " , " SUV " }

Met Met
3

Schakel terug naar het ontwerp en de rechtermuisknop op de " DataGridView " controle en klik vormen "Eigenschappen . " Klik op de "Event " icoon dat een blikseminslag en dubbelklik naast " CellFormatting " om deze gebeurtenis te maken lijkt .
4

Voeg de volgende code om een ​​aangepaste TooTip voor elke cel weer te geven in de " Beschrijving " column :

Als e.ColumnIndex = Me.DataGridView1.Columns . ( " Omschrijving " ) Index _

andalso
( e.Value IsNot Nothing ) dan

Met Me.DataGridView1.Rows ( e.RowIndex ) . Cells ( e.ColumnIndex ) op

Als e.Value.Equals ( " Auto " ) dan

. TooltipText = " heel slecht " < br >

ElseIf e.Value.Equals ( " SUV " ) op Twitter

. TooltipText = "slechte "

ElseIf e.Value.Equals dan
( " Motorfiets " ) dan

. TooltipText = " goede "

ElseIf e.Value.Equals
( " Truck" ) dan

. TooltipText = "zeer goed"

End
Als

End With

End
Als

Druk op " F5 " 5 om het programma uit te voeren en beweeg uw muiscursor over elke cel van de beschrijving kolom.