C#转成VB.NET

[duwa789]

    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 

[Snowdust]

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

[duwa789]

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

[duwa789]

up...

沉得好快

[duwa789]

再up一下。。

[十八道胡同]

Module Module1

    Sub Main()

    End Sub

    Function foo()
        Return New c1()
    End Function
End Module
Class c1
    Public Sub New()

    End Sub

End Class

这样是可以的

[duwa789]

不好意思，没看懂……