vb6 GUid 生成

最新推荐文章于 2022-01-24 14:04:11 发布

阿强的一亩三分地

最新推荐文章于 2022-01-24 14:04:11 发布

阅读量4k

点赞数

分类专栏： vb6 开发相关文章标签： vb hex integer function string

vb6 开发相关专栏收录该内容

9 篇文章 0 订阅

订阅专栏

本文介绍了一种使用VBA在Windows环境下生成GUID的方法。通过调用OLE32.DLL库中的CoCreateGuid函数，并利用自定义类型和字符串操作来确保GUID格式正确。此方法适用于需要唯一标识符的应用场景。

摘要由CSDN通过智能技术生成

Option Explicit

Public Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As guid) As Long
Public Type guid
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type

Public Function GenGuid() As String

Dim udtGUID As guid

If (CoCreateGuid(udtGUID) = 0) Then

GenGuid = String(8 - Len(Hex$(udtGUID.Data1)), "0") & Hex$(udtGUID.Data1) & _
                    String(4 - Len(Hex$(udtGUID.Data2)), "0") & Hex$(udtGUID.Data2) & _
                    String(4 - Len(Hex$(udtGUID.Data3)), "0") & Hex$(udtGUID.Data3) & _
                    IIf((udtGUID.Data4(0) < &H10), "0", "") & Hex$(udtGUID.Data4(0)) & _
                    IIf((udtGUID.Data4(1) < &H10), "0", "") & Hex$(udtGUID.Data4(1)) & _
                    IIf((udtGUID.Data4(2) < &H10), "0", "") & Hex$(udtGUID.Data4(2)) & _
                    IIf((udtGUID.Data4(3) < &H10), "0", "") & Hex$(udtGUID.Data4(3)) & _
                    IIf((udtGUID.Data4(4) < &H10), "0", "") & Hex$(udtGUID.Data4(4)) & _
                    IIf((udtGUID.Data4(5) < &H10), "0", "") & Hex$(udtGUID.Data4(5)) & _
                    IIf((udtGUID.Data4(6) < &H10), "0", "") & Hex$(udtGUID.Data4(6)) & _
                    IIf((udtGUID.Data4(7) < &H10), "0", "") & Hex$(udtGUID.Data4(7))

End If

End Function