modfmtdata.bas

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

Attribute VB_Name = "ModFmtData"

Option Explicit
'**************************************************************
'*模块名称：ModFmtData
'*模块功能：格式化文本框的数据，并进行错误处理
'*说明：
'*
'*备注：
'*
'*作者：chlf78
'*日期：2002-04-15 21:44:11
'***************************************************************

Private Const ModalName = "ModFmtData"




'**************************************************************
'*名称：fmtTxtData
'*功能：格式化文本框的数据，并进行错误处理
'*传入参数：
'*      txt             --文本框对象
'*      decimalnumber   --小数们位数
'*      max             --最大值
'*      min             --最小值
'*返回参数：
'*      是否修改了上次值
'*作者：chlf78
'*日期：2002-04-15 21:50:18
'***************************************************************
Public Function fmtTxtData(txt As TextBox, _
                           decimalnumber As Integer, _
                           Max As Double, _
                           Min As Double) _
    As Boolean
    
    On Error GoTo err_proc
    Dim i As Double
    
    If Not IsNumeric(txt.text) Then
        GoTo err_proc
    End If
    
    i = CDbl(txt.text)
    
    If i > Max Or i < Min Then
        GoTo err_proc
    End If
    
    Dim mText   As New clsText
    
    With mText
        .stringX = txt.text
        .fieldtype = tyNumeric
        .decimalnumber = decimalnumber
        txt.text = .GetStr
    End With
    
    If txt.tag <> txt.text Then
        fmtTxtData = True
    Else
        fmtTxtData = False
    End If
    
    txt.tag = txt.text
    
    Exit Function
    
err_proc:
    On Error Resume Next
    txt.text = txt.tag
End Function




'**************************************************************
'*名称：
'*功能：
'*传入参数：
'*
'*作者：chlf78
'*日期：2002-04-15 22:17:51
'***************************************************************
Public Sub InitText(txt As TextBox, decimalnumber As Integer)
    
    On Error Resume Next

    Dim mText   As clsText
    Set mText = New clsText
    With mText
        .stringX = txt.text
        .fieldtype = tyNumeric
        .showzero = True
        .decimalnumber = decimalnumber
        txt.text = .GetStr
    End With
    txt.tag = txt.text
    
    Set mText = Nothing
End Sub