4.26.bas

来自「VB6.0应用例题」· BAS 代码 · 共 14 行

Attribute VB_Name = "Module1"
'-----------------------------------------------------------------------
'   程序功能：将窗口居中安放
'-----------------------------------------------------------------------
Sub CenterOnSetupForm(child As Form)
    Dim dh  As Integer
    Dim dw  As Integer
    dh = Screen.Height - child.Height
    dw = Screen.Width - child.Width
    child.Top = (dh / 2)
    child.Left = dw / 2
End Sub