mduglobal.bas

来自「很好的VB编写的串口数据通讯源码,我从这个开始了我的单片机通讯之路,希望对你也是」· BAS 代码 · 共 25 行

Attribute VB_Name = "mduGlobal"
Option Explicit

Public Function GetAppPath() As String
    If Right(App.Path, 1) = "\" Then
        GetAppPath = App.Path
    Else
        GetAppPath = App.Path & "\"
    End If
End Function

'获取打印编号
Public Function GetPrintID() As Long

End Function

'格式化打印编号
Public Function FormatPrintNo(ByVal pID As Long) As String
Const sNo = "No 0000000"
Dim s As String
    s = Format(pID)
    FormatPrintNo = Left(sNo, Len(sNo) - Len(s)) & s
End Function