在VB中调用CoCreateGUID创建GUID字符串

最新推荐文章于 2021-09-10 14:58:13 发布

--茶--

最新推荐文章于 2021-09-10 14:58:13 发布

阅读量2.5k

点赞数

分类专栏：原创文章标签： vb hex integer function string command

原创专栏收录该内容

23 篇文章

订阅专栏

Option Explicit
Private Type GUIDType
          D1               As Long
          D2               As Integer
          D3               As Integer
          D4(8)         As Byte
End Type
Private Declare Function WinCoCreateGuid Lib "OLE32.DLL" Alias "CoCreateGuid" (g As GUIDType) As Long
Public Function CreateGUIDString() As String
          Dim g     As GUIDType
          Dim sBuf     As String
          Call WinCoCreateGuid(g)
          sBuf = PadZeros(Hex$(g.D1), 8, True) & _
                  PadZeros(Hex$(g.D2), 4, True) & _
                  PadZeros(Hex$(g.D3), 4, True) & _
                  PadZeros(Hex$(g.D4(0)), 2) & _
                  PadZeros(Hex$(g.D4(1)), 2, True) & _
                  PadZeros(Hex$(g.D4(2)), 2) & _
                  PadZeros(Hex$(g.D4(3)), 2) & _
                  PadZeros(Hex$(g.D4(4)), 2) & _
                  PadZeros(Hex$(g.D4(5)), 2) & _
                  PadZeros(Hex$(g.D4(6)), 2) & _
                  PadZeros(Hex$(g.D4(7)), 2)
          CreateGUIDString = sBuf
End Function

Private Function PadZeros(ByVal sBit As String, _
          ByVal iStrLen As Integer, Optional bHyphen _
          As Boolean) As String
          If iStrLen > Len(sBit) Then
                  sBit = Right$(String$((iStrLen - Len(sBit)), _
                          "0") & sBit, iStrLen)
          End If
          If bHyphen Then sBit = sBit & "-"
          PadZeros = sBit
End Function
Private Sub Command1_Click()
List1.AddItem CreateGUIDString
End Sub