如何使用 CoCreateGUID API 以生成一个 GUID 以

察看本文应用于的产品

<script type="text/javascript">function loadTOCNode(){}</script>

注意：这篇文章是由无人工介入的自动的机器翻译系统翻译完成。这些文章是微软为不懂英语的用户提供的, 以使他们能够理解这些文章的内容。微软不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的使用所引起的任何直接的, 或间接的可能的问题负责。

文章编号	:	176790
最后修改	:	2004年8月30日
修订	:	2.2

<script type="text/javascript"> var sectionFilter = "type != 'notice' && type != 'securedata' && type != 'querywords'"; var tocArrow = "/library/images/support/kbgraphics/public/en-us/downarrow.gif"; var depthLimit = 10; var depth3Limit = 10; var depth4Limit = 5; var depth5Limit = 3; var tocEntryMinimum = 1; </script><script src="/common/script/gsfx/kbtoc.js??4" type="text/javascript"></script>

概要

<script type="text/javascript">loadTOCNode(1, 'summary');</script>

作为程序员, 可能需要出于各种生成 GUID （全局唯一标识符）。 本文介绍如何使用 CoCreateGuid API VisualBasic 中生成 GUID。

备注： 本文代码不是并且能用于创建或更改对自定义 ActiveX 组件由 VisualBasic 自动生成一个 GUID。 无法更改由 VisualBasic 自动生成 GUID。

回到顶端

更多信息

<script type="text/javascript">loadTOCNode(1, 'moreinformation');</script>

下面代码可用于在 VisualBasic 中创建一个 GUID。 代码调用位于在 Windows 95、 Windows 98、 WindowsMe、 WindowsNT 和 Windows 2000 OLE32.DLL CoCreateGuid API。 为了正确, 调用 API 必须传递 GUID 类型的变量。 此代码创建自定义类型, 用表示各个部分隔开破折号， 查看系统注册表中 CLSID 或 GUID 时会看到四部分命名 GUID,。 此代码只返回 GUID ； 但是, 可修改它以如果需要添加划线：

回到顶端

步骤通过步骤示例

<script type="text/javascript">loadTOCNode(2, 'moreinformation');</script>

1.	对新 VisualBasic 项目添加一个标准模块。 默认情况下创建 Form 1。
2.	将以下代码粘贴到代码模块： Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(7) As Byte End Type Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGuid As GUID) As Long Public Function GetGUID() As String '(c) 2000 Gus Molina Dim udtGUID As GUID If (CoCreateGuid(udtGUID) = 0) Then GetGUID = _ 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
3.	向窗体, 添加命令按钮并将以下代码添加到窗体： Private Sub Command1_Click() MsgBox GetGuid End Sub
4.	按 F 5 键运行该项目, 然后单击命令按钮。

RESULT： A GUID 是生成并显示 MessageBox 中。