mod_guid.bas

家谱管理软件,树形控件操作,可保存文本和图片,查找快捷

Attribute VB_Name = "Mod_GUID"
Option Explicit

'产生GUID随机字符串
Public Type GUID
Data1 As Long
Data2 As Long
Data3 As Long
Data4(8) As Byte
End Type

Public Declare Function CoCreateGuid Lib "ole32.dll" (pguid As GUID) As Long
Public Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As Any, ByVal lpstrClsId As Long, ByVal cbMax As Long) As Long

Public Function GUIDGen() As String
    Dim uGUID As GUID
    Dim sGUID As String
    Dim bGUID() As Byte
    Dim lLen As Long
    Dim RetVal As Long
    
    lLen = 40
    bGUID = String(lLen, 0)
    CoCreateGuid uGUID '把结构转换为一个可显示的字符串
    
    RetVal = StringFromGUID2(uGUID, VarPtr(bGUID(0)), lLen)
    sGUID = bGUID
        If (Asc(Mid$(sGUID, RetVal, 1)) = 0) Then
            RetVal = RetVal - 1
            GUIDGen = Left$(sGUID, RetVal)
            GUIDGen = Mid(GUIDGen, 6, 19)
        End If
End Function