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 .