从类内部调用 Property Let

Question

有没有办法从同一个类内部调用 Property Let 方法？

就像这个函数SetConnectionDetails。但这会出现编译错误：无效使用属性...

Public Sub SetConnectionDetails(ByVal strServer As String, ByVal strDatabase As String, ByVal strUser As String, ByVal strPassword As String)
    Server (strServer)
    User (strUser)
    Password (strPassword)
    Database (strDatabase)
End Sub

Property Let Server(ByVal value As String)
    lServer = value
End Property

Property Let User(ByVal value As String)
    lUser = value
End Property

Property Let Password(ByVal value As String)
    lPassword = value
End Property

Property Let Database(ByVal value As String)
    lDatabase = value
End Property

Answer 1

您将其称为普通属性/变量：

Public Sub SetConnectionDetails(ByVal strServer As String, ByVal strDatabase As String, ByVal strUser As String, ByVal strPassword As String)
  Server = strServer
  User = strUser
  Password = strPassword
  Database = strDatabase
End Sub

或者，更明确地说：

Public Sub SetConnectionDetails(ByVal strServer As String, ByVal strDatabase As String, ByVal strUser As String, ByVal strPassword As String)
  Me.Server = strServer
  Me.User = strUser
  Me.Password = strPassword
  Me.Database = strDatabase
End Sub

请注意，我已经删除了值/参数周围的 ()，因为它们不应该（通常）存在，并且 稍后可能会发现您。