xt.bas

好用的考试系统.rar可以实现简单的功能

Attribute VB_Name = "Module1"
Option Explicit
Global db               As Database
Global rsuser           As Recordset
Global rssele           As Recordset
Global sele             As Integer
'Global fill_num         As Integer
'Global sele_num         As Integer
Global fill             As Integer

'-----------------------------------------------------------------------
'   程序功能：将窗口居中安放
'-----------------------------------------------------------------------
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