Question

。

 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; }
}

Answer 1

您也可以使用反射器将您的.net程序集转换为以下任何语言。

IL
C＃
VB.NET
的Delphi
MC ++

Answer 2

有许多免费的在线C＃到VB.NET和VB.NET到C＃转换器可用：

http://converter.telerik.com/

http://www.developerfusion.com/tools/convert/vb-to-csharp/

http://www.kamalpatel.net/ConvertCSharp2VB.aspx

http://www.carlosag.net/Tools/CodeTranslator/

Answer 3

您的部分问题是vb8尚不支持您的C＃代码正在使用的某些功能（例如，自动属性和集合初始值设定项），因此翻译不是1：1。其中一些功能是在VB9中添加的。那就是说，并不难：

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

帮助将C＃代码转换为Vb 8.0

3 个答案: