Function call on left-hand side of assignment...

[zHackLeX]

...как сказано в окне об ошибке, must return Variant or Object.
А собсно, как вообще можно использовать функции слева от знака присвоения? Дайте плиз хоть один живой пример!
Вот просто интересно - что это эа техника - нигде не видал. (ну или смотрел плохо :/)
Заранее thx!

[GSerg]

Ну, например, когда функция возвращает объект, у которого есть свойство по умолчанию...

[Sacred Phoenix]

of assignment

по ходу имеется в виду что-то типа

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

SomeFunction() = SomeExpression

а пример ф-ции, возвращающей какой-нить объект, будет, например, таким:

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

SomeFunction().Prop = SomeExpression

[Роман-вб]

zHackLeX
к примеру тебе стандартн. ф-я Date. (для эксперимента)

[keks-n]

Date - функция?

Property Date As Variant
Member of VBA.DateTime

[tyomitch]

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

Option Explicit

Private Sub Form_DblClick()
Message = "Извращенцы, блин. Нате, смотрите."
End Sub

Private Function Message()
Set Message = Label1
End Function


[Sacred Phoenix]

ага, а функция-то вариантная!

[tyomitch]

Phoenix, ну переобъяви её как As Label, раз такой умный.

[XPAHuTEJIb]

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

Option Explicit

Private Sub Form_DblClick()
Message = "Извращенцы, блин. Нате, смотрите."
End Sub

Private Function Message()
Set Message = Label1
End Function


У меня прекрасно работает, т.е. при даблклике label1.caption=message
Как вариант ответа: http://www.vbnet.ru/forum/show.aspx?id=83900
Еще, как вариант - MSDN:
статья Property Procedures vs. Public Variables (Свойства против методов)

The Sensible Error Argument
If you forget that you made Item a read-only property and try to assign a
value to it, you'll most likely find it easier to understand the error
message Visual Basic raises for a Property Get Ч "Can't assign to read-only
property" Ч than the error message it raises for a Function procedure Ч
"Function call on left-hand side of assignment must return Variant or
Object."

[tyomitch]

XPAHuTEJIb, начнёшь когда-нибудь читать топики, прежде чем отвечать, или нет?

А собсно, как вообще можно использовать функции слева от знака присвоения? Дайте плиз хоть один живой пример!

[Vi]

А собсно, как вообще можно использовать функции слева от знака присвоения? Дайте плиз хоть один живой пример!

Хороший пример - функция Mid

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

  Dim s As String
  s = "xxxx"
  Mid(s, 2, 2) = "zzz"

Второй пример - свойство с параметром/ами (причем здесь неважно какого типа возвращаемое значение)

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

Public Property Get xxx(ByVal i As Long) As Long
  Debug.Print "Get", i
... вернуть [i]
End Property

Public Property Let xxx(ByVal i As Long, ByVal vNewValue As Long)
  Debug.Print "Let", i, vNewValue
... сохранить в [i]
End Property

  Me.xxx(2) = 22
  k= Me.xxx(2)


PS
Скорее всего, ты использовал Set-оператор, для которого возвращаемое значение должно быть или Объектом, или Вариантом с Объектом.

[tyomitch]

Vi,
1) живой пример уже приведён выше
2) Mid не возвращает объект. Синтаксис, когда Mid стоит слева от знака присваивания, -- это особый случай, обрабатываемый компилятором VB, наравне с синтаксисом Print и Line.
3) свойство с параметром -- это не функция, и для неё упомянутая ошибка никогда не возникает

[Vi]

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

Private Function Message() As String
Set Message = Label1
End Function

Вот эта "As String" и дает сообщение.

[tyomitch]

Она даёт сообщение "Object required", а совсем даже не приведённое автором.

[Vi]

Она даёт сообщение "Object required", а совсем даже не приведённое автором.

После двойного клика на форме:



Я не понимаю, о каком "Object required" ты говоришь.

[tyomitch]

А вот о таком. (По нажатию на Ctrl+F5)