让对话框弹出变得“温柔”

Author: 芮同心 Date: 2001年 45期

?牐牰曰翱蚨晕颐抢此悼晌教炝耍话阄没?提供一些信息，在做某一操作后突然弹出，但是你可曾想过，让它弹出的时候不要那么“鲁莽”，而有一种动画的效果呢，好吧！那让我们一起体验一下吧。
　　?牐牼咛宀街枞缦?:
　　?牐犜赩B中新建一个EXE工程，在Form1中放TextBox控件，属性为默认值。Form1的属性设置为:Caption=“启动”、StartUpPosition=2、BorderStyle=None（0）、ScaleMode=Twip（1）。代码如下:
　　?牐燙onst seep=Seep＇在窗体层申明窗体变化速度常量
　　?牐燩rivate Sub Form_Load（）
　　?牐燱ith Form1‘初始化窗体的大小
　　?牐?.Width=700
　　?牐?.Height=700
　　?牐燛nd With
　　?牐燱ith richtext ＇初始化TextBox控件的位置
　　?牐?.Top=300
　　?牐?.Left=300
　　?牐?.Width=Form1.Width-600
　　?牐?.Height=Form1.Height-600
　　?牐燛nd With
　　?牐燭imer1.Enabled=True ＇使定时器开启
　　?牐燭imer1.Interval=10 ＇设置间隔时间
　　?牐燛nd Sub
　　?牐燩rivate Sub Timer1_Timer（）?煟?
　　?牐燱ith Form1
　　?牐?.Width= .Width + Seep ＇使窗口增大
　　?牐?.Height= .Height+Seep
　　?牐?.Top=Screen.Height\2 - .Height\2 ＇使窗体始终在屏幕的中央
　　?牐?.Left=Screen.Width\2 - .Width\2
　　?牐營f .Width > 3500 Then ＇判断窗体是否停止扩大
　　?牐燭imer1.Enabled=False
　　?牐燛nd If
　　?牐燛nd With
　　?牐燱ith richtext ＇TextBox控件随着窗体的增大而增大
　　?牐?.Width=.Width + Seep
　　?牐?.Height=.Height + Seep
　　?牐燛nd With
　　?牐燩rivate Sub Text1_MouseDown（Button As Integer，Shift As Integer， x As Single，y As Single）??
　　?牐營f Button = 2 Then End ＇按下鼠标右键，结束
　　?牐燛nd Sub
　　?牐牥碏5试试吧！你会看到窗体在屏幕的中心慢慢展开，怎么样，够“温柔”吧？至于对话框的卸载，也可以用此法去实现，这里就不多说了！
　　
　　