onglets Visual Basic servent quatre fonctions différentes . Les onglets permettent de naviguer dans les formes ; servir de marqueurs de l'espace pour l'impression de texte dans Visual Basic , agissent comme des séparateurs entre les champs de texte pour les bases de données et afficher des boîtes de dialogue à onglets dans les applications. Deux contrôles, " TabStrip » et « SSTab , " font partie de la gamme Visual Basic d'objets de contrôle. Le choix entre le TabStrip et contrôle SSTab est une décision que le programmeur doit prendre en fonction des propriétés individuelles de chacun . Le TabStrip est plus compliqué à développer, mais a plus de fonctionnalités , tandis que le contrôle SSTab propose un développement plus rapide . Choses que vous devez
Visual Basic 6.0
Voir Plus Instructions
formes navigation par onglets
1

ouvrir un nouveau projet en cliquant sur le modèle " standard EXE " lors du chargement de Visual Basic. Double -cliquez sur la commande " zone de texte " dans la " boîte à outils " dans le panneau de gauche de l'écran , représentée par un petit carré qui contient les lettres minuscules «AB» en haut à droite de la boîte à outils . Répétez cette action trois fois plus si vous vous retrouvez avec quatre cases sur le formulaire.
2

Faites glisser les cases à part , puisque chaque boîte ajouté recouvre la précédente. Cliquez sur la case du haut et faites-le glisser hors de la voie . Répétez l'opération pour séparer les quatre cases. Cliquez sur la première case pour afficher ses propriétés dans une colonne à droite de l'écran. Faites défiler la liste jusqu'à ce que vous voyez la propriété " TabIndex " . Cette propriété devrait être un 1 depuis le défaut des onglets à l'ordre ajouté.
3

Gardez les numéros de « TabIndex " dans l'ordre si vous ajoutez ou supprimez les boîtes , les étiquettes et autres objets ou de changement l'ordre d'apparition sur le formulaire.
forme et délimitant avec onglets
4

Ajouter un « bouton de commande » à la forme de la section 1 en double-cliquant sur ​​l'icône dans la «boîte à outils », montre le plus petit rectangle dans la deuxième rangée de contrôles .
5

Ajouter le code de langage Visual Basic pour du texte ou des nombres qui devrait apparaître dans les colonnes en utilisant le terme « vbTab » ou "TAB (n )" par " n" représente le nombre exact de places , pour un espacement plus précis. Cliquez sur "View /Code" dans le menu en haut de la forme créée dans la section 1 . Entrez les lignes de code tels qu'ils apparaissent ci-dessous:

Private Sub Command1_Click ()

Dim column1 , column2 , column3 As String

column1 = "Prénom"
< p > column2 = "Last Name "

column3 = " date de naissance "

Debug.Print column1 & vbTab & column2 & vbTab & column3

End Sub

6

Cliquez sur le bouton " Command1 sur le formulaire pour voir les résultats .
7

Modifiez le code dans l'étape 2 comme suit pour démontrer en utilisant les onglets pour délimiter les champs écrites dans un fichier texte , qui peut ensuite être importé dans une base de données

Private Sub Command1_Click ()

Dim column1 , column2 , column3 , tabfile As String

tabfile = "c : \\. \\ testfile.txt "

column1 = " Prénom "

column2 = " Last Name "

column3 =" date de naissance "

Ouvert tabfile Pour Comme sortie n ° 1

Print # 1, colonne 1 ; Tab (20); column2 ; Tab (40); column3

Close # 1

Ouvert tabfile Pour l'entrée Comme # 1

tabfile = entrée ( LOF (1) , 1)

Debug.Print tabfile

Close # 1 End Sub

< p > ( Voir les références 3 )
Création d'objets de l'onglet dans une application
8

Enregistrer le projet créé dans la section 1 , étape 1 avec un nom de votre choix. Créer un nouveau projet en choisissant le modèle " standard EXE " . Ajoutez deux contrôles supplémentaires en cliquant sur « projeter», « composants» de haut niveau dans le menu Visual Basic. Faites défiler la liste des composants à trouver des « onglets Dialog Control 6.0 Microsoft » et «Microsoft windows Common Controls 6.0 (SP6 ) . " Cliquez sur le " case " à côté de chacun d'insérer une coche et " OK "pour ajouter à la « boîte à outils ».
9

Localisez le " TabStrip " commande , une boîte carrée avec une apostrophe au sommet et la " " commande , une icône ressemblant à pince-nez des lunettes dans la« boîte à outils SSTab . " Si vous n'avez pas ajouté d' autres contrôles, les deux devraient être à la sixième ligne . Mise en évidence leur fera apparaître le nom . Double -cliquez sur chaque pour les placer sur le formulaire. Faites-les glisser en dehors , en plaçant le " TabStrip " au-dessus du " SSTab . " Ajouter une " zone de texte " en double- cliquant sur cette icône « Boîte à outils ». Drag ci-dessous le SSTab .
10

Faites un clic droit sur ​​le contrôle " TabStrip " pour afficher ses propriétés . Quatre onglets apparaissent en haut . Cliquez sur le second , "Onglets . «Chacun des onglets sur le formulaire lui-même a un« indice » et« Légende ». Propriété ainsi que d'autres écrivent ces légendes pour chaque onglet indexé, puis cliquez sur " OK "
Index

1: " . Login " < br > Index

2: "Nouvel utilisateur" Index

3 : ​​Envoyer Nom d'utilisateur " Index

4 : Envoyer Mot de passe
11

Double -cliquez sur le contrôle " TabStrip " pour ouvrir la fenêtre de code et entrez ces lignes de code :

Private Sub TabStrip1_BeforeClick ( Cancel As Integer )

Select Case TabStrip1.SelectedItem.Index

Case 4

MsgBox " Saisir nom d'utilisateur et le code PWD ici . "

Case Else

MsgBox " Vous pouvez créer d'autres actions associées aux onglets de cette façon. " < br >

End Select End Sub

Appuyez sur " F5 " pour exécuter cette partie de l' application. Essayez de cliquer sur chacune des pattes plusieurs fois , dans les deux sens . (Voir les références 4) pour les 12

Suivez le processus à l'étape 3 , maintenant en utilisant le contrôle SSTab . Les « TabCaptions " sont dans l'onglet "Général". Utilisez les flèches gauche et droite à côté de " Tab actuel" pour renommer les légendes de la valeur par défaut comme suit :

Tab 0: "Ajouter un nouveau formulaire "

Tab 1: " Afficher un nouveau formulaire " Photos

Tab2 : "Calculatrice"
13

Afficher la fenêtre de code et ajouter ces lignes:

Private Sub SStab1_click ( SelectedTab As Integer )
< p > Static active As Boolean

Si actif, alors Exit Sub

active = True

Select Case SelectedTab

Case 0

Text1 = " Ajouter désiré prochaine étape de codage. "

cas 1

Text1 = "Ajouter une nouvelle page pour l'afficher dans le codage "

Case
2

Text1 = " Ajouter à afficher une calculatrice. "

End Select

active = False

End Sub

Appuyez sur " F5" pour exécuter l'application et cliquez sur sur les différents onglets . (Voir les références 5 )