SÉRIE 2 *

 

Théorie

      Interface

    Série 1

     Série 2

       Série 3

       Série 4

. 
CRÉATION D'UN MENU CONTEXTUEL ET AJOUT D'UNE COCHE
(Tiré des fiches de Mme Claudette Bélanger)

.

  1. Reprenez EX8 de la fiche précédente. Allez dans le code de la feuille, sélectionnez Form et choisissez MouseDown dans la case de droite (Procédure). Ajoutez le code suivant.

Sub Form_MouseDown (button As Integer, Shift As Integer, X As Single, Y As Single)
  
 If button = 2 Then
           PopupMenu MN_Couleur, 2
  
  End If
End Sub

  1. Exécutez le programme. Cliquez sur le bouton droit de la souris et observez la différence.

  2. Pour ajouter une coche dans le menu afin d'identifier l’item sélectionné, allez dans le code de MN_rouge et ajoutez les 3 lignes suivantes après  V_couleur = RGB (255,0,0):

    MN_rouge.Checked = True
    MN_vert.Checked = False
    MN_bleu.Checked = False

  3. Copiez ces trois lignes ( marquez le bloc avec la souris, allez au menu Édition, choisissez Copier). Allez dans le code de Mn_vert et collez  (menu Édition, choisissez Coller) ces 3 lignes, Changez Mn_vert.checked = true et placer le rouge à false. Répétez les mêmes opérations avec MN_bleu.

  4. Exécutez à nouveau le programme. Remarquez qu’une coche apparaît à la ligne du choix du menu sélectionné.

  5. Sauvegardez dans VB_Module2, sous les noms suivants: sauvegardez le fichier sous... E9F1xx.FRM et le projet sous... EX9xx.VBP.

Ce site est optimisé pour Microsoft Internet Explorer en 800x600.Copyright © {2003} {ESLS - Yvon Lemay}. Tous droits réservés.

 Design by
LOGOSLAND CREATIONS