Discussion :

[laurent_diep]

Bonjour à tous,

Mon problème est le suivant :

Je dois exécuter du code coté client (VBScript) qui ouvre un Visualisateur de molécule côté client pour afficher des molécules qui se trouvent dans le GridView.

Le GridView affiche les noms des molécules et contient un bouton sur chaque ligne.

Quand on clique sur un bouton on doit lancer le VBscript côté client qui ouvre la bonne molécule dans le Visualisateur de molécule.

J'espère que j'ai été clair.

Merci beaucoup pour vos réponses.

Laurent.

[laurent_diep]

Voici mon début de code; mais il ne compile pas :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
<scriptlanguage="VBScript">
window.resizeto 310,700
window.moveto 25,25
 
' Create an instance of the event sink.
Set snk = CreateObject( "Tripos.DynamicEventSink" ) 
 
 
 
snk.MoleculeAdd = GetRef( "OnMoleculeAdd" )
snk.MoleculeRemove = GetRef( "OnMoleculeRemove" )
 
' Now hook up the event sink with the event source.
Set app = CreateObject( "Lithium.Application.1" )
Set mdl = app.ActiveModel
Call snk.Advise(mdl) 
Sub
 
LoadMolecule(filename2)
app.Visible= True
' point to files in my local installation
filename = "C:\Bench3DExplorer\20080226\Http\Web_Interaction2\" + filename2
Call mdl.ImportFile(fileName)
Call mdl.Views(1).UpdateChanges 
End
 
Sub
</ script >
 
< asp : gridview id ="GridView2" AutoGenerateColumns = "false" runat ="server" datasourceid ="ObjectDataSource1" AllowPaging ="True" AllowSorting ="True" DataKeyNames ="Name" onrowcommand ="GridView2_RowCommand" onrowcreated ="GridView2_RowCreated"> 
 
 
< Columns > 
 
< asp : BoundField DataField ="Name" HeaderText ="Name" InsertVisible ="False" ReadOnly ="True" SortExpression ="Name" /> 
 
< asp : BoundField DataField ="Gif" HeaderText ="Gif" InsertVisible ="False" ReadOnly ="True" SortExpression ="Gif" /> 
 
< asp : BoundField DataField ="Pdb" HeaderText ="Pdb" InsertVisible ="False" ReadOnly ="True" SortExpression ="Pdb" /> 
 
< asp : ImageField NullImageUrl ="~/Image/Null.JPG" HeaderText ="Gif" DataImageUrlField ="Gif" ></ asp : ImageField > 
 
< asp : buttonfield buttontype ="Image" ImageUrl ="~/B3d/green.jpg" commandname ="B3DDisplayMol" onclick ="LoadMolecule( <%= Pdb %> ) /> 
 
< asp : buttonfield buttontype ="Link" Text = "Hide" commandname ="B3DHideMol" /> 
 
</ Columns >