Discussion :

[prady92]

Bonjour,

je voudrais traduire en vb le code suivant :

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
 
        private static Workbook GenerateWorkbookPart1()
        {
            var element = 
                new Workbook(
                    new FileVersion(){ ApplicationName = "xl", LastEdited = "4", LowestEdited = "4", BuildVersion = "4505" },
                    new WorkbookProperties(){ DefaultThemeVersion = (UInt32Value)124226U },
                    new BookViews(
                        new WorkbookView(){ XWindow = 120, YWindow = 135, WindowWidth = (UInt32Value)10005U, WindowHeight = (UInt32Value)10005U }),
                    new Sheets(
                        new Sheet(){ Name = "Données horaire", SheetId = (UInt32Value)1U, Id = "rId1" },
                        new Sheet(){ Name = "Graphique horaire", SheetId = (UInt32Value)2U, Id = "rId2" }),
                    new CalculationProperties(){ CalculationId = (UInt32Value)124519U });
            return element;
        }

j'ai réussi à écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Private Shared Function GenerateWorkbookPart1() As Workbook
        Dim element As Object = New Workbook( _
                                    New FileVersion(), _
                                    New WorkbookProperties(), _
                                    New BookViews( _
                                        New WorkbookView()), _
                                    New Sheets( _
                                        New Sheet(), New Sheet()), New CalculationProperties())
        Return element
    End Function

mais je ne sais comment faire avec les parties entre accolades :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
{ ApplicationName = "xl", LastEdited = "4", LowestEdited = "4", BuildVersion = "4505" }
 
{ DefaultThemeVersion = (UInt32Value)124226U }
 
{ XWindow = 120, YWindow = 135, WindowWidth = (UInt32Value)10005U, WindowHeight = (UInt32Value)10005U }
 
{ Name = "Données horaire", SheetId = (UInt32Value)1U, Id = "rId1" }
 
{ Name = "Graphique horaire", SheetId = (UInt32Value)2U, Id = "rId2" }
 
{ CalculationId = (UInt32Value)124519U }

je précise que ce code fonctionne très bien sous C#


D'avance merci à tous

[Sankasssss]

Hello,
un petit outil bien éfficace : http://dotnet.developpez.com/outils/...der#kamalpatel
Bonne nuit

[Pol63]

y a meme des tas de sites qui ont un convertisseur online

[prady92]

Merci,

mais
1°) le site de Kamalpatel n'existe plus ou ne peut être atteint
2°) le convertisseur de developpez.com semble bugger et je suis bien sous IE
3°) le site de d'Econ NetVert donne la même traduction que la mienne et donc omet ce qui est entre accolade
4°) pareil pour http://www.developerfusion.com/tools.../csharp-to-vb/
etc ..

il semble que du code C# 3.5 se traduise pas encore sur les sites donc si quelqu'un pouvait me donner la solution cela serait gentil car je ne maitrise pas du tout le C#; je n'arrive pas à écrire l'initialisation qui se fait dans ce langage et qui se trouve entre accolades.

D'avance merci.

[Sankasssss]

Personnellement je ne m'y connais pas en C#,
mais j'aurais tendance à dire qu'il te faut sortir chaque objet du constructeur workBook,
les construires dans des variables propres,
assigner les valeurs qui sont dans les acolades et en dernier lieux, quand tu as bien tout construit, monter l'objet workbook.
Pour être un peut plus claire en code ca donnerait :

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
 Private Shared Function GenerateWorkbookPart1() As Workbook
        Dim monFileVersion As New FileVersion
        monFileVersion.ApplicationName = "xl"
        monFileVersion.LastEdited = "4"
        monFileVersion.LowestEdited = "4"
        monFileVersion.BuildVersion = "4505"
 
        Dim monWorkbookProperties = New WorkbookProperties
        monWorkbookProperties.DefaultThemeVersion = cType(124226U ,UInt32Value)
 
        etc etc ....
        ...
        ...
 
        Dim element As Object = New Workbook( _
                                    monFileVersion, _
                                    monWorkbookProperties, _
                                    monBookViews, _
                                    monSheets, monCalculationProperties)
        Return element
    End Function

a tester... Mais je ne suis vraiment pas sûr de moi... (c'est ce qui me semble logique point de vue de ce que je me souviens du cour de java et c++)
Si quelqu'un s'y connais en C# qu'il n'hésite pas à me corriger

[Pol63]

sinon tu vas demander sur le forum c# pour demander ce que ca fait

[prady92]

Bonsoir,

j'ai peut-être une petite idée que je suis en train de tester et que je posterai si c'est Ok.

Si cela ne fonctionne pas je posterai aussi sur C# mais je ne voulais pas polluer les 2 forums.

Cordialement

[Pol63]

finalement j'ai bien lu le code c# que tu postes, ca doit etre des types anonymes
en vb ca s'écrit dim var with {property1 = valeur ...} enfin il me semble, j'en utilise pas tous les jours
ca permet de faire des instances avec des membres sans écrire la classe correspondante ...

[prady92]

Bonjour,

voilà la correspondance du code C# en vb :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Private Shared Function GenerateWorkbookPart1() As Workbook
        Dim element = New Workbook( _
                         New FileVersion() With {.ApplicationName = "xl", .LastEdited = "4", .LowestEdited = "4", .BuildVersion = "4505"}, _
                         New WorkbookProperties() With {.DefaultThemeVersion = CType(124226UI, UInt32Value)}, _
                         New BookViews( _
                            New WorkbookView() With {.XWindow = 120, .YWindow = 135, .WindowWidth = CType(10005UI, UInt32Value), .WindowHeight = CType(10005UI, UInt32Value)}), _
                         New Sheets( _
                            New Sheet() With {.Name = "Données horaire", .SheetId = CType(1UI, UInt32Value), .Id = "rId1"}, _
                            New Sheet() With {.Name = "Graphique horaire", .SheetId = CType(2UI, UInt32Value), .Id = "rId2"}), _
                            New CalculationProperties() With {.CalculationId = CType(124519UI, UInt32Value)})
        Return element
    End Function

Je l'ai trouvé hier soir mais pas d'accès pour le poster dans la foulée.

Merci à Pol63 car c'était cela mais comme je n'avais pas accès à Internet je n'ai vu la réponse que ce matin, mais cela a confirmé mon code.

Cordialement

[Sankasssss]

je ne connaissais pas et après test, ça simplifie mon code

[Pol63]

faut aimer ...

enfin j'utilise bien les fonctions anonymes en fait ^^
et les méthodes anonymes arrivent sur vs2010 (déjà présentes en c#)