Tilføjelse brugerdefinerede værktøjstip i celler for en DataGridView kolonne ved hjælp af Visual Basic kan hjælpe dig med at kommunikere mere information om en bestemt celle til brugere såsom at give en alternativ beskrivelse af celleindholdet . En DataGridView kontrol viser data i et tabelformat ligner en relationel database tabel. Brug " CellFormatting " begivenhed for at udføre kode , der ændrer " ToolTipText " ejendom for en bestemt celle . Værktøjstip er almindeligt anvendt til at vise tekst forklaringer på rækker , der viser billeder. Ting du skal
Microsoft Visual Studio
Vis Flere Instruktioner
1
Launch Microsoft Visual Studio , klik på " Nyt projekt " fra venstre rude på din computerskærm , og expand " Visual Basic " under " Installerede skabeloner ". Klik på " Windows" og dobbeltklik på "Windows Forms Application " fra midten af dialogvinduet for at oprette et nyt projekt.
2
Dobbeltklik på " datagridview " fra " Toolbox" ruden for at tilføje en til din formular . Dobbeltklik på formularen for at oprette en form belastning begivenhed. Kopier og indsæt følgende kode til at udfylde " DataGridView " med data : .
DataGridView1.ColumnCount = 2
DataGridView1
RowHeadersVisible = False
. kolonner ( 0). name = " ID "
. kolonner ( 1). Name = "Beskrivelse "
End Med
Dim gridRow As String () = { "3 ", " Car "}
Dim gridRow1 As String () = {" 4", "Truck "}
Dim gridRow2 As String () = { "5 ", " Motorcycle "}
Dim gridRow3 As String () = {" 6 "," SUV "}
Med
3
Skift tilbage til at danne design og højreklik på " DataGridView " kontrol og klik på "Egenskaber". Klik på "Event "-ikon , der ligner et lynnedslag og dobbeltklik på siden af " CellFormatting " for at oprette denne begivenhed.
4
Føj følgende kode til at vise en brugerdefineret TooTip for hver celle i " Beskrivelse "kolonnen : Hej p Hvis e.ColumnIndex = Me.DataGridView1.Columns . ( " Beskrivelse " ) Indeks _
andalso ( e.Value isnot Nothing ) Så
Me.DataGridView1.Rows ( e.RowIndex ) . Cells ( e.ColumnIndex )
p Hvis e.Value.Equals ( "Car " ) Så
. ToolTipText = " meget dårlig " < br >
Elseif e.Value.Equals ( " SUV ") og derefter
. ToolTipText = "dårlige"
elseif e.Value.Equals ( "Motorcycle ") og derefter
< p> . ToolTipText = "gode"
elseif e.Value.Equals ( "Truck ") og derefter
. ToolTipText = " very good "
End If
end With
end If
5
Tryk på " F5 " for at køre programmet og flytte musemarkøren over hver celle i kolonnen Beskrivelse .