[.NET] 視窗移動 Timer 問題
我用 vb.net 寫一個小程式
想要有 MSN聯絡人上線的提示視窗的效果
有Form1、Form2兩個視窗
在From1上有一個按鈕
按了那個按鈕後 Form2.Show()
Form2就會從視窗右下角慢慢往上移動
然後在縮下去
Form2移動的效果是靠Timer控制的
但是現在出現了一些問題
這個效果只會出現一次
要再次載入Form2 就不會動了 ...
試了好久也不知道是哪裡出了問題
請板上高手幫忙看看 ... 謝謝 !!
Form2 程式碼
Public Class Form2
Dim x, y, a As Double
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
x = My.Computer.Screen.Bounds.Width()
y = My.Computer.Screen.Bounds.Height()
a = x - 300
Location = New System.Drawing.Point(a, y)
TMR_movup.Enabled = True
TMR_movupstop.Enabled = True
TMR_wait.Enabled = False
TMR_movdown.Enabled = False
TMR_movdownstop.Enabled = False
End Sub
'TMR_movup Interval設1
Private Sub TMR_movup_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TMR_movup.Tick
y = y - 1
Me.Location = New System.Drawing.Point(a, y)
End Sub
'TMR_movupstop Interval設3000
Private Sub TMR_movupstop_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TMR_movupstop.Tick
TMR_movup.Enabled = False
TMR_wait.Enabled = True
End Sub
'TMR_wait Interval設5000
Private Sub TMR_wait_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TMR_wait.Tick
TMR_movupstop.Enabled = False
TMR_movdown.Enabled = True
TMR_movdownstop.Enabled = True
End Sub
'TMR_movdown Interval設1
Private Sub TMR_movdown_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TMR_movdown.Tick
y = y + 1
Me.Location = New System.Drawing.Point(a, y)
TMR_wait.Enabled = False
End Sub
'TMR_movdownstop Interval設3000
Private Sub TMR_movdownstop_Tick(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles TMR_movdownstop.Tick
TMR_movdown.Enabled = False
TMR_movdownstop.Enabled = False
Me.Hide()
End Sub
End Class
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.192.154.48
推
09/02 19:57, , 1F
09/02 19:57, 1F
→
09/02 21:51, , 2F
09/02 21:51, 2F
※ 編輯: garyandhank 來自: 61.228.143.10 (09/02 21:52)
→
09/03 12:05, , 3F
09/03 12:05, 3F