Legge til tilpassede ToolTips i cellene for en DataGridView kolonne ved hjelp av Visual Basic kan hjelpe deg å kommunisere mer informasjon om en bestemt celle til brukere som gir en alternativ beskrivelse av innholdet i cellen . En DataGridView kontroll viser data i tabellform format som ligner på en relasjonsdatabase tabellen . Bruk " CellFormatting " hendelse for å kjøre kode som endrer " ToolTipText " eiendom for en bestemt celle . ToolTips blir ofte brukt til å vise tekst forklaringer på rader som viser bilder. Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

Launch Microsoft Visual Studio , klikk " Nytt prosjekt " fra den venstre ruten på skjermen , og utvide " Visual Basic " under " Installerte maler . " Klikk på " Windows" og dobbeltklikk på "Windows Forms Application " fra sentrum av dialog vinduet for å opprette et nytt prosjekt .
2

Dobbeltklikk på " DataGridView " fra " Toolbox" -panelet for å legge til ett i skjemaet. Dobbeltklikk skjemaet for å opprette en form belastning hendelsen. Kopier og lim inn følgende kode for å befolke " DataGridView " med data : .

DataGridView1.ColumnCount = 2
p Med DataGridView1

RowHeadersVisible = False

. Søyler ( 0 ) . name = " ID "

. Søyler ( 1) . Navn = "Beskrivelse "

End Med

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

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

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

Dim gridRow3 As String ( ) = { " 6 "," SUV "}
p Med Med
3

Bytt tilbake for å danne design og høyre -klikk på " DataGridView " kontroll og klikk "Egenskaper". Klikk på "Event "-ikonet som ligner et lynnedslag og dobbeltklikk på siden av " CellFormatting " for å lage dette arrangementet .
4

Legg til følgende kode for å vise en tilpasset TooTip for hver celle i " Beskrivelse "-kolonnen : en p Hvis e.ColumnIndex = Me.DataGridView1.Columns . ( " Beskrivelse " ) Index _

andalso ( e.Value iSNOT Nothing ) Så
p Med Me.DataGridView1.Rows ( e.RowIndex ) . Cells ( e.ColumnIndex )
p Hvis e.Value.Equals ( " Car" ) Then

. ToolTipText = " svært dårlig "

ElseIf e.Value.Equals ( " SUV ") Da

. ToolTipText = "dårlige"

Elseif e.Value.Equals ( " motorsykkel" ) Da
< p> . ToolTipText = "gode"

Elseif e.Value.Equals ( " Truck" ) Da

. ToolTipText = " very good"

End If

End With

End If
5

Trykk " F5 " for å kjøre programmet og beveger musepekeren over hver celle i kolonnen Beskrivelse .