'你可以拉动窗体大小观察文字显示情况
Private Sub Form_Click()
Dim FrmStr As String
Cls
FrmStr = "屏幕中间居中显示"
Me.CurrentX = Me.ScaleWidth / 2 - Me.TextWidth(FrmStr) / 2
Me.CurrentY = Me.ScaleHeight / 2 - Me.TextHeight(FrmStr)
Print FrmStr
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024