VB.NET + Excel: есть вопрос

[Gfif21]

Доброго времени суток)

Нужна программка управления файлом Excel. В том числе нужен обработчик изменения содержания ячейки - аналог Worksheet_Change(ByVal Target As Range) в самом Excel. Возникла небольшая проблема Вот для примера код:

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

Imports Microsoft.Office.Interop.Excel

Public Class Form1
    Dim Event_Change As Excel.DocEvents_ChangeEventHandler
    Dim exAPP As New Excel.Application
    Dim exBOOK As Excel.Workbook
    Dim exSHEET As Excel.Worksheet

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        exAPP = New Excel.Application
        exAPP.DisplayAlerts = False
        exAPP.Visible = True

        exBOOK = exAPP.Workbooks.Open("C:\01.xls")

        exSHEET = exBOOK.Worksheets.Item(2)
        exSHEET.Activate()

        Event_Change = New Excel.DocEvents_ChangeEventHandler(AddressOf CellChanged)
        AddHandler exSHEET.Change, Event_Change
    End Sub

    Private Sub CellChanged(ByVal Target As Excel.Range)
        Debug.Write("Изменена ячейка " & Target.Address)
    End Sub
End Class


Вот в таком виде все работает.

Если в обработчике написать такой код

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

Private Sub CellChanged(ByVal Target As Excel.Range)
    MsgBox("Изменена ячейка " & Target.Address)
End Sub


то тоже все работает.

А вот если написать такой код

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

Private Sub CellChanged(ByVal Target As Excel.Range)
    Label1.Text = "Изменена ячейка " & Target.Address
End Sub


то текст в Label1 не меняется и в Immediate Window пишется A first chance exception of type 'System.InvalidOperationException' occurred in System.Windows.Forms.dll. Помимо Label пробовал отобразить адрес ячейки и в TextBox, и в ListBox, и в ListView - результат аналогичный... Подскажите, плиз, в чем дело

[ger_kar]

А почему Label1.Text = "Изменена ячейка " & Target.Address,
У Label разве есть свойство текст?
А если так: Label1.Caption = "Изменена ячейка " & Target.Address

[SaturnKZ]

то текст в Label1 не меняется и в Immediate Window пишется A first chance exception of type 'System.InvalidOperationException' occurred in System.Windows.Forms.dll

Используйте Invoke. Примерно так:

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

    Private Delegate Sub ChangeLabelTextDelegate(ByVal target As Label, ByVal newText As String)

    Private Sub ChangeLabelText(ByVal target As Label, ByVal newText As String)
        target.Text = newText
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        otherThread.RunWorkerAsync()
    End Sub

    Private Sub otherThread_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles otherThread.DoWork
        ' Label1.Text = "Новый текст" ': Ошибка
        Invoke(New ChangeLabelTextDelegate(AddressOf ChangeLabelText), Label1, "Новый текст")
    End Sub

У Label разве есть свойство текст?

Да, есть, а вот Caption нету. Это еще раз говорит нам о том, что вы поливаете грязью .NET даже не поработав с ним.

[Gfif21]

ошибки ругается на otherThread

otherThread.RunWorkerAsync() - Name 'otherThread' is not declared
Private Sub otherThread_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles otherThread.DoWork - Handles clause requires a WithEvents variable defined in the containing type or one of its base types

[FireFenix]

otherThread должно быть обьявлено с параметров WithEvents

[Qwertiy]

А почему Label1.Text = "Изменена ячейка " & Target.Address,
У Label разве есть свойство текст?
А если так: Label1.Caption = "Изменена ячейка " & Target.Address

В VB.NET у всех контролов Text. Caption больше не существует.

Подскажите, плиз, в чем дело

Используй Me.Invoke(...).

[ger_kar]

В VB.NET у всех контролов Text. Caption больше не существует.

Обидно да!

[Joo]

otherThread

Это, вероятно, компонент BackgroundWorker с именем otherThread.

[Gfif21]

всем спасибо за внимание и за помощь) я немного по-другому сделал, но все работает

[ger_kar]

я немного по-другому сделал

Ну так покажи, коли сделал

[Gfif21]

просто в Form1_Load добавил строчку

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

Label1.CheckForIllegalCrossThreadCalls = False

[FireFenix]

Это в будущем от ошибок не избавит