您的位置:首页 > 产品设计 > UI/UE

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

2006-12-08 13:16 501 查看
察看本文应用于的产品
function loadTOCNode(){}

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

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


概要




更多信息




步骤通过步骤示例


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;

概要

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

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



回到顶端

更多信息

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



回到顶端

步骤通过步骤示例

loadTOCNode(2, 'moreinformation');
1.对新 VisualBasic 项目添加一个标准模块。 默认情况下创建 Form 1。
2.将以下代码粘贴到代码模块:
[code]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

[/code]
3.向窗体, 添加命令按钮并将以下代码添加到窗体:
[code]      Private Sub Command1_Click()
MsgBox GetGuid
End Sub

[/code]
4.按 F 5 键运行该项目, 然后单击命令按钮。
RESULT: A GUID 是生成并显示 MessageBox 中。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