mdlfunction.bas

来自「VB编写的条码打印控制程序,可使用在ZEBRAZ4M等型号打印机」· BAS 代码 · 共 20 行

Attribute VB_Name = "mdlFunction"
Option Explicit

Public Sub CenterForm(f As Form)

With f
    .Left = (Screen.Width - .Width) / 2
    .Top = (Screen.Height - .Height) / 2
End With
End Sub

Public Sub SetFormPosition(childform As Form, Parentform As Form)

With childform
    .Left = (Parentform.ScaleWidth - .Width) / 2
    .Top = (Parentform.ScaleHeight - .Height) / 2
End With

End Sub