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)