Visual Basic flikar betjänar fyra olika funktioner . Flikar ger navigering inom former , fungera som utrymme markörer för utskrift av text via Visual Basic , fungerar som avgränsare mellan textfält för databaser , och visa tabbade dialogrutor i program . Två kontroller, " TabStrip " och " SSTab , " är en del av Visual Basic utbud av kontrollobjekt . Välja mellan TabStrip och SSTab kontroll är ett beslut programmeraren måste göra beroende på de individuella egenskaperna hos varje . Den TabStrip är mer komplicerat att utveckla men har fler funktioner , medan SSTab kontrollen ger snabbare utveckling . Saker du behöver Review, Visual Basic 6.0
Visa fler instruktioner
Navigera formulär Använda Tabs
1
Öppna ett nytt projekt genom att klicka på " Standard EXE " mall när Visual Basic laster . Dubbelklicka på " TextBox " kontroll i " verktygslådan " i den vänstra panelen i skärmen , som representeras av ett litet torg som innehåller den gemena bokstäver " ab " högst upp till höger i verktygslådan . Upprepa denna åtgärd tre gånger så att du slutar med fyra rutor på blanketten .
2
Dra rutorna isär eftersom varje ruta läggs täcker upp den föregående . Klicka på den översta rutan och drar den ur vägen . Upprepa för att skilja alla fyra rutorna . Klicka på den första rutan för att visa dess egenskaper i en kolumn till höger på skärmen. Bläddra ner tills du ser " tabIndex " egendom . Denna egenskap bör vara en 1 eftersom flikarna standard till ordern läggs .
3
Håll " tabIndex " siffror så om du lägger till eller tar bort lådor , etiketter och andra föremål eller förändring den ordning de uppträder i formuläret . Addera formatering och avgränsa med flikar
4
Lägg en " CommandButton " till formen från avsnitt 1 genom att dubbelklicka på ikonen i " verktygslådan ", visas som liten rektangel i den andra raden av kontroller .
5
Lägg Visual Basic språket kod till text eller siffror som ska visas i kolumner genom att använda uttrycket " vbTab " eller " TAB ( n ) " med " n " representerar det exakta antal, för mer exakt avstånd . Klicka på " Visa /Kod " i toppmenyn i formuläret skapas i avsnitt 1 . Ange rader kod så som de visas nedan :
Private Sub Command1_Click ( ) katalog
Dim kolumn1 , kolumn2 , kolumn3 As String
Kolumn1 = " Förnamn "
kolumn2 = " Efternamn "
kolumn3 = " Födelsedatum "
Debug.Print Kolumn1 & vbTab & kolumn2 & vbTab & kolumn3
Sub End
6
Klicka på " Command1 knappen på formuläret för att se resultatet .
7
Ändra koden i steg 2 enligt följande för att demonstrera att använda flikar för att avgränsa områden skrivs till en textfil , som sedan kan importeras till en databas
Dim kolumn1 , kolumn2 , kolumn3 , tabfile
Private Sub Command1_Click ( ) As String
tabfile = "c: . \\ \\ testfile.txt "
Kolumn1 = " Förnamn "
kolumn2 = " Efternamn "
kolumn3 = " Födelsedatum "
Open tabfile för Utgång Som # 1
Print # 1 , kolumn1 , Tab ( 20 ) , kolumn2 ; Tab ( 40 ) , kolumn3
Close # 1
Open tabfile För Input Som # 1
tabfile = Input ( LOF ( 1 ) , 1 ) katalog
Debug.Print tabfile
Close # 1
End Sub
( Se referenser 3 ) Addera Skapa Tab objekt i ett program
8
Spara projektet skapades i avsnitt 1 , steg 1 med ett namn som du väljer . Skapa ett nytt projekt att välja " Standard EXE " mall . Lägg två kompletterande kontroller genom att klicka på " projekt", " komponenter" i den översta nivån Visual Basic menyn . Bläddra nedåt i listan över komponenter för att hitta " Microsoft flikar 6.0 Dialog " och "Microsoft Windows Common Controls 6.0 ( SP6 ) . " Klicka på " Kryssruta " bredvid varje infoga en bock och " OK " för att lägga till dem i " verktygslådan ".
9
Leta upp " TabStrip " kontroll , en fyrkantig låda med en apostrof upptill och " SSTab " kontroll , en ikon som liknar pincené glasögon i " verktygslådan . " Om du inte har lagt till några andra kontroller , bör båda vara i sjätte raden . markeringar dem kommer att ta upp namn . Dubbelklicka på varje för att placera dem på blanketten . Dra isär dem , placera " TabStrip " ovanför " SSTab . " Lägg till " TextBox " genom att dubbelklicka på det här " Toolbox " -ikonen . Drag den under SSTab .
10
Högerklicka på " TabStrip " kontrollen för att visa dess egenskaper . fyra flikar visas högst upp . Klicka på den andra , " Tabs . " Var och en av flikarna på själva formuläret har ett " Index " och " Caption " . Egendom plus andra in dessa bildtexter för varje indexerad fliken , klicka sedan på " OK "
Index 1 : " . Logga in "
Index 2 : " Ny Användare "
Index 3 : Skicka Användarnamn "
Index 4 : Skicka lösenord
11
Dubbelklicka på den " TabStrip " för att öppna koden fönstret och skriv in dessa kodrader :
Private Sub TabStrip1_BeforeClick ( Cancel As Integer ) katalog
Select Case TabStrip1.SelectedItem.Index
mål 4
MsgBox " Infoga login och pwd kod här . "
Case Else
MsgBox " Du kan skapa andra åtgärder i samband med flikarna på detta sätt . "
End Välj
End Sub
Tryck " F5 " för att köra denna del av ansökan . Prova att klicka på de olika flikarna flera gånger , fram och tillbaka . ( Se referenser 4 )
12
Följ processen i steg 3 , använder nu SSTab kontroll . De " TabCaptions " finns på fliken "Allmänt" . Använd vänster och höger pilarna bredvid " Current Tab " för att byta namn på bildtexter från standard enligt följande :
Tab 0 : " Lägg till ny blankett "
Tab 1 : " Visa ny form "
Tab2 : " Calculator "
13
visa koden fönstret igen och lägga till dessa rader :
Private Sub SStab1_click ( SelectedTab As Integer ) katalog
Statisk Aktiv As Boolean
p Om Active sedan Exit Sub
Aktiv = Sant
Välj Case SelectedTab
Case 0
Text1 = " Lägg önskad nästa steg att kodning . "
fall 1
Text1 = " Lägg till en ny sida som ska visas i kodning "
fall 2 Review
Text1 = " Lägg till visas en räknare . "
End Välj
Aktiv = False
End Sub
Tryck " F5 " för att köra programmet och klicka på de olika flikarna . ( Se referenser 5 ) Addera
