C#转成VB.NET

Question

    public class MarkAsCompleteTotalCosts
    {        private decimal _Actual;
        public decimal Actual
        {
            get { return _Actual; }
            set { _Actual = value; }
        }        private decimal _Planned;
        public decimal Planned
        {
            get { return _Planned; }
            set { _Planned = value; }
        }        public MarkAsCompleteTotalCosts(decimal _Actual, decimal _Planned)
        {
            this._Actual = _Actual;
            this._Planned = _Planned;
        }        public List<MarkAsCompleteTotalCosts> ConvertToSource()
        {
            return new List<MarkAsCompleteTotalCosts>() { this };
        }
    } 
这里        public List<MarkAsCompleteTotalCosts> ConvertToSource()
        {
            return new List<MarkAsCompleteTotalCosts>() { this };
        }该怎么改    Public Function ConvertToSource() As List(Of MarkAsCompleteTotalCosts) 
        Return New List(Of MarkAsCompleteTotalCosts)() ' ...
    End Function 

Answer 1

Public Class MarkAsCompleteTotalCosts    Private _Actual As Decimal
    Public Property Actual() As Decimal
        Get
            Return _Actual
        End Get
        Set(ByVal value As Decimal)
            _Actual = value
        End Set
    End Property    Private _Planned As Decimal
    Public Property Planned() As Decimal
        Get
            Return _Planned
        End Get
        Set(ByVal value As Decimal)
            _Planned = value
        End Set
    End Property    Public Sub New(ByVal _Actual As Decimal, ByVal _Planned As Decimal)
        Me._Actual = _Actual
        Me._Planned = _Planned
    End Sub    Public Function ConvertToSource() As List(Of MarkAsCompleteTotalCosts)
        Dim c As MarkAsCompleteTotalCosts = New MarkAsCompleteTotalCosts(_Actual, _Planned)
        Dim l As List(Of MarkAsCompleteTotalCosts) = New List(Of MarkAsCompleteTotalCosts)
        l.Add(c)
        Return l
    End Function
End Class

Answer 2

其实我是想问问，可否类似C#那般new 以后在｛｝直接加上一个对象……

Answer 3

Module Module1    Sub Main()    End Sub    Function foo()
        Return New c1()
    End Function
End Module
Class c1
    Public Sub New()    End SubEnd Class这样是可以的