modcalwh.bas

超经典的打印预览动态库源码 版权： 本资源版权归作者所有 说明： 本资源由源码天空搜集,仅提供学习参考

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