我用 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)