Aide Convertir le code C# en Vb 8.0

-2

private void Form1_Load(object sender, EventArgs e) 
    { 

       List<CaclulatedData> tests = new List<CaclulatedData> 
            { 
            new CaclulatedData() 
            { 
             Bonds = "First Bond", 
             TransactionList = new List<TransactionData> 
               { 
               new TransactionData() {Debit = "DebitData"} 
               } 
            }, 
            new CaclulatedData() 
            { 
             Bonds = "Second Bond", 
             TransactionList = new List<TransactionData> 
               { 
               new TransactionData() {Debit = "123123"}, 
               new TransactionData() {Debit = "12312", Credit = "3453"} 
               } 
            } 
            }; 
       gridControl1.DataSource = tests; 

    } 

} 
public class JEString 
{ 

    public string Bonds { get; set; } 

} 

public class CaclulatedData : JEString 
{ 
    public List<TransactionData> TransactionList { get; set; } 
} 


public class TransactionData 
{ 
    public string Debit { get; set; } 
    public string Credit { get; set; } 
}

Source

2009-02-11 Alexander

« tout a été fait avant » - Unknown – Kredns

citation Nice. Et quant à ceux qui mettent des inconvénients: si la personne commence seulement à étudier un domaine inconnu et a le problème direct, que doit-il faire pour obtenir la connaissance? Google et les livres? Mais qu'en est-il de l'aide humaine simple? Néanmoins, merci pour de bonnes réponses. Ils ont été utiles – Alexander

Une partie de votre problème est que VB8 ne supporte pas encore certaines fonctionnalités de votre code C# en utilisant (propriétés automatiques et initialiseurs de collection, par exemple), donc les traductions ne sont pas 1: 1. Certaines de ces fonctionnalités ont été ajoutées dans VB9. Cela dit, il est pas difficile:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) 
    Dim tests As New List(Of CaclulatedData)(2) 

    tests.Add(New CalculatedData()) 
    tests(0).Bonds = "First Bond" 
    tests(0).TransactionList.Add(New TransactionData()) 
    tests(0).TransactionList(0).Debit = "DebitData" 

    tests.Add(New CalculatedData()) 
    tests(1).Bonds = "Second Bond" 
    tests(1).TransactionList.Add(New TransactionData()) 
    tests(1).TransactionList(0).Debit = "123123" 
    tests(1).TransactionList.Add(New TransactionData()) 
    tests(1).TransactionList(1).Debit = "12312" 
    tests(1).TransactionList(1).Credit = "3453" 

    gridControl1.DataSource = tests 
End Sub 

Public Class JEString 
    Private _Bonds As String 
    Public Property Bonds() As String 
     Get 
      Return _Bonds 
     End Get 
     Set(ByVal value As String) 
      _Bonds = value 
     End Set 
    End Property 
End Class 

Public Class CaclulatedData 
    Inherits JEString 

    Private _TransactionList As New List(Of TransactionData)() 
    Public ReadOnly Property TransactionList() As List(Of TransactionData) 
     Get 
      Return _TransactionList 
     End Get 
    End Property 
End Class 


Public Class TransactionData 
    Private _Debit As String 
    Private _Credit As String 

    Public Property Debit() As String 
     Get 
      Return _ Debit 
     End Get 
     Set(ByVal value As String) 
      _ Debit = value 
     End Set 
    End Property 

    Public Property Credit() As String 
     Get 
      Return _ Credit 
     End Get 
     Set(ByVal value As String) 
      _Credit = value 
     End Set 
    End Property 
End Class

Source

2009-02-11 20:18:21