Discussion :

[laurent_diep]

Bonjour à tous,

J'ai un problème avec un GetProperty pour obtenir avec une collection à partir d'un objet COM.

Voici le code VBA que je dois migrer en C# :

(Ce code permet de supprimer une molécule du visualisateur 3D de molécules)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
	lig = molname + "_lig"	
	For Each mol In mdl.Molecules
	    If mol.name = molname Then
         	       Call mol.delete
 	    End If
 
	Next
 
    For Each mol In mdl.Molecules
 
        If mol.name = lig Then
         	   Call mol.delete
		End If
	next
 
	Call mdl.Views(1).UpdateChanges

J'ai essayé avec ce code C# :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
            //Init the global values for the B3D display
            Lithium.Application App = new Lithium.Application();
            App.Visible = true;
            TRIPOS_WEB_SCRIPTING_Lib.DynamicEventSink snk = new TRIPOS_WEB_SCRIPTING_Lib.DynamicEventSink();
 
            object mdl = App.ActiveModel;
            Type t = mdl.GetType(); 
 
            PropertyInfo prop = t.GetProperty("Molecules");
 
            foreach (object molTmp in prop)
            {
 
            }

mais il me plante sur :
foreach (object molTmp in prop)
avec l'erreur :
CS1579: l'instruction foreach ne peut pas fonctionner sur des variables de type 'System.Reflection.PropertyInfo', car 'System.Reflection.PropertyInfo' ne contient pas de définition public pour 'GetEnumerator'


Voici un code qui marche bien avec les même objets COM : cela affiche une molécule dans le visualisateur 3D de molécules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 int index = Convert.ToInt32(e.CommandArgument);
GridViewRow row = GridView2.Rows[index];
 
string strCurrentPdb = Server.HtmlDecode(row.Cells[2].Text);
 
//Init the global values for the B3D display
Lithium.Application App = new Lithium.Application();
App.Visible = true;
TRIPOS_WEB_SCRIPTING_Lib.DynamicEventSink snk = new TRIPOS_WEB_SCRIPTING_Lib.DynamicEventSink();
 
object mdl = App.ActiveModel;
 
Type t = mdl.GetType(); MethodInfo method = t.GetMethod("ImportFile");
 
if (method != null)
{
method.Invoke(mdl, new object[] { strCurrentPdb, 0 });
}

Merci beaucoup pour vos réponses.

Laurent.

[BCmDev]

GetProperty() permet d'obtenir des informations sur ta propriété, mais pas ses valeurs.
Si tu veux énumérer des molécules, pourquoi ne peux-tu pas faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Model mdl = App.ActiveModel;
foreach (Molecule molecule in Model.Molecules)
{
   ....
}

(j'ai supposé les noms de type Model et Molecule)

[laurent_diep]

BcmDev : Merci pour ta réponse.

Tu as raison : c'est bien un objet Model qui est retourné mais par contre impossible de faire reconnaître l'objet Model dans le code C#.

J'ai ajouté toutes les réferences dans le projet C#, qui concernent l'objet Tripos (Visualisateur de molécules) que j'ai trouvées sur mon disque dur, j'ai ajouté les 4 références que j'ai dans mon projet VBA.

Rien n'y fait : je n'arrive pas à avoir l'objet Model dans mon projet.

Il y a-t'il une autre déclaration à faire ailleurs ?

Laurent.

[BCmDev]

Visiblement, tu as correctement accès à l'objet Lithium.Application. En utilisant l'explorateur d'objet sur Lithium.Application, ne vois-tu aucun type particulier pour la propriété ActiveModel ? ActiveModel est-il de type Object ?

[laurent_diep]

BcmDev :

Merci !! : je cherchais Model alors qu'il fallait chercher Lithium.Model, comme tu m'as indiqué !

Je pense que cela va aller maintenant.

Encore merci pour ta solution !!

Laurent.