主题：请问

控制窗口大小是0，然后在timertick事件写上你控制大小的代码啊

timertick事件在哪？动态增加的窗口在哪写？来个一条龙胡一下？

无语，自己重新看帖子啊

就不能帮我整理一下呀，我没有时间看，我在写业务部分代码，不能分神！

无语，你从来就没自己写过代码。

全局代码

 

Public frm As Windows.Forms.form
Public Sub myTimer_Elapsed(sender As object, e As System.Timers.ElapsedEventArgs)
frm.width += 2
frm.height += 2
If frm.height >= 300 Then
    sender.Enabled = False
End If
End Sub

 

调用

 

frm = New Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 0
frm.height = 0

Dim lbl As new Windows.Forms.Label
lbl.text = "提示提示提示"
lbl.Top = 10
lbl.left =  10
frm.Controls.Add(lbl)

frm.topmost = True
frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height - 300) / 2
frm.left = (SysInfo.ScreenWidth - frm.width - 300) / 2
Dim myTimer As new System.Timers.Timer(10)
addhandler myTimer.Elapsed, addressof myTimer_Elapsed

myTimer.AutoReset = True
myTimer.Enabled = True

,谢谢！如果由中间的小点向四周扩散更好！能否实现？革命到底！

自食其力，以前已经给你写过啊

其余的效果，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77908&skin=0

 

 

Dim frm As New Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 500
frm.height = 500

Dim lbl As new Windows.Forms.Label
lbl.text = "提示提示提示"
lbl.Top = 10
lbl.left =  10
frm.Controls.Add(lbl)

frm.topmost = True
AnimateWindow(frm.Handle, 300,  AW_HOR_NEGATIVE)
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
frm.Show

 

效果目前还是达不到我要的效果？我的效果是，动态生成窗口时，窗口本身由一个小点，向周围四周扩散放大，不是向某一方向，就像炸弹爆炸一样四面扩散？