Sådan bruger faner i Visual Basic
Visual Basic faner tjene fire forskellige funktioner. Faner giver sejlads i former; fungere som plads markører for udskrivning af tekst via Visual Basic; fungere som skilletegn mellem tekstfelter til databaser; og display tabbed dialogbokse i applikationer. To knapper, "Fanelinje" og "SSTab", er en del af Visual Basic array af kontrol objekter. Vælge mellem Fanelinje og SSTab kontrol er en beslutning programmøren skal gøre afhængig af de individuelle egenskaber af hver. Den Fanelinje er mere kompliceret at udvikle, men har flere funktioner, mens SSTab kontrol giver en hurtigere udvikling.
Instruktioner
Navigation formularer ved hjælp af faneblade
1. Åbn et nyt projekt ved at klikke på "Standard EXE" skabelon, når Visual Basic belastninger. Dobbeltklik på "TextBox" kontrol i "Toolbox" i venstre panel af skærmen, repræsenteret ved en lille firkant, der indeholder de små bogstaver "AB" i øverste højre hjørne af værktøjskassen. Gentag denne handling tre gange mere, så du ender med fire kasser på formularen.
• Træk kasserne fra hinanden, da hver boks tilføjet dækker op den foregående. Klik på den øverste boks, og træk det ud af vejen. Gentag at adskille alle fire bokse. Klik på det første felt for at vise dets egenskaber i en kolonne i højre side af skærmen. Rul ned, indtil du ser "TabIndex" ejendom. Denne ejendom bør være en 1, da fanerne standard til ordren tilføjet.
• Hold "tabindex" numre i orden, hvis du tilføje eller slette kasser, etiketter og andre objekter eller ændre rækkefølgen af udseende på formularen.
Formatering og Afgrænsning med faneblade
• Tilføj en "CommandButton" til den form fra afdeling 1 ved at dobbeltklikke på ikonet i "Toolbox", vist som lille rektangel i den anden række af kontroller.
• Tilføj Visual Basic sprogkode til tekst eller tal, der bør vises i kolonner ved at bruge udtrykket "vbTab" eller "TAB (n)" med "n" repræsenterer det nøjagtige antal pladser, for mere præcis afstand. Klik på "Vis / Code" i topmenuen i formularen oprettet i § 1. Indtast kodelinjer, som de vises nedenfor: Private Sub Command1_Click () Dim kolonne 1, kolonne 2, kolonne 3 As String kolonne 1 = "First Name" kolonne 2 = kolonnen "Last Name" 3 = "Fødselsdato" Debug.Print kolonne 1 & vbTab & kolonne 2 & vbTab & kolonne 3 End Sub
3. Klik på "Command 1 knap på formularen for at se resultaterne.
4. Skift koden i trin 2 som følger for at demonstrere at bruge faneblade til at afgrænse områder, skrevet til en tekstfil, som derefter kan importeres i en database. = "C: \\ testfile.txt" Private Sub Command1_Click () Dim kolonne 1, kolonne 2, kolonne 3, tabfile As String tabfile kolonne 1 = "First Name" kolonne 2 = "Last Name" kolonne 3 = "Fødselsdato "Open tabfile For output som # 1 Print # 1, kolonne 1; Fanen (20); kolonne 2; Fanen (40); kolonne 3 Luk # 1 Åbn tabfile For Input som # 1 tabfile = Input (LOF (1), 1) Debug.Print tabfile Close # 1 End Sub (se Referencer 3)
Oprettelse fanen Objekter i et program
• Gem projektet skabt i § 1, Trin 1 med et navn efter eget valg. Opret et nyt projekt at vælge "Standard EXE" skabelon. Tilsæt to supplerende kontrol ved at klikke på "Projekt", "komponenter" i Visual Basic menu topniveau. Rul ned ad listen over komponenter til at finde "Microsoft Tabbed Dialog Kontrol 6.0" og "Microsoft Windows Common Controls 6.0 (SP6)." Klik på "afkrydsningsfeltet" ved siden af hver for at indsætte et flueben og "OK" for at føje dem til "værktøjskassen".
2. Find "Fanelinje" kontrol, en firkantet kasse med en apostrof i toppen og "SSTab" kontrol, et ikon, der ligner pincenez briller i "Toolbox". Hvis du ikke har tilføjet nogen andre kontroller, bør begge være i den sjette række. Fremhæve dem vil bringe op navn. Dobbeltklik på hver at placere dem på formularen. Trække dem fra hinanden, at placere "Fanelinje" over "SSTab". Tilføj en "TextBox" ved at dobbeltklikke på denne "Toolbox" ikonet. Træk den under SSTab.
• Højreklik på "Fanelinje" kontrol for at vise sine egenskaber. Fire faner vises øverst. Klik på den anden, "faneblade". Hver af fanerne på selve formularen har et "Index" og en "Caption" ejendom plus andre. Indtast disse billedtekster for hver fane indekseret, og klik derefter på "OK". Index 1: "Log ind" Index 2: "Ny Bruger" Indeks 3: Send User Name "Indeks 4: Send kodeord
• Dobbeltklik på på "Fanelinje" kontrol for at åbne koden vinduet og ind i disse linjer kode: ". Indsæt login og pwd kode her" Private Sub TabStrip1_BeforeClick (Annuller As Integer) Select Case TabStrip1.SelectedItem.Index Case 4 MsgBox Case Else MsgBox "Du kan oprette andre handlinger forbundet med fanerne på denne måde." End Select End Sub Tryk på "F5" for at køre denne del af ansøgningen. Prøve at klikke på hver af fanerne flere gange frem og tilbage. (Se Referencer 4)
• Følg processen i trin 3, nu bruger SSTab kontrol. De "TabCaptions" er på fanen "Generelt". Brug venstre og højre pil ved siden af "Current Tab" for at omdøbe billedtekster fra standard som følger: Tab 0: "Tilføj ny form" Fane 1: "Display ny form" Tab 2: "Calculator"
• Vis koden vinduet igen og tilføje disse linjer: Private Sub SStab1_click (SelectedTab As Integer) Statisk Active Som Boolean Hvis Active derefter afslutte Sub Aktiv = True Select Case SelectedTab Case 0 Tekst 1 = ". Tilføj den ønskede næste skridt til kodning" Case 1 Tekst 1 = "Tilføj en ny side til at vise i kodning" Case 2 Tekst 1 = "Tilføj for at få vist en lommeregner." Afslut Vælg Active = False End Sub Tryk på "F5" for at køre programmet, og klik på de forskellige faner. (Se 5 referencer)