Selv om Visual Basic 6 ( VB6 ) har blitt erstattet av Visual Basic.Net rekke programmering pakker , har VB6 fortsatt en stor tilhengerskare . En del av grunnen til dette er fordi VB6 er enklere å bruke enn sine . Net motstykke og har fått et bredt spekter av nyttige add -on verktøy. Et av disse verktøyene er FlexGrid kontroll, opprinnelig fra VideoSoft ( VS ) . Dette tillegget gir kraftige regneark -lignende funksjonalitet til VB6 i en lett-å - bruke pakke . En av de pen funksjoner som tilbys av VS FlexGrid kontroll er evnen til å skjule kolonnene med data. Instruksjoner
en

Start- VB6 og endre pre -laget Form ( brukergrensesnitt vindu) til din smak. Ved hjelp av musen og egenskaper panelet på nedre høyre side , kan du endre alle aspekter av Form for eksempel størrelsen , tittel og farger.
2

Legg VS FlexGrid kontroll. Fra " Project" -menyen , klikk på " Components ". Du vil se en dialogboks med flere faner . Velg " Controls "-kategorien , og en liste over flere " VideoSoft " produkter vil dukke opp, inkludert en for " VSFlexGrid . " Velg denne kontrollen ( sette et merke i boksen ved siden av) og trykker på " OK "-knappen . Du skal nå se et nytt ikon i kontrollene verktøyet stripe på venstre side.
3

Velg det nye ikonet og tegne en passende rutenett på skjemaet. I nedre høyre rute , endre navnet på rutenettet til " VS ". Deretter høyreklikker du på rutenettet og velg " Egenskaper" fra pop-up menyen . Du vil bli presentert med en dialogboks med flere kategorier som inneholder ulike egenskaper (f.eks farger ) av rutenettet . Endre noen av disse egenskapene til din smak .
4

For testformål , lage noen tekst overskrifter for hver kolonne i rutenettet. Dette kan gjøres ved å dobbeltklikke på skjema ( hvor som helst , men på nettet) . Du vil bli tatt til en koding vindu der du kan angi kode som skal kjøres. Markøren skal vises inne i den aktuelle subrutine delen. Innenfor denne subrutine , skriver du inn følgende : en

VS.Row = 0

VS.Col = 0

VS.Text = "Bil"

VS . Col = 1

VS.Text = " Ship"

VS.Col = 2

VS.Text = " Airplane "
5

Gå tilbake til Form vinduet og opprette to knapper . Du kan gjøre dette ved å velge " CommandButton "-ikonet (ser ut som en knapp ) i kontrollene stripe på venstre side og deretter tegne knappene på Form . Bruke egenskaper ruten nederst til høyre side , endre tittelen for en knapp for å "Hide " og den andre til "Vis ".
6

Dobbeltklikk på knappen merket " Skjul " og du vil bli tatt til en koding vindu med markøren innen den aktuelle subrutine . Skriv inn følgende kode i den subrutinen : en

VS.ColHidden ( 1 ) = sant

Tilsvarende , dobbeltklikker du på knappen merket , "Show " og skriv inn følgende kode i den nye subrutinen : en

VS.ColHidden ( 1 ) = False
7

Test programmet ved å trykke på play-knappen ( den sidelengs trekanten som peker ) på toppen vannrett verktøylinje . Det burde få opp skjema med rutenettet og de ​​to knappene . Du skal se de tre første feltene i rutenettet merket som " Car ", " Ship" og " Airplane ". Når du trykker på " Hide "-knappen , skal du se " Ship "-kolonnen forsvinner . Trykk på " Vis" -knappen , og du bør se kolonnen vises igjen .