Hvordan skjule en kolonne fra Flexgrid i Visual Basic 6

Selv om Visual Basic 6 (VB6) har blitt erstattet av Visual Basic.Net rekke programmering pakker, har VB6 fortsatt en stor tilhengerskare. Noe av grunnen til dette er fordi VB6 er enklere å bruke enn sine Net motpart og har fått en rekke nyttige tilleggs-on verktøy. Et av disse verktøyene er Flexgrid kontroll, opprinnelig fra VideoSoft (VS). Dette tillegget gir kraftige regnearklignende funksjonalitet til VB6 i en lett-å-bruke pakke. En av de elegante funksjoner som tilbys av VS Flexgrid kontrollen er evnen til å skjule kolonner med data.

Bruksanvisning

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

2 Last 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 vises, inkludert en for "VSFlexGrid." Velg denne kontrollen (sette et merke i boksen ved siden av), og trykk 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 ruten, endre navnet på nettet for å "VS." Deretter høyreklikker du på nettet og velg "Egenskaper" fra pop-up menyen. Du vil bli presentert med en dialogboks med flere faner som inneholder ulike egenskaper (f.eks farge) 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å Form (hvor som helst, men på nettet). Du vil bli tatt med til en koding vindu der du kan angi kode som skal kjøres. Markøren skal vises på innsiden av den aktuelle subrutine delen. Innenfor denne subrutine, skriver du inn følgende:

VS.Row = 0

VS.Col = 0

VS.Text = "Car"

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 "Command" -ikonet (ser ut som en knapp) i kontrollene stripe på venstre side og deretter tegne knappene på Form. Ved hjelp av egenskapene panelet på høyre side, endre tittelen på en knapp for å "skjule" og den andre til "Vis".

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

VS.ColHidden (1) = Sant

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

VS.ColHidden (1) = False

7 Test programmet ved å trykke på play-knappen (den sidelengs-peke trekant) på den horisontale verktøylinjen. Det burde få opp skjema med rutenett 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å "Skjul" -knappen, skal du se "Ship" -kolonnen forsvinne. Trykk på "Vis" -knappen, og du bør se kolonnen vises igjen.