Sådan angives et brugerdefineret værktøjstip i en DataGridView-kolonne

June 2

Sådan angives et brugerdefineret værktøjstip i en DataGridView-kolonne

Tilføje brugerdefineret værktøjstip i celler for en DataGridView-kolonne ved hjælp af Visual Basic kan hjælpe dig med at kommunikere yderligere oplysninger om en bestemt celle til brugere som giver en alternativ beskrivelse af indholdet af cellen. Et DataGridView-objekt viser data i tabelformat svarende til en relationel databasetabel. Brug hændelsen "CellFormatting" til at udføre kode, der ændrer egenskaben "ToolTipText" for en bestemt celle. ToolTips er almindeligt anvendt til at vise tekst forklaringer på rækker, der viser billeder.

Instruktioner

1 Start Microsoft Visual Studio, skal du klikke på "Nyt projekt" i venstre rude på din computerskærm og udvide "Visual Basic" under "Installerede skabeloner." Klik på "Windows" og dobbeltklik på "Windows Forms-program" fra midten af dialog rude til at oprette et nyt projekt.

2 Dobbeltklik på "DataGridview" fra ruden "Værktøjskasse" til at føje en til din form. Dobbeltklik på formularen for at oprette en formular belastning begivenhed. Kopier og Indsæt følgende kode til at udfylde "DataGridView" med data:

DataGridView1.ColumnCount = 2

With DataGridView1

.RowHeadersVisible = False

.Columns(0).Name = "ID"

.Columns(1).Name = "Description"

End With

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

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

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

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

With Me.DataGridView1.Rows

.Add(gridRow)

.Add(gridRow1)

.Add(gridRow2)

.Add(gridRow3)

End With3

Skifte tilbage til formen design og højreklik på kontrolelementet "DataGridView" og klik på "Egenskaber." Klik på ikonet "Begivenhed", der ligner et lynnedslag og dobbeltklik på ved siden af "CellFormatting" til at skabe denne event.

4 Tilføj følgende kode for at få vist en brugerdefineret TooTip for hver celle i kolonnen "Varebeskrivelse":

Hvis e.ColumnIndex = Me.DataGridView1.Columns("Description"). Indeks _

AndAlso (e.Value IsNot Nothing) Then

With Me.DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex)

If e.Value.Equals("Car") Then

.ToolTipText = "very bad"

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

.ToolTipText = "bad"

ElseIf e.Value.Equals("Motorcycle") Then

.ToolTipText = "good"

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

.ToolTipText = "very good"

End If

End With

End If5

Tryk på "F5" for at køre programmet og Flyt musemarkøren over hver celle i kolonnen Beskrivelse.


© 2020 iamgreatindian.com | Kontakt os: webmaster# iamgreatindian.com