1 Ανοίξτε ένα νέο έργο κάνοντας κλικ στο πρότυπο « Standard EXE " όταν Visual Basic φορτία . Κάντε διπλό κλικ στο " Πλαίσιο κειμένου " ελέγχου "Toolbox " στην αριστερή πλευρά της οθόνης , που αντιπροσωπεύεται από μια μικρή πλατεία που περιέχει τα μικρά γράμματα " ab " στην επάνω δεξιά γωνία της εργαλειοθήκης . Επαναλάβετε αυτήν την ενέργεια τρεις φορές έτσι ώστε να καταλήξουμε με τέσσερα πεδία στην φόρμα . 2
Σύρετε τα κουτιά , εκτός από το κάθε κουτί προστεθεί καλύπτει μέχρι και το προηγούμενο . Κάντε κλικ στο πάνω πλαίσιο και σύρετέ την έξω από το δρόμο . Επαναλάβετε για να διαχωρίσετε τα τέσσερα κουτιά . Κάντε κλικ στο πρώτο πλαίσιο για να εμφανίσετε τις ιδιότητες του σε μια στήλη στα δεξιά της οθόνης . Μετακινηθείτε προς τα κάτω μέχρι να δείτε το " TabIndex " ιδιοκτησίας. Αυτή η ιδιότητα πρέπει να είναι 1 από την χρεοκοπία καρτέλες με τη σειρά πρόσθεσε.
Εικόνων 3
Κρατήστε τους αριθμούς " TabIndex " ώστε αν προσθέσετε ή να διαγράψετε κουτιά, ετικέτες , και άλλα αντικείμενα ή αλλαγή η σειρά εμφάνισης στη φόρμα .
εικόνων μορφοποίηση και οριοθέτηση με καρτέλες
Η 4
Προσθήκη " CommandButton » με την μορφή από το τμήμα 1 με διπλό κλικ στο εικονίδιο στο "Toolbox ", εμφανίζεται ως μικρό ορθογώνιο στη δεύτερη σειρά των ελέγχων .
5
Προσθέστε τον κώδικα Basic Visual γλώσσας για ένα κείμενο ή τους αριθμούς που θα εμφανίζονται στις στήλες με τη χρήση του όρου " vbTab » ή " TAB ( ιδ) " με " n" αντιπροσωπεύει τον ακριβή αριθμό των χώρων , για την πιο ακριβή απόσταση . Κάντε κλικ στο "Προβολή /Κωδικός " στο μενού στην κορυφή της φόρμας που δημιουργήθηκε στο τμήμα 1 . Εισάγετε γραμμές κώδικα , όπως φαίνεται παρακάτω :
Private Sub Command1_Click ( )
Δημ. column1 , στήλη2 , στήλη 3 Όπως String
column1 = " Όνομα "
στήλη2 = " Επώνυμο "
στήλη 3 = " Ημερομηνία γέννησης "
Debug.Print column1 & vbTab & στήλη2 & vbTab & στήλη 3
End Sub
6
Κάντε κλικ στο κουμπί " Command1 στη φόρμα για να δείτε τα αποτελέσματα .
Η 7
Αλλάξτε τον κώδικα στο Βήμα 2 ως ακολούθως να αποδείξει τη χρήση καρτελών για να οριοθετήσει τα πεδία γραμμένο σε ένα αρχείο κειμένου , η οποία στη συνέχεια μπορούν να εισαχθούν σε μια βάση δεδομένων
Private Sub Command1_Click ( )
Δημ. column1 , στήλη2 , στήλη 3 , tabfile Όπως String
tabfile = "c : \\. \\ testfile.txt "
column1 = " Όνομα "
στήλη2 = " Επώνυμο "
στήλη 3 = " Ημερομηνία γέννησης "
Open tabfile Για έξοδος Όπως # 1
Print # 1 , column1 ? Tab ( 20) ? στήλη2 ? Tab ( 40 ) ? στήλη 3
Close # 1
Open tabfile Για Input Όπως # 1
tabfile = Input ( LOF ( 1 ) , 1 )
Debug.Print tabfile
Close # 1
End Sub
( Βλ. Αναφορές 3 )
εικόνων Δημιουργία Tab αντικείμενα σε μια εφαρμογή
8
Αποθηκεύστε το έργο που δημιουργήθηκε στο τμήμα 1 , Βήμα 1 με ένα όνομα της επιλογής σας . Δημιουργήστε ένα νέο έργο επιλέγοντας το "Standard EXE " πρότυπο . Προσθήκη δύο συμπληρωματικοί έλεγχοι κάνοντας κλικ στο "Project ", " εξαρτήματα" σε κορυφαίο επίπεδο μενού της Visual Basic . Μετακινηθείτε προς τα κάτω τον κατάλογο των συστατικών για να βρείτε το " Microsoft καρτέλες διαλόγου ελέγχου 6.0 " και " Microsoft των Windows κοινούς ελέγχους 6.0 ( SP6 ) . " Κάντε κλικ στο " Πλαίσιο ελέγχου " δίπλα σε κάθε να εισάγετε ένα σημάδι ελέγχου και " OK " για να τα προσθέσετε στο " Toolbox ".
Η 9
Εντοπίστε το " TabStrip " ελέγχου , ένα τετράγωνο κουτί με μια απόστροφο στην κορυφή και το " SSTab " ελέγχου , ένα εικονίδιο που μοιάζει με pince της μύτης γυαλιά στο " Toolbox ". Εάν δεν έχετε προσθέσει άλλους ελέγχους, οι δύο θα πρέπει να είναι στην έκτη σειρά . Επισήμανση τους θα φέρει το όνομα . κάντε διπλό κλικ σε κάθε για να τους τοποθετήσει στη φόρμα . Σύρετε τους εκτός , τοποθετώντας το " TabStrip " πάνω από το " SSTab . " Προσθήκη " Πλαίσιο κειμένου " με διπλό κλικ το εικονίδιο " Toolbox" . Drag είναι κάτω από το SSTab .
Η 10
κάντε δεξί κλικ στο " TabStrip " ελέγχου για να εμφανίσετε τις ιδιότητες του . Τέσσερις καρτέλες εμφανίζονται στην κορυφή . κάντε κλικ στο δεύτερο , " tabs . ". Κάθε μία από τις καρτέλες για το ίδιο το έντυπο έχει ένα " Ευρετήριο " και " Τίτλος " . Ακινήτου συν άλλοι Εισάγετε αυτές τις λεζάντες για κάθε καρτέλα ευρετήριο , στη συνέχεια, κάντε κλικ στο" OK "
Δείκτης 1 : " Σύνδεση "
Δείκτης 2 : " Νέος χρήστης "
Δείκτης 3 : Αποστολή Όνομα χρήστη "
Δείκτης 4 : Αποστολή Κωδικού
11
κάντε διπλό κλικ στο η " TabStrip " ελέγχου για να ανοίξετε το παράθυρο κώδικα και πληκτρολογήστε αυτές τις γραμμές κώδικα :
Private Sub TabStrip1_BeforeClick ( Cancel As Integer )
Select Case TabStrip1.SelectedItem.Index
περίπτωση 4
MsgBox " login Εισαγωγή και pwd κώδικα εδώ . "
Case Else
MsgBox " Μπορείτε να δημιουργήσετε άλλες ενέργειες που σχετίζονται με τις καρτέλες με αυτό τον τρόπο . "
End Select
End Sub
Πατήστε το πλήκτρο " F5 " για να εκτελέσετε αυτό το μέρος της αίτησης . Δοκιμάστε να κάνετε κλικ σε κάθε μία από τις καρτέλες αρκετές φορές, εμπρός και πίσω . ( Βλ. Αναφορές 4 )
Η 12
Ακολουθήστε τη διαδικασία στο βήμα 3 , τώρα χρησιμοποιώντας το στοιχείο ελέγχου SSTab . Οι " TabCaptions " στην καρτέλα " Γενικά" . Χρησιμοποιήστε το αριστερό και το δεξί βέλος δίπλα στο " Current Tab " για να μετονομάσετε τις λεζάντες από την προεπιλογή ως εξής :
Tab 0 : « Προσθέστε νέα μορφή "
Tab 1 : " Παρουσίαση της νέας μορφής "
καρτέλα 2 : " Υπολογιστής "
13
Εμφάνιση ξανά το παράθυρο κώδικα και προσθέστε αυτές τις γραμμές :
Private Sub SStab1_click ( SelectedTab As Integer )
Στατική Active Όπως Boolean
Αν Active συνέχεια Exit Sub
Active = True
Επιλογή υπόθεση SelectedTab
υπόθεση 0
Text1 = " Προσθήκη επιθυμητή επόμενο βήμα για την κωδικοποίηση . "
Περίπτωση 1
Text1 = " Προσθέστε μια νέα σελίδα για να εμφανιστεί στην κωδικοποίηση "
Περίπτωση 2
Text1 = " Προσθήκη για να εμφανιστεί μια αριθμομηχανή . "
End Select
Active = False
End Sub
Πατήστε το πλήκτρο " F5 " για να εκτελέσετε την εφαρμογή και κάντε κλικ σχετικά με τις διάφορες καρτέλες . ( Βλ. Αναφορές 5 )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα