帮助将C#代码转换为VB8.0

private void Form1\u加载（对象发送方，事件参数e）
{
列表测试=新列表
{
新caclulatedata（）
{
Bonds=“第一债券”，
TransactionList=新列表
{
新建TransactionData（）{Debit=“DebitData”}
}
},
新caclulatedata（）
{
Bonds=“第二债券”，
TransactionList=新列表
{
新建TransactionData（）{Debit=“123123”}，
新建TransactionData（）{Debit=“12312”，Credit=“3453”}
}
}
};
gridControl1.DataSource=测试；
}
}
公共类JEString
{
公共字符串债券{get；set；}
}
公共类caclulatedata:JEString
{
公共列表事务列表{get；set；}
}
公共类事务数据
{
公共字符串借方{get；set；}
公共字符串Credit{get；set；}
}

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

---

您还可以使用reflector将.net程序集转换为以下任意语言

• 白细胞介素
• C#
• VB.NET
• 德尔菲
• 司仪++

---

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

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

---

“以前都做过”-不知名的引语。至于那些提出缺点的人：如果一个人只是开始学习不熟悉的领域，并且有直接的问题，那么为了获得知识他必须做什么？谷歌和图书？但是简单的人工帮助呢？不过，谢谢你的回答。他们很有帮助

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