?? 如何實現窗體在屏幕的中心從無到有從小到大的出現.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 + -