registe.cls

来自「VB 编写的"华成POS管理系统",代码全,没有进行测试,数据库全,有兴趣的朋友」· CLS 代码 · 共 22 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Regist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Function IsRegistered(ByVal RegFileName As String, ByVal DriverLetter As String) As Boolean
Attribute IsRegistered.VB_Description = "用户是否注册了？\r\nRegFileName:注册文件的文件名（不含路径）\r\nDriverLetter:获取序列号的磁盘名。如C盘。\r\n如用户注册了，返回True。否则返回False。"
    With FormRegister
        .RegFileName = RegFileName
        .VolDriveLetter = Left(DriverLetter, 1)
        IsRegistered = .IsRegister
    End With
End Function