Visual Basic faner tjene fire forskjellige funksjoner. Kategoriene inneholder navigering i former, tjene som plass markører for utskrift av tekst gjennom Visual Basic , fungerer som skilletegn mellom tekstfelt for databaser , og vise dialogbokser med skilleark i applikasjoner . To kontroller, " TabStrip " og " SSTab ", er en del av Visual Basic utvalg av kontrollobjekter . Velge mellom TabStrip og SSTab kontroll er en beslutning programmerer må gjøre avhengig av individuelle egenskapene til hver . Den TabStrip er mer komplisert å utvikle, men har flere funksjoner , mens SSTab kontroll gir raskere utvikling . Du trenger
Visual Basic 6.0
Vis flere instruksjoner
Navigere skjemaer ved hjelp Tabs
en
Åpne et nytt prosjekt ved å klikke på " Standard EXE " mal når Visual Basic belastninger. Dobbeltklikk på " TextBox " kontroll i " Toolbox" i venstre panel på 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 feltene på blanketten .
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 nedover til du ser " tabindex " eiendom . Denne egenskapen skal være en 1 siden kategoriene standard til ordren lagt .
3
Hold " tabindex " tall i orden hvis du legger til eller slette esker , etiketter og andre objekter eller endre rekkefølgen av utseende på skjemaet .
formatering og Avgrensning med Tabs
4
Legg til en " CommandButton " til form av § 1 ved å dobbeltklikke på ikonet i " Toolbox ", vist 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 eksakte antall plasser, for mer presis avstand . Klikk på "Vis /kode " i toppmenyen på skjema som er opprettet i kapittel 1 . Skriv inn kodelinjer slik de vises nedenfor :
Private Sub Command1_Click ( )
COLUMN1 Dim , kolonne 2 , kolonne 3 As String
kolonne 1 = " fornavn "
< p > kolonne 2 = "Last Name"
kolonne 3 = "Date of Birth"
Debug.Print COLUMN1 & vbTab & kolonne 2 & 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 inn i en database
Private Sub Command1_Click ( )
COLUMN1 Dim , kolonne 2 , kolonne 3 , tabfile As String
tabfile = "c : . \\ \\ testfile.txt "
kolonne 1 =" fornavn "
kolonne 2 =" Last Name "
kolonne 3 = " Date of Birth "
Åpen tabfile for Output As # 1
Print # 1 , kolonne 1 ; Tab ( 20 ), kolonne 2 , Tab ( 40 ), kolonne 3
Close # 1
Åpen tabfile For Input As # 1
tabfile = Inngang ( LOF ( 1 ) , 1 )
Debug.Print tabfile
Close # 1
End Sub
< p > (Se Referanser 3 )
Opprette Tab objekter i et program
8
Lagre prosjektet opprettet i § 1 , Trinn 1 med et navn som du velger. Lag en nytt prosjekt å velge " Standard EXE " mal . Legg to supplerende kontroller ved å klikke på " prosjekt ", " komponenter" i øverste nivå Visual Basic -menyen. Rull nedover listen over komponenter for å finne "Microsoft Tabbed Dialog kontroll 6,0 " og " Microsoft Windows Common Controls 6,0 ( SP6 ) . "Klikk på" Checkbox " ved siden av hver for å sette en hake og" OK "for å legge dem til" Toolbox ".
9
Finn" TabStrip " 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 , bør både være i det sjette rad. utheving dem vil få opp navnet. Dobbeltklikk på hver for å plassere dem på skjemaet . Dra dem fra hverandre , plassere " TabStrip " over " SSTab . " Legg til " TextBox " ved å dobbeltklikke på denne " Toolbox "-ikonet . Drag det under SSTab .
10
Høyreklikk på " TabStrip " kontroll for å vise sine egenskaper. Fire faner vises øverst . Klikk på den andre , " tabs . "Hver av kategoriene på selve skjemaet har en" indeks " og en" Bildetekst " . Eiendommen pluss andre Skriv inn disse bildetekster for hvert indeksert fanen og deretter " OK "
Indeks 1 : " . Login "
Index 2 : "Ny bruker"
Index 3 : Send brukernavn "
Index 4 : Send passord
11
Dobbeltklikk på den " TabStrip " kontroll for å åpne koden vinduet og skriv inn disse linjene med kode :
Private Sub TabStrip1_BeforeClick ( Cancel As Integer )
Select sak TabStrip1.SelectedItem.Index
sak 4
MsgBox "Insert login og pwd koden her . "
sak Else
MsgBox " Du kan opprette andre handlinger forbundet med tappene på denne måten . "
End Velg
End Sub
Trykk " F5 " for å kjøre denne delen av søknaden . Prøv å klikke på hver av fanene flere ganger , frem og tilbake . (Se Referanser 4 )
12
Følg prosessen i trinn 3 , nå bruker SSTab kontroll. De " TabCaptions " er på " General" fanen . Bruk venstre og høyre pil ved siden " Current Tab " for å endre navn på bildetekster fra standard som følger : en
Tab 0 : "Legg til ny form "
Tab 1 : " Vis ny form "
Fane2 : "Kalkulator "
13
vise koden vinduet igjen og legge til disse linjene : en
Private Sub SStab1_click ( SelectedTab As Integer )
< p > Statisk Aktiv As Boolean
p Hvis Active Then Exit Sub
Aktiv = sant
Velg sak SelectedTab
sak 0
Tekst1 = " Legg ønsket neste trinn til koding . "
sak 1
Tekst1 = "Legg til en ny side som skal vises i koding "
sak 2
Tekst1 = "Legg til for å vise en kalkulator . "
End Velg
Aktiv = False
End Sub
Trykk " F5 " for å kjøre programmet og klikk på de ulike kategoriene. (Se Referanser 5 )
