Hvordan bruke faner i Visual Basic

Hvordan bruke faner i Visual Basic


Visual Basic faner tjene fire ulike funksjoner. Tabs gi navigasjon innenfor former; tjene som plass markører for utskrift av tekst gjennom Visual Basic; fungere som skilletegn mellom tekstfeltene for databaser; og vise dialogbokser i programmer. To kontroller, "Fanestripe" og "SSTab," er en del av Visual Basic rekke kontrollobjekter. Velge mellom faneraden og SSTab kontroll er en avgjørelse programmereren må gjøre avhengig av individuelle egenskapene til hver. Faneraden er mer komplisert å utvikle, men har flere funksjoner, mens SSTab kontroll gir raskere utvikling.

Bruksanvisning

Navigere skjemaer ved hjelp av faner

1 Åpne et nytt prosjekt ved å klikke på "Standard EXE" mal når Visual Basic laster. Dobbeltklikk på "TextBox" kontroll i "Toolbox" i venstre panel av skjermen, representert ved et lite torg som inneholder små bokstaver "ab" øverst til høyre i verktøykassa. Gjenta denne handlingen tre ganger slik at du ender med fire bokser på skjemaet.

2 Dra boksene fra hverandre siden hver boks lagt dekker opp den foregående. Klikk på den øverste boksen og dra den ut av veien. Gjenta for å skille alle fire bokser. Klikk på den første boksen for å vise sine egenskaper i en kolonne på høyre side av skjermen. Bla ned til du ser "tabindex" eiendom. Denne egenskapen skal være et ett ettersom kategoriene standard til ordren lagt.

3 Hold "tabindex" tall i rekkefølge hvis du vil legge til eller slette bokser, etiketter og andre objekter eller endre rekkefølgen på skjemaet.

Formatering og Avgrensing med faner

4 Legg en "Command" til skjemaet § 1 ved å dobbeltklikke på ikonet i "verktøykassa" vises som lite rektangel i den andre raden av kontroller.

5 Legg Visual Basic språkkoden til tekst eller tall som skal vises i kolonner ved å bruke begrepet "vbTab" eller "TAB (n)" med "n" representerer det nøyaktige antall plasser, for mer presis avstand. Klikk på "Vis / kode" i toppmenyen på skjema som er opprettet i punkt 1. Skriv kodelinjer som de dukker opp nedenfor:

Private Sub Command1_Click ()

Dim kolonne 1, COLUMN2, kolonne 3 As String

kolonne 1 = "Fornavn"

COLUMN2 = "Last Name"

kolonne 3 = "Fødselsdato"

Debug.Print kolonne 1 og vbTab & COLUMN2 & vbTab & kolonne 3

End Sub

6 Klikk på "Command1 knappen på skjemaet for å se resultatene.

7 Endre koden i trinn 2 som følger for å demonstrere ved hjelp av faner for å avgrense felt skrevet til en tekstfil, som deretter kan importeres til en database.

Private Sub Command1_Click ()

Dim kolonne 1, COLUMN2, kolonne 3, tabfile As String

tabfile = "c: \ testfile.txt"

kolonne 1 = "Fornavn"

COLUMN2 = "Last Name"

kolonne 3 = "Fødselsdato"

Åpne tabfile For Output As # 1

Print # 1, kolonne 1; Tab (20); COLUMN2; Tab (40); kolonne 3

Lukk # 1

Åpne tabfile For Input As # 1

tabfile = Input (LOF (1), 1)

Debug.Print tabfile

Lukk # 1

End Sub

(Se Referanser 3)

Opprette Tab objekter i et program

8 Lagre prosjekt som er opprettet i punkt 1, trinn 1 med et navn som du velger. Opprett et nytt prosjekt å velge "Standard EXE" mal. Legg til to tilleggskontroller ved å klikke på "Project", "Components" i Visual Basic-menyen øverste nivå. Rull nedover listen over komponenter for å finne "Microsoft dialogkontroll 6.0" og "Microsoft Windows Common Controls 6.0 (SP6)." Klikk på "boksen" ved siden av hverandre for å sette en hake og "OK" for å legge dem til "Toolbox".

9 Finn "Fanestripe" kontroll, en firkantet boks med en apostrof på toppen og "SSTab" kontroll, et symbol som ligner lorgnett briller i "Toolbox". Hvis du ikke har lagt til noen andre kontroller, skal begge være i sjette rad. Opplyser dem vil få opp navnet. Dobbeltklikk på hver for å plassere dem på skjemaet. Dra dem fra hverandre, plassere "Fanestripe" over "SSTab." Legg en "TextBox" ved å dobbeltklikke denne "Toolbox" ikonet. Dra den under SSTab.

10 Høyreklikk på "Fanestripe" kontrollen for å vise sine egenskaper. Fire kategoriene vises øverst. Klikk på den andre, "Tabs". Hver av kategoriene i skjemaet i seg selv har en "Index" og en "Caption" eiendom pluss andre. Skriv inn disse bildetekster for hvert indeksert fanen, deretter "OK".

Indeks 1: "Logg inn"

Indeks 2: "Ny bruker"

Indeks 3: Send Brukernavn "

Index 4: Send passord

11 Dobbeltklikk på "Fanestripe" kontrollen for å åpne kodevinduet og skriv følgende linjer med kode:

Private Sub TabStrip1_BeforeClick (Cancel As Integer)

Velg Sak TabStrip1.SelectedItem.Index

sak 4

MsgBox "Sett inn brukernavn og pwd koden her."

sak Else

MsgBox "Du kan opprette andre handlinger forbundet med tappene på denne måten."

End Select

End Sub

Trykk "F5" for å kjøre denne delen av programmet. Prøv å klikke på hver av fanene flere ganger, frem og tilbake. (Se Referanser 4)

12 Følge fremgangsmåten i trinn 3, nå ved hjelp av SSTab kontroll. De "TabCaptions" er på "General" fanen. Bruk venstre og høyre piltast ved siden av "Current Tab" for å endre navn på bildetekster fra standard som følger:

Tab 0: "Legg til ny"

Tab 1: "Vis nye formen"

Fane2: "kalkulator"

1. 3 Vis koden vinduet igjen og legge til disse linjene:

Private Sub SStab1_click (SelectedTab As Integer)

Statisk Aktiv As boolsk

Hvis Active Then Exit Sub

Aktiv = True

Velg Sak SelectedTab

sak 0

Text1 = "Legg til ønsket neste skritt å koding."

tilfelle 1

Text1 = "Legg til en ny side som skal vises i koding"

tilfelle 2

Text1 = "Legg til for å vise en kalkulator."

End Select

Aktiv = False

End Sub

Trykk "F5" for å kjøre programmet, og klikk på de ulike kategoriene. (Se Referanser 5)