Comment utiliser les onglets dans Visual Basic

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"

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

( 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 )

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 )