Problème de traduction de code C# en vb

Version imprimable

Bonjour,

je voudrais traduire en vb le code suivant :

Code:

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:

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:

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

02/12/2009, 01h23
Sankasssss

Hello,
un petit outil bien éfficace : http://dotnet.developpez.com/outils/...der#kamalpatel
Bonne nuit ;)
02/12/2009, 08h52
Pol63

y a meme des tas de sites qui ont un convertisseur online
02/12/2009, 13h14
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.

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:

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... :roll: (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 :mouarf:

02/12/2009, 17h46
Pol63

sinon tu vas demander sur le forum c# pour demander ce que ca fait
02/12/2009, 18h19
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
02/12/2009, 18h30
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 ...

Bonjour,

voilà la correspondance du code C# en vb :

Code:

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

03/12/2009, 21h15
Sankasssss

:ccool: je ne connaissais pas et après test, ça simplifie mon code :mrgreen:
03/12/2009, 21h42
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#)