Handpuzzles.com


Tutoriel Visual Basic 6.0 Grille


Lors de la conception d'un logiciel, en utilisant un tableau avec des lignes et des colonnes peuvent vous aider à afficher beaucoup d'informations dans une petite quantité d'espace. Visual Basic 6.0 a un composant appelé le contrôle FlexGrid, qui vous permet de créer une grille avec autant de lignes et de colonnes que vous avez besoin ainsi que remplissez chaque cellule avec des données. Vous pouvez ajouter une grille à votre projet de VB6 et l'utiliser pour stocker des informations sans avoir besoin de se connecter à une base de données externe.

Instructions


•  Ouvrez un nouveau projet. Cliquez sur "Projet" dans le menu, puis cliquez sur "Composants". Descendez et cliquez sur la case à cocher pour "Microsoft FlexGrid Control 6.0." Cliquez sur «OK» pour fermer la boîte de dialogue.

•  Double-cliquez sur le contrôle "MSFlexGrid" dans la boîte à outils pour l'ajouter à votre formulaire. Cliquer les bords pour modifier la taille si nécessaire. Ajouter une zone de texte et deux boutons de commande en double-cliquant dans la boîte à outils. Cliquez et faites-les glisser sur votre formulaire pour les arranger avec votre grille ci-dessus et la zone de texte suivie par les deux boutons de commande dans une rangée sous la grille.

•  Cliquez sur l'outil de la grille. Sélectionnez la propriété "Nom" dans la fenêtre "Propriétés", et le changer à "grdExample." Changez le nom zone de texte propriété sur "txtData» et les boutons de commande pour "cmdAdd" et "cmdRemove», respectivement. Modifiez la propriété de légende pour "cmdAdd" à "Ajouter" et "cmdRemove" à "Supprimer".

•  Ouvrez la fenêtre de code. Créer une variable globale en tapant «indice Dim As Integer" sur la première ligne. Vous allez utiliser cette variable comme un compteur pour le nombre de lignes dans votre grille.

•  Ouvrez le "Form_Load ()" événement. Tapez les lignes de code suivantes: index = 0 Avec grdExample .Cols = 2 .Rows = 2 .FocusRect = flexFocusHeavy .SelectionMode = flexSelectionFree .ColWidth (0) = 250 .ColWidth (1) = 2 000 .Row = 0 = 1 .col .Text = "Données de la valeur" End With Ce code initialise la variable d'index et ajuste votre grille d'avoir deux lignes et deux colonnes, l'étiquetage de la première colonne comme "Données de la valeur." Vous pouvez ajouter plusieurs colonnes ou rangées en changeant les nombres entiers dans les "Cols" et "lignes" propriétés et leurs paramètres de réglage de la même manière que vous le faites avec des colonnes et des lignes existantes.

•  Ouvrez le "grdExample_KeyPress (KeyAscii As Integer)" événement. Tapez les lignes de code suivantes: Select Case KeyAscii Case 32 à 126 grdExample.Text = grdExample.Text & Chr (KeyAscii) Case 8 'backspace Si Len (grdExample.Text)> 0 Then grdExample.Text = Gauche (grdExample.Text, (Len (grdExample.Text) - 1)) End If End Select Ce code permet à un utilisateur de sélectionner une cellule de données et d'utiliser son clavier pour taper l'information de changement en elle.

•  Ouvrez le "cmdAdd_Click ()" événement. Tapez les lignes de code suivantes: index = index + 1 Si index = 1 Ensuite grdExample.Row = 1 = 0 grdExample.Col grdExample.Text = indice grdExample.Col = 1 = grdExample.Text txtData.Text Else indice grdExample.AddItem & vbTab & txtData.Text End If Cette fonction vérifie pour voir si vous entrez des données dans la première rangée. Si oui, il soumet vos données à partir de votre zone de texte dans la première ligne existante. Si non, il incrémente la variable d'index et ajoute une nouvelle ligne, puis envoie les données à elle.

•  Ouvrez le "cmdRemove_Click ()" événement. Tapez les lignes de code suivantes: Si l'indice> 0 Then Si index = 1 Ensuite grdExample.Row = 1 = 0 grdExample.Col grdExample.Text = "" grdExample.Col = 1 grdExample.Text = "" Else indice grdExample.RemoveItem Fin Si index = indice - 1 End If Ce code supprime une ligne de données à partir de votre réseau. Si vous avez une seule ligne, il sera effacer les données, mais garder la ligne vide dans la grille. Il vérifie également que vous ne supprimez pas les lignes qui ne existent pas, ce qui empêche une erreur.

•  Appuyez sur "F5" pour exécuter votre programme. Cliquez sur "Ajouter" pour ajouter une autre ligne à votre grille, ou cliquez sur "Supprimer" pour supprimer une. Cliquez sur l'une des cellules de données et tapez entrer des informations supplémentaires.




        

Publish my comment