我用 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 ※ 編輯: garyandhank 來自: 61.228.143.10 (09/02 21:52)