Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky počítača , a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " od centra v dialógovom okne vytvoriť nový projekt .
2
Double - kliknite na " DataGridView " z " Toolbox " paneli pridať kto formulára . Dvakrát kliknite na formulár vytvoriť udalosť Load formulára . Skopírujte a vložte nasledujúci kód k naplneniu " DataGridView " s údajmi :
DataGridView1.ColumnCount = 2
DataGridView1
RowHeadersVisible = False
. . Stĺpce ( 0 ) . Name = " ID "
. Columns ( 1 ) . Name = " Popis "
End With
Dim gridRow As String ( ) = { " 3 " , " auto " }
Dim gridRow1 As String ( ) = { " 4 " , " Truck " }
Dim gridRow2 As String ( ) = { " 5 " , " motocykel " }
Dim gridRow3 As String ( ) = { " 6 " , " SUV " }
S S
3
Prepnite späť do tvoriť dizajn a kliknite pravým tlačidlom myši na ovládací prvok " DataGridView " a kliknite na " Vlastnosti " . Kliknite na ikonu " Event " , ktorý sa podobá úderu blesku a dvakrát kliknite vedľa " CellFormatting " vytvoriť túto udalosť .
4
Pridajte nasledujúci kód na zobrazenie vlastnej TooTip pre každú bunku v " popis " stĺpec :
Ak e.ColumnIndex = Me.DataGridView1.Columns ( " Opis " ) Index _
AndAlso ( e.Value isnot Nic ) Potom
S. Me.DataGridView1.Rows ( e.RowIndex ) . Cells ( e.ColumnIndex )
Ak e.Value.Equals ( " Auto " ) Potom
. ToolTipText = " veľmi zlé "
ElseIf e.Value.Equals ( " SUV " ) potom
. ToolTipText = " zlá " Spojené
ElseIf e.Value.Equals ( " motocyklové " ) , potom
. ToolTipText = " dobrá " Spojené
ElseIf e.Value.Equals ( " Truck " ) , potom
. ToolTipText = " veľmi dobrá "
End If
End With
End If
5
Stlačte " F5 " pre spustenie programu a presuňte kurzor myši nad každú bunku v stĺpci s popisom .