用VB替换函数"Set"是什么用的？

Question

我找到了几个表单的aspx代码,其中包括使用"Set"函数.当我在托管服务器上尝试它们时,我收到一条错误消息"不再支持Set".有谁知道什么取代了"Set"命令？

更具体地说,我该如何改变这个:

Dim mail 
Set mail = Server.CreateObject("CDONTS.NewMail") 
mail.To = EmailTo 
mail.From = EmailFrom 
mail.Subject = Subject 
mail.Body = Body 
mail.Send

要兼容VB.NET吗？

Answer 1

如果你的意思是VB6语法

Set obj = new Object

然后你可以简单地删除Set

obj = new Object()

Answer 2

Set是VB6中的一个关键字,其中包含VB.NET的关键字,在此上下文中使用的关键字已被删除.

以前,Set用于表示正在分配对象引用(Let是默认值).由于除非接受参数,否则不再支持默认属性,因此已删除这些语句.

Module Module1
    Sub Main()

    Dim person As New Person("Peter")
    Dim people As New People()

    people.Add(person)

    'Use the default property, provided we have a parameter'

    Dim p = people("Peter")

    End Sub
End Module

Public Class People
    Private _people As New Dictionary(Of String, Person)

    Public Sub Add(ByVal person As Person)
    _people.Add(person.Name, person)
    End Sub

    Default Public ReadOnly Property Person(ByVal name As String) As Person
    Get
        Return _people(name)
    End Get
    End Property
End Class

Public Class Person
    Private _name As String

    Public Sub New(ByVal name As String)
    _name = name
    End Sub

    Public ReadOnly Property Name() As String
    Get
        Return _name
    End Get
    End Property
End Class