Стикеры - they returned

Комментарии

2 комментария(ев)
аватар: Va-Bank
Va-Bank
Дата: Втр, 25/09/2012 - 15:29
Звание: Гуру
Сообщений: 8258

Это типа язык Visual Basic? Программировал на нем в году так 2003. Уже позабыл все. Но по аналогии с другими языками. У тебя процедура таймера общая для всех стикеров или создается свой экземпляр для каждого нового стикера?

аватар: fullzero
fullzero
Дата: Втр, 25/09/2012 - 16:46
Звание: Энтузиаст
Сообщений: 118

В форме FormSticker этот код - получается для всех один
Imports System.Timers
'Закрытие окна -----------------------------------------------
Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
MyBase.OnLoad(e)
Dim tmr As New System.Timers.Timer()
tmr.Interval = Form1.TextBox1.Text
tmr.Enabled = True
tmr.Start()
AddHandler tmr.Elapsed, AddressOf OnTimedEvent
End Sub
Private Delegate Sub CloseFormCallback()

Private Sub CloseForm()
If InvokeRequired Then
Dim d As New CloseFormCallback(AddressOf CloseForm)
Invoke(d, Nothing)
Else
Close()
End If
End Sub

Private Sub OnTimedEvent(ByVal sender As Object, ByVal e As ElapsedEventArgs)
CloseForm()
End Sub
'-----------------------------------------------------------------