Вызов свойства 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

Обратите внимание, что я удалил () вокруг значений / параметров, так как они не должны (обычно) быть там, и может поймать вас позже .