Erreur de licence avec le contrôle ActiveX ajouté au moment de l'exécution

Procédure pour reproduire le comportement

1. Collez le code suivant dans un fichier de programme (.prg):

         PUBLIC oform1
         oform1=CREATEOBJECT("form1")
         oform1.Show
         READ EVENTS
         RETURN
   
         DEFINE CLASS form1 AS form
            AutoCenter = .T.
            cNextKey = "1_"
            Name = "Form1"
            Caption = "Treeview Demo Form"
   
            ADD OBJECT cmdExit AS commandbutton WITH ;
               Top = 204, ;
               Left = 276, ;
               Height = 27, ;
               Width = 84, ;
               Caption = "E\<xit"
   
            ADD OBJECT cmdAddLV AS commandbutton WITH ;
               Top = 204, ;
               Left = 10, ;
               Height = 27, ;
               Width = 106, ;
               Caption = "Add Listview"
   
            ADD OBJECT cmdAddLVClass AS commandbutton WITH ;
               Top = 204, ;
               Left = 130, ;
               Height = 27, ;
               Width = 136, ;
               Caption = "Add Listview Subclass"
   
            PROCEDURE Destroy
               CLEAR EVENTS
            ENDPROC
   
            PROCEDURE cmdExit.Click
               thisform.release()
            ENDPROC
   
            PROCEDURE cmdAddLV.Click
   
              * The following AddObject causes the error.
           Thisform.AddObject('Lv1','olecontrol','mscomctllib.listviewctrl.2')
           Thisform.SetLVProps()
   
            ENDPROC
   
            PROCEDURE cmdAddLVClass.Click
               * The following code shows the workaround. The class OC1 is
               * defined in the last 3 lines of this program.
               * Alternanely, you could use an object stored in a Visual Class
               * library (.vcx) file.
   
            Thisform.NewObject('LV1','OC1')
   
               Thisform.SetLVProps()
            ENDPROC
   
            PROCEDURE SetLVProps
               thisform.setall('enabled', .F.,'commandbutton')
               WITH thisform.LV1
                  .visible = .t.
                  .height = 190
                  .left = 75
                  .width = 250
                  .view = 2
                  .listitems.add(,,"List Item 1",,)
                  .listitems.add(,,"List Item 2",,)
               ENDWITH
               thisform.cmdExit.enabled = .t.
               thisform.cmdExit.setfocus()
            ENDPROC
         ENDDEFINE
   
         DEFINE class OC1 as olecontrol
            OleClass = 'mscomctllib.listviewctrl.2'
         ENDDEFINE
   						

2. Ajouter le programme à un projet et générer le projet dans un fichier exécutable (.exe) fichier. Nommez le fichier lvtest.exe.
3. Créez un répertoire nommé TestDir et placer une copie du fichier exécutable à partir de l'étape 2 ci-dessus dans le répertoire.
4. Exécuter l'Assistant de configuration Visual FoxPro.
5. Dans la boîte de dialogue Assistant installation, «Étape 1 Rechercher les fichiers» est affiché dans la zone de liste. Dans la zone de texte fichiers de Distribution Sélectionnez TestDir répertoire créé à l'étape 3, cliquez sur Sélectionner, puis cliquez sur Suivant.
6. Dans la boîte de dialogue Assistant installation, «Étape 2 spécifier Components» s'affiche dans la zone de texte. Dans le groupe d'options de composants d'application, cochez la case d'option «Visual FoxPro runtime».
7. Ensuite, sélectionnez la case à cocher des contrôles ActiveX. L'ajouter La boîte de dialogue contrôles ActiveX s'affiche.
8. Faites défiler la zone de liste «Sélectionnez Installer des contrôles ActiveX», sélectionnez «Contrôle de ListView de Microsoft, version 6.0», cliquez sur le bouton Fermer pour quitter la boîte de dialogue, puis cliquez sur Suivant.
9. Dans étape «Step 3 Create Disk Image Directory» de la Setup Wizard, sélectionnez ou tapez le nom de répertoire à utiliser pour la création de vos images disque, puis cliquez sur Suivant.
10. Dans «Étape 4 spécifiez Options d'installation», de la boîte de dialogue Assistant installation, tapez "ListView Test App" dans la zone de texte «Le programme d'installation boîte de dialogue zone caption» et "None" tapez dans la zone de texte de copyright d'informations, puis cliquez sur Suivant.
    
    Remarque : Dans chaque cas, tapez le texte sans les guillemets.
