如何使用 CoCreateGUID API 生成与 VB 6 的 GUID

概述http://support.microsoft.com/kb/176790/zh-cn 下面的代码可用于创建在 Visual Basic 中的 GUID。该代码调用 CoCreateGuid API OLE32.DLL 上 Windows 95、 Windows 98、 Windows Me、 Windows NT 和 Windows 2000 中找到。若要正确地调用了 API，必须传递类型 G

http://support.microsoft.com/kb/176790/zh-cn

下面的代码可用于创建在 Visual Basic 中的 GUID。该代码调用 CoCreateGuID API olE32.DLL 上 windows 95、 windows 98、 windows Me、 windows NT 和 windows 2000 中找到。若要正确地调用了 API，必须传递类型 GUID 的变量。此代码创建名 GUID，为与代表各个部分查看 CLSID 或 GUID，在系统注册表中时，您将看到的短划线分隔的四个部分的自定义类型。此代码只是返回一个 GUID ； 但是，它可对其进行修改以根据需要添加连字符：

步骤按步骤示例 为新的 vba 项目中添加一个标准模块。默认情况下创建 Form1。 将下面的代码粘贴到代码的模块：

Private Type GUIDData1 As LongData2 As IntegerData3 As IntegerData4(7) As ByteEnd TypePrivate Declare Function CoCreateGuID lib "olE32.DLL" (pGuID As GUID) AsLongPublic Function GetGUID() As String'(c) 2000 Gus MolinaDim udtGUID As GUIDIf (CoCreateGuID(udtGUID) = 0) ThenGetGUID = _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),"") & Hex$(udtGUID.Data4(1)) & _IIf((udtGUID.Data4(2) < &H10),"") & Hex$(udtGUID.Data4(2)) & _IIf((udtGUID.Data4(3) < &H10),"") & Hex$(udtGUID.Data4(3)) & _IIf((udtGUID.Data4(4) < &H10),"") & Hex$(udtGUID.Data4(4)) & _IIf((udtGUID.Data4(5) < &H10),"") & Hex$(udtGUID.Data4(5)) & _IIf((udtGUID.Data4(6) < &H10),"") & Hex$(udtGUID.Data4(6)) & _IIf((udtGUID.Data4(7) < &H10),"") & Hex$(udtGUID.Data4(7))End IfEnd Function					

将命令按钮添加到该的表单并将下面的代码添加到窗体： Private Sub Command1_Click() MsgBox GetGuID End Sub 按 f5 键运行该的项目并单击命令按钮。 RESulT： 一个 GUID 生成并在 MessageBox 中所示。 总结

以上是内存溢出为你收集整理的如何使用 CoCreateGUID API 生成与 VB 6 的 GUID全部内容，希望文章能够帮你解决如何使用 CoCreateGUID API 生成与 VB 6 的 GUID所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。