Méthode ObjectPropertiesBoxOpen

Cet article fait suite et complète le dernier article vis à vis de la page d'accueil MEGA "Page d'accueil : accès aux objets manipulés". Cette remarque m'a été faite grâce à une personne m'ayant laissé ce commentaire à la suite de l'article : "Bon article!
Scripts fonctionnels mais il faudrait définir la fonction "ObjectPropertiesBoxOpen", car le menu contextuel du coup ne s'affiche pas." Merci de cette remarque !

Dans cet article je proposais dans le code une méthode intitulée "ObjectPropertiesBoxOpen" qui permettait, selon mes dires, de pouvoir ouvrir le menu contextuel de propriétés d'un objet comme dans MEGA et cela à partir de la page d'accueil MEGA.

Voici donc la définition de cette méthode :

 sub ObjectPropertiesBoxOpen(strHexaIdAbs)

      Dim oMegaObject
      i=0
      set oMegaObject = external.megaroot.getObjectFromId(strHexaIdAbs)
       if not oMegaObject.GetId=0 then
              oMegaObject.CommandManager.TrackPopup
       end if
       set oMegaObject = nothing 

 end sub

Il s'agit donc de passer en argument de cette méthode l'identifiant absolu au format hexa de l'objet sur lequel nous voulons ouvrir le menu contextuel, puis d'aller réccuperer cet objet : getObjectFromId.
Ensuite si l'objet a bien été réccupéré on execute et affichons le menu grâce à la commande : CommandManager.TrackPopup. Tout simplement !