В форме не выводятся данные

[AlexZZZ2010]

  Imports WindowsApplication1.XlDde


Public Class   Form1


    Delegate Sub ListBoxUpdater(ByVal str As String)

    Public Sub UpdateListBox(ByVal str As String)




        If (Me.TextBox1.InvokeRequired) Then
            Me.BeginInvoke(New ListBoxUpdater(AddressOf UpdateListBox), str)
        Else

            Me.TextBox1.Text = str

        End If

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sample.Main()


    End Sub



End Class
   
    ' Для работы данного примера требуются файлы XlDdeServer.cs, XlTable.cs
    ' и ссылка на библиотеку NDde.dll (http://ndde.codeplex.com/).


Friend Class sample
    ' **********************************************************************

    ' Идентификатор DDE сервера. Его следует задать так же при настройке
    ' экспорта таблиц в Квике
    Private Const service As String = "DDESample"

    ' Идентификаторы каналов. В Квике это поле "Рабочая книга", при этом
    ' поле "Лист" следует оставить пустым.
    ' Будем получать две таблицы: trades и stock
    Private Const tradesTopic As String = "trades"
    Private Const stockTopic As String = "stock"

    ' **********************************************************************
    ' *                                main()                              *
    ' **********************************************************************

    Shared Sub Main()
        Dim server As New XlDdeServer(service)
        ' Создадим и зарегистрируем обработчики передаваемых Квиком данных
        ' для каждого нашего DDE канала
        server.AddChannel(tradesTopic, New TradesChannel())
     '   server.AddChannel(stockTopic, New StockChannel())

        ' Зарегистрируем сам DDE сервер
        server.Register()

        ' Теперь DDE сервер готов к работе и каждый раз при поступлении
        ' данных он будет передавать их методу ProcessTable() в
        ' соответствующем каналу экземпляре класса.


        Form1.UpdateListBox("DDE Ready")

        '   Form1.Timer1.Start()

        '   Form1.Timer1.Interval = 200



    End Sub

    ' **********************************************************************
    ' *              Классы DDE каналов с обработчиками данных             *
    ' **********************************************************************

    Public Class TradesChannel
        Inherits XlDdeChannel


        Public Overrides Sub ProcessTable(ByVal xt As XlTable)

            ' Поступили новые данные из таблицы, настроенной для экспорта
            ' в "Рабочую книгу" trades.

            ' Все переданные данные содержатся в переменной xt, являющейся
            ' экземпляром класса XlTable, который содержит методы для их
            ' распаковки.

            ' xt.Rows - кол-во строк, xt.Columns - кол-во столбцов в полученной
            ' таблице. Для чтения одной ячейки таблицы служит метод
            ' xt.ReadValue(), который после своего вызова устанавливает
            ' свойства xt.ValueType - тип прочитанных данных и xt.*Value -
            ' значение в ячейке. От Квика поступают данные двух типов:
            '  XlTable.BlockType.Float (double в C#)
            '  XlTable.BlockType.String (в C# тоже string)

            ' Отобразим всю полученную информацию

            For row As Integer = 0 To xt.Rows - 1
                For col As Integer = 0 To xt.Columns - 1
                    xt.ReadValue()

                    Select Case xt.ValueType
                        Case XlTable.BlockType.Float


                            Debug.Print(xt.FloatValue)



                            Form1.UpdateListBox("D:{0}" + vbTab + xt.FloatValue.ToString)

                        Case XlTable.BlockType.String

                            Form1.UpdateListBox("D:{0}" + vbTab + xt.StringValue)

                            '  Form1.UpdateListBox("S:{0}" + vbTab + xt.StringValue)

                        Case Else
                            '   Form1.UpdateListBox("{0}:{1}" + vbTab + xt.ValueType + xt.WValue.ToString)

                    End Select
                Next col


            Next row

            ' Вдогонку напишем информацию о состоянии канала

            '      Console.WriteLine(vbLf & "IsConnected: {0}, Data received: {1}" & vbLf, Me.IsConnected, Me.DataReceived)
            '     Form1.ListBox1.Text = "IsConnected:" + Me.IsConnected
            '    Form1.ListBox1.Text = "Data received:" + Me.DataReceived


        End Sub
    End Class

Вопрос...в Debug.Print все данные выводятся,а в TextBox не выводится.Ошибку VS не выдает...что не так?Спасибо.

[cdman]

У тебя экспорт из Quik заработал ?

[eval]

да конечно же не заработал, так вот уже 3 года с ним и воюет..

[cdman]

Вот и у меня не работает
А ты в DDE шаришь ?