11. Dans l'étape «Step 5 Specify Default Destination» de la Setup Wizard boîte de dialogue, cliquez sur Suivant.
12. Dans la zone de texte «Étape 6 modification paramètres», dans l'Assistant Configuration de la boîte de dialogue, activez la case de PM Item dans la grille en regard de Lvtest.exe (le nom du fichier exécutable).
13. Dans la boîte de dialogue «Élément de menu groupe de programme», tapez "ListView Test App" dans la zone de texte Description et "% s\lvtest.exe» dans la ligne de commande zone de texte.
    
    Remarque Omettez les guillemets.
    
    Cliquez sur OK pour fermer la boîte de dialogue de l'élément programme groupe menu, cliquez sur Suivant et cliquez sur Terminer pour terminer l'exécution de l'Assistant installation.
14. Dans la boîte de dialogue "Configuration Assistant disque statistiques", cliquez sur terminé.
15. Les fichiers de distribution seront dans un sous-répertoire du répertoire que vous avez répertoriés dans «Étape 3 - créer Disk Image Directory». Le sous-répertoire est nommé disk144. Vous pouvez installer la distribution que vous avez créé en copiant le contenu des répertoires de disque 1, 2, Disk3 et Disk4 disquettes et puis exécutez le programme Setup.exe à partir de la première disquette. Vous pouvez également vous connecter à l'ordinateur qui contient la distribution par le biais d'un réseau pour exécuter le programme d'installation. L'installation doit être sur un ordinateur qui ne dispose pas encore de Visual FoxPro 6.0 ou Visual Studio 6.0 est installé.
16. Sur l'ordinateur d'installation, dans la barre des tâches Windows, cliquez sur Démarrer, pointez sur Programmes, puis pointez aux Visual FoxPro Applications. Cliquez sur l'élément de programme ListView Test App.
17. Lorsque l'application démarre, cliquez sur le bouton Ajouter ListView. Une erreur est similaire à celle qui est répertorié dans la section «Symptômes» se produit.
18. Sélectionnez Annuler et répétez l'étape 16. Cette fois, cliquez sur le ListView Ajouter bouton Subclass et l'erreur ne se produit pas.

1. Dans la fenêtre commande, tapez :

         CREATE CLASS
   								

2. Dans la boîte de dialogue nouvelle classe, tapez un nom de classe. Vous pouvez utiliser OC1 pour être cohérent avec l'exemple précédent.
3. Sélectionnez OleControl dans la zone de liste basé sur.
4. Dans la zone de texte Enregistrer dans, tapez le nom d'un fichier .vcx dans lequel stocker la classe, ou sélectionnez un fichier .vcx après avoir appuyé sur l'ellipse bouton [...]. Utilisez OCTest pour les besoins de cet exemple.
5. Cliquez sur le bouton OK pour créer la classe.
6. Dans la boîte de dialogue Insérer un objet, sélectionnez la case d'option créer un contrôle. Dans la liste type d'objet, sélectionnez le contrôle ActiveX à utiliser. Pour être cohérent avec l'exemple précédent, sélectionnez le «Microsoft contrôle ListView, version 6.0», puis cliquez sur OK. La nouvelle classe affiche dans le Concepteur de classes. Vous pouvez maintenant enregistrer la classe.
7. Le code suivant devrait ajouter une instance de l'objet au moment de l'exécution dans l'exemple précédent :

         Thisform.NewObject('LV1','OC1', 'OCTest.vcx')
   								

Retour au début