Как с помощью таймера обеспечить переход между формами Vb2008

[yaroslav2]

На Visual Basic сделана программа-презентация, с кучей форм. Но, чтобы нормально можно было использовать нужно решить 2 задачи. В случае, если форма неактивна в течении 10 минут - она закрывается и открывается начальная форма. Если начальная форма неактивная - то открывается программа-презентация.... умом понимаю, что задача не из сложных.. и таймер это решает.. но прикрутить не могу.. поэтому прошу помочь.. огромное спасибо, неравнодушным

 

[yaroslav2]

В чем затруднения?

нужен пример кода... никогда не работал с таймером... а разобраться сам, увы, не могу...

 

[yaroslav2]

http://www.youtube.com/watch?v=CsPGvrjgtgg

пример всем хорош, но он не делает переход по таймеру.. а хотелось бы чтобы была проверка.. если форма неактивна.. т.е. в течении определенного времени никто по ней не клацает - закрыть и открыть заставку. поможете?

 

[alex777]

Кинь на каждую форму по часам и добавь код

[codebox]
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.Timer1.Enabled = True
End Sub


Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Me.Timer1.Enabled = False
Me.Timer1.Enabled = True
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Me.Hide()
Form2.Show()
End Sub
[/codebox]
Проверять, я думаю, лучше не клики по форме, а движение мышы над формой
Имена форм меняй как тебе нужно и Интервал таймера на каждой форме тоже

 

[yaroslav2]

Кинь на каждую форму по часам и добавь код

[codebox]
Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Me.Timer1.Enabled = True
End Sub


Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Me.Timer1.Enabled = False
Me.Timer1.Enabled = True
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Me.Hide()
Form2.Show()
End Sub
[/codebox]
Проверять, я думаю, лучше не клики по форме, а движение мышы над формой
Имена форм меняй как тебе нужно и Интервал таймера на каждой форме тоже

Большое человеческое спасибо

 

[alex777]

Большое человеческое спасибо

Здесь спасибо можно ответить "+"

 

[yaroslav2]

Здесь спасибо можно ответить "+"

как это сделать? кликнуть на плюсике не получается

 

[alex777]

кликнуть на плюсике не получается

?
Посмотри - должно открыться ещё одно окно. Но оно не активно. На него надо переходить.

Добавлено: Да и ещё. Себе добавлять ты не можешь. Щёлкать надо не в своих репликах

 

[vital]

10

как это сделать? кликнуть на плюсике не получается

10 сообщений минимум, что бы оно заработало. ОБщайтесь, и все будет=)