module.bas

来自「商品销售管理系统,用Accsee作为数据库,VB编程,可直接运行,用以作为课程设」· BAS 代码 · 共 13 行

Attribute VB_Name = "Module"
Dim X0 As Integer
Dim Y0 As Integer

Public Sub MoveToCenter()
    '移到屏幕正中
    X0 = Screen.Width
    Y0 = Screen.Height
    X0 = (X0 - VB.Screen.ActiveForm.Width) / 2
    Y0 = (Y0 - VB.Screen.ActiveForm.Height) / 2
    VB.Screen.ActiveForm.Move X0, Y0
End Sub