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

然后，您可以简单地删除该集合

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

Answer 3

对于.Net，需要记住以下几点：

• 从不在.Net代码中使用Server.CreateObject()。
• 从不在没有显式类型的情况下调整变量的大小。除了新的Option Infer linq类型之外，
• 从不使用Set关键字。定义属性时除外。

实际上，由于.Net具有内置的邮件支持，因此在.Net中您可能完全摆脱了对CDONTS的依赖：

Dim smtp As New System.Net.SmtpClient()
Dim message As New System.Net.MailMessage(EmailFrom, EmailTo, Subject, Body)
smtp.Send(message)