从类内部调用属性Let

Question

是否有一种方法可以从同一类内部调用Property Let方法?

像这个函数SetConnectionDetails。但是这个会得到一个编译错误:Invalid use of property…

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

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