Discussion :

[gsxr2000]

Bonjour,
J'ai un script je voudrai adapter avec le VB 2008 Express, et j'ai des petits soucis si vous pouvez me donner des renseignements. Voici le script généré :

Code :

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

1
2
3
4
5
6
7
Dim Grapher As Object
Set Grapher = CreateObject("Grapher.Application")
Grapher.Visible = True
Set pmgr40_01_05z = Grapher.Documents.Open("D:\Projets\Grapher7\Data\Modeles\Ancien\pmgr40_01_05z.grf")
Set Graph1 = pmgr40_01_05z.Shapes.Item(1)
Set PM5 = Graph1.Plots.Item(4)
PM5.Select

Ce bout de program ouvre un fichier existant et sélectionne le graphique dans ce fichier et sélectionne la courbe dans ce graphique etc....

J'ai essayé de l'adapter avec le VB 2008 et j'ai des problèmes suivants : le Set pmgr40_01_05z... le VB 2008, il ne veut pas je n'ai que le SetAttr... ainsi les Set Graph1 et le Set PM5 VB2008 me rejette également.

Merci de votre réponse.

[Pol63]

Code :

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

1
2
3
4
5
6
Dim Grapher As Object = CreateObject("Grapher.Application")
Grapher.Visible = True
dim pmgr40_01_05z as object =  Grapher.Documents.Open("D:\Projets\Grapher7\Data\Modeles\Ancien\pmgr40_01_05z.grf")
dim Graph1 as object = pmgr40_01_05z.Shapes.Item(1)
dim PM5 as object = Graph1.Plots.Item(4)
PM5.Select

[gsxr2000]

Bonjour,

Merci pour la réponse il fonctionne sans souci.