modcalwh.bas

来自「超经典的打印预览动态库源码 版权： 本资源版权归作者所有 说明： 」· BAS 代码 · 共 31 行

Attribute VB_Name = "ModCalWH"

Option Explicit
'**************************************************************
'*模块名称：ModCalWH
'*模块功能：计算某种字体大小的字符串打印输出时的高度和宽度
'*说明：只对几种字体有效:(
'*
'*备注：
'*
'*作者：chlf78
'*日期：2002-03-17 20:53:28
'***************************************************************

Private Const ModalName = "ModCalWH"


Public Function CalWidth(mstr As String, fontsize As Single) As Single
'*得到宽度

    CalWidth = LenB(StrConv(mstr, vbFromUnicode)) * fontsize * 10
    
End Function

Public Function CalHeight(fontsize As Single) As Single
'*得到高度

    CalHeight = fontsize * 20
    
End Function