如何实现窗体在屏幕的中心从无到有从小到大的出现.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 21 行

经 试 验 ， 使 用 先 隐 藏 后 显 示 的 方 法 的 确 有 很 严 重 的 闪 烁 感 ， 可 以 不 使 用 它 。 下 面 的 代 码 是 经 过 测 试 的 ， Form1使 用 缺 省 属 性 。 
    Sub main() 
    Dim i, j 
    Const CX = 7700 
    Const CY = 5500 
    With Form1 
     .Show 
     For i = 0 To 10 
     Form1.Left = 7700 - i * 700 
     Form1.Top = 5500 - i * 500 
     Form1.Height = i * 1000 
     Form1.Width = i * 1400 
     Form1.Refresh 
     Next i 
    End With 
    End Sub 
<END>    
    不 要 单 独 设 置 Left、 Height、 Top、 Width， 可 以 使 用 Move方 法 ， 如 ： 
    me.move me.left-10,me.top-10,me.width+20,me.height+20 
<END>