如何向右下角弹出提示框发布信息等两个问题
下面是一段"右下角弹出提示框"的代码:此小窗口文件名为yx
Private Sub Form_Load()
Me.Width = 3000: Me.Height = 3000 '窗体的大小
Me.Move Screen.Width - Me.Width, Screen.Height - 405
Me.Timer1 = True
Me.Timer1.Interval = 100 '上升快慢调节
End Sub
Private Sub Timer1_Timer()
Me.Top = Me.Top - 50
If Me.Top < Screen.Height - Me.Height - 405 Then
Timer1.Enabled = False
End If
End Sub
下面是放在主页上的启动提示框(小窗口)的代码:
Private Sub Form_Load()
Timer1.Interval = 3000 '三秒后弹出
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Load yx
yx.Show
End Sub
有二个问题:
1,每次如何向客户端的小提示发布新信息?(在网站上要设何代码?)
2,该小窗体启动后,每间隔三秒钟就弹出一次,太多了,只要求随主页启动弹出一次就可以,而不要连续弹出.