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