Свойство класса - параметр функции

[Nicky]

Class1

Код: Выделить всё

Option Explicit

Public s As String


Module1

Код: Выделить всё

Option Explicit

Sub p1()
  Dim c As New Class1
 
  c.s = "tututu"
  MsgBox c.s
 
  p2 c.s
  MsgBox c.s
End Sub

Sub p2(s As String)
  s = "nanana"
End Sub


Хотелось бы "tututu" "nanana"
Есть только "tututu" "tututu"

Делаю не совсем правильно или совсем неправильно?

[GSerg]

Совсем неправильно.

Такие вещи (вызов property let в том случае, когда свойство передано по ссылке и изменено) появились только в .net.
И то сильно запутывает, по-моему.

[Nicky]

Спасибо за ответ, еще и столь оперативный

[ALX_2002]

Код: Выделить всё

Option Explicit

Sub p1()
  Dim c As New Class1
 
  c.s = "tututu"
  MsgBox c.s
 
  c.s = p2(c.s)
  MsgBox c.s
End Sub

Function p2(s As String)
  p2 = "nanana"
End Function


А так не подходит ?

[GSerg]

Конечно нет.
Это всё равно что написать c.s = "nanana" прямо внутри p1.
Вопрос был о другом.

[Nicky]

2 ALX_2002
То что "Свойство класса - параметр функции" в твоем посте в каком-то виде присутствует - это, конечно, радует Но какую роль здесь играет передача параметра?

[ALX_2002]

Всё понял. Сильно не бейте