Visual Basic 6.0 Grid Tutorial

Når du designer et program, ved hjælp af en tabel med rækker og kolonner kan hjælpe dig med at vise en masse oplysninger i en lille mængde plads. Visual Basic 6.0 har en komponent kaldet FlexGrid kontrol, som giver dig mulighed for at oprette et gitter med lige så mange rækker og kolonner, som du har brug for, samt udfylde hver celle med data. Du kan tilføje et gitter til din VB6 projekt og bruge den til at gemme oplysninger uden at skulle oprette forbindelse til en ekstern database.

Vejledning

• Åbn et nyt projekt. Klik på "Project" i menuen, og klik derefter på "Komponenter". Rul ned og klik på afkrydsningsfeltet for "Microsoft FlexGrid Kontrol 6.0." Klik på "OK" for at lukke dialogboksen.

• Dobbeltklik på "MSFlexGrid" kontrol i værktøjskassen for at føje den til din form. Klik kanterne for at ændre størrelse, hvis det er nødvendigt. Tilføj en tekstboks og to kommandoknapper ved at dobbeltklikke på dem i værktøjskassen. Klik og træk dem på din formular til at arrangere dem med din gitter over og tekstboksen fulgt af de to kommandoknapper i træk under gitteret.

• Klik på nettet værktøj. Vælg "Name" ejendom i "Egenskaber" vinduet, og ændre det til "grdExample." Skift tekstboksen navn ejendom til "txtData", og kommandoknapperne til "cmdAdd" og "cmdRemove", hhv. Skift billedtekst egenskaben for "cmdAdd" til "Tilføj" og "cmdRemove" til "Fjern".

• Åbn kode vinduet. Opret en global variabel ved at skrive "Dim indeks As Integer" på den første linje. Du skal bruge denne variabel som en tæller for antallet af rækker i dit net.

• Åbn "Form_Load ()" hændelse. Skriv følgende linjer kode: index = 0 Med grdExample .Cols = 2 .Rows = 2 .FocusRect = flexFocusHeavy .SelectionMode = flexSelectionFree .ColWidth (0) = 250 .ColWidth (1) = 2000 .Row = 0 .Col = 1 .Text = "Data Value" End med denne kode initialiserer dit indeks variabel og justerer din gitter til at have to rækker og to kolonner, mærkning første kolonne som "Data værdi." Du kan tilføje flere kolonner eller rækker ved at ændre hele tal i "Cols" og "Rækker" egenskaber og sætte deres værdier på samme måde, som du gør med de eksisterende kolonner og rækker.

• Åbn "grdExample_KeyPress (KeyAscii As Integer)" begivenhed. Skriv følgende linjer kode: Select Case KeyAscii Case 32 til 126 grdExample.Text = grdExample.Text & Chr (KeyAscii) Sag 8 'backspace Hvis Len (grdExample.Text)> 0 Derefter grdExample.Text = Venstre (grdExample.Text, (Len (grdExample.Text) - 1)) End If End Select Denne kode giver brugeren mulighed for at vælge en data celle og bruge sin tastaturet til at skrive de oplysninger ændring i det.

• Åbn "cmdAdd_Click ()" hændelse. Skriv følgende linjer kode: index = index + 1 Hvis index = 1 Så grdExample.Row = 1 grdExample.Col = 0 grdExample.Text = indeks grdExample.Col = 1 grdExample.Text = txtData.Text Else grdExample.AddItem indeks & vbTab & txtData.Text End If Denne funktion kontrollerer, om du indtaster data i første række. Hvis ja, er det anført, dine data fra din tekstboks i den eksisterende første række. Hvis ikke, det forøger dit indeks variabel og tilføjer en ny række, og derefter fremsender de data til den.

• Åbn "cmdRemove_Click ()" hændelse. Skriv følgende linjer kode: Hvis index> 0 Derefter Hvis index = 1 Så grdExample.Row = 1 grdExample.Col = 0 grdExample.Text = "" grdExample.Col = 1 grdExample.Text = "" Else grdExample.RemoveItem indeks End Hvis index = index - 1 End If Denne kode fjerner en række data fra din gitter. Hvis du kun har én række, vil den slette dataene, men beholde den tomme række i gitteret. Den kontrollerer også for at sikre, at du ikke slette rækker, som ikke eksisterer, hvilket forhindrer en fejl.

• Tryk på "F5" for at køre dit program. Klik på "Tilføj" for at tilføje en anden række til din gitter, eller klik på "Fjern" for at slette en. Klik på et af de data celler og skriv at indtaste yderligere oplysninger.