VPF::Проблемы с изучамым примером - Форум программистов

shoblin86

Дата 11.2.2011, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 9.2.2011

Репутация: нет
Всего: нет

во время изучения одной книги, я решил разобраться в коде примера. До этого я не сталкивался с конструкцией:
AddHandler tim1.Elapsed, AddressOf OnTimerEvent

Код


Dim tim1 As New System.Timers.Timer
 
Private Sub frmText_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler tim1.Elapsed, AddressOf OnTimerEvent
        tim1.Interval = 100
        tim1.Enabled = True
End Sub
..................

ошибка вознекает на OnTimerEvent - пишет name OnTimerEvent not declared
Как OnTimerEvent обьявлять и где?

diadiavova

Дата 11.2.2011, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 18
Всего: 142

Цитата(shoblin86 @ 11.2.2011, 23:12

)

Как OnTimerEvent обьявлять и где?

Это должен быть обработчик события Elapsed таймера.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

shoblin86

Дата 11.2.2011, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 9.2.2011

Репутация: нет
Всего: нет

Код


Private Sub OnTimerEvent(ByVal source As System.Object, ByVal e As System.Timers.ElapsedEventArgs)       
        Dim t As String
        t = Microsoft.VisualBasic.Left(title, a)
        MyClass.Text = t
-------------------------------------
End Sub

и все пошло но теперь другая проблема MyClass.Text = t -выдает ошибку "Недопустимая операция в нескольких потоках: попытка доступа к элементу управления "frmText" не из того потока, в котором он был создан."

Это сообщение отредактировал(а) shoblin86 - 12.2.2011, 09:46

shoblin86

Дата 13.2.2011, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 9.2.2011

Репутация: нет
Всего: нет

Нашел в интернете такое решение MyClass.Invoke(New Action(Of String)(AddressOf TextUpdate), a.ToString), вот оно как все вместе написано:

Код


Private Sub frmText_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler tim1.Elapsed, AddressOf OnTimerEvent
        tim1.Interval = 100
        tim1.Enabled = True
        CheckAgain()

    End Sub
    Private Sub OnTimerEvent(ByVal source As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
        Dim t As String
        t = Microsoft.VisualBasic.Left(title, a)
        MyClass.Invoke(New Action(Of String)(AddressOf TextBox1Update), a.ToString)
        a += 1
        If a > c Then
            a = 0
            tim1.Enabled = False
            tim2.Enabled = True
            b = 0
        End If
    End Sub
   
    Sub CheckAgain()
        c = Len(title)
        a = 0
        b = 0

    End Sub
    Sub TextUpdate(ByVal Value As String)
        MyClass.Text = Value
    End Sub

Подскажите только где можно нормально про эти потоки прочитать и узнать побольшо о MyClass.Invoke(New Action(Of String)(AddressOf TextBox1Update), a.ToString), очень уж непонятная конструкция

diadiavova

Дата 13.2.2011, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 18
Всего: 142

Может быть отсюда начать?
http://msdn.microsoft.com/ru-ru/library/sy...rol.invoke.aspx

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| .NET для новичков \| Следующая тема »