📄 如何实现窗体在屏幕的中心从无到有从小到大的出现.txt
字号:
经 试 验 , 使 用 先 隐 藏 后 显 示 的 方 法 的 确 有 很 严 重 的 闪 烁 感 , 可 以 不 使 用 它 。 下 面 的 代 码 是 经 过 测 试 的 , 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -