让对话框弹出变得“温柔”

芮同心 
2001年 45期

　　对话框对我们来说可谓太熟了，一般为用户提供一些信息，在做某一操作后突然弹出，但是你可曾想过，让它弹出的时候不要那么“鲁莽”，而有一种动画的效果呢，好吧！那让我们一起体验一下吧。
　　　　具体步骤如下:
　　　　在VB中新建一个EXE工程，在Form1中放TextBox控件，属性为默认值。Form1的属性设置为:Caption=“启动”、StartUpPosition=2、BorderStyle=None（0）、ScaleMode=Twip（1）。代码如下:
　　　　Const seep=Seep＇在窗体层申明窗体变化速度常量
　　　　Private Sub Form_Load（）
　　　　With Form1‘初始化窗体的大小
　　　　.Width=700
　　　　.Height=700
　　　　End With
　　　　With richtext ＇初始化TextBox控件的位置
　　　　.Top=300
　　　　.Left=300
　　　　.Width=Form1.Width-600
　　　　.Height=Form1.Height-600
　　　　End With
　　　　Timer1.Enabled=True ＇使定时器开启
　　　　Timer1.Interval=10 ＇设置间隔时间
　　　　End Sub
　　　　Private Sub Timer1_Timer（）　
　　　　With Form1
　　　　.Width= .Width + Seep ＇使窗口增大
　　　　.Height= .Height+Seep
　　　　.Top=Screen.Height\2 - .Height\2 ＇使窗体始终在屏幕的中央
　　　　.Left=Screen.Width\2 - .Width\2
　　　　If .Width > 3500 Then ＇判断窗体是否停止扩大
　　　　Timer1.Enabled=False
　　　　End If
　　　　End With
　　　　With richtext ＇TextBox控件随着窗体的增大而增大
　　　　.Width=.Width + Seep
　　　　.Height=.Height + Seep
　　　　End With
　　　　Private Sub Text1_MouseDown（Button As Integer，Shift As Integer， x As Single，y As Single）　
　　　　If Button = 2 Then End ＇按下鼠标右键，结束
　　　　End Sub
　　　　按F5试试吧！你会看到窗体在屏幕的中心慢慢展开，怎么样，够“温柔”吧？至于对话框的卸载，也可以用此法去实现，这里就不多说了！
　　
　　 
 