как обьявить делегат для TextBox.Text?

[Nord777]

как обьявить делегат для TextBox.Text?
Мне нужно изменять содержимое из другого потока
В msdn написано что надо использовать invoke.
Что то не получается создать делегат для свойства.

[GSerg]

Дык и не надо создавать делегат для свойства...

[ZeroX]

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

Delegate Sub ChangeTextProperty()

Private Sub TextProperty()
TextBox1.Text="bla bla bla bla bla"
End Sub

Private Sub SubForThread()
Dim ctp As ChangeTextProperty=AddressOf Me.TextProperty
Me.Invoke(ctp)
End Sub

[Nord777]

Огромное спасибо.

[Snussi]

А как в этом же примере передавать из одного потока в другой значение, которое надо установить?

[Грандж]

вчера возникла та же проблема с ЛистБоксом
vb 2005 кидает теперь cross-thread operation exception в режиме дебагинга, конечно не очень приятная заморочка, ведь в 2003 работает всё нормально

[grunger]

получилось

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

   Public Delegate Function addItemToListBox(ByVal Item As Object) As Integer

    Private Function Add(ByVal Item As Object) As Integer
        Return ListBox1.Items.Add(Item)
    End Function


    Private Function SetListboxItem(ByVal Item As Object) As Integer
        If Me.ListBox1.InvokeRequired Then
            Dim dlg As addItemToListBox = AddressOf Me.Add
            Me.Invoke(dlg, New Object() {Item})
        Else
            ListBox1.Items.Add(Item)
        End If
    End Function