GUID - Gerando um identificador Único


Você sabe o que um GUID ? Não ???? Bem , GUID significa - Globally Unique Identifier - ou transliterando - Identificador Único Universal. Para que serve isto ?? Ora, Como não existem dois GUIDs idênticos, não importa o quanto você tente gerar dois iguais , eles servem para identificar de forma única senhas , manipuladores , chaves , etc...

Vamos mostrar como gerar GUIDs usando uma API .

1- Inicie um novo projeto no VB e no formulário padrão insira um controle Listbox - List1 - e um botão de comando - command1 :(ver layout abaixo):

2- Insira o código abaixo na seção General Declarations do formulário:

Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGUID As GUID) As Long

Private Declare Function StringFromGUID2 Lib "OLE32.DLL" (pGUID As GUID, _
ByVal PointerToString As Long, ByVal MaxLength As Long) As Long

Private Type GUID
  Guid1 As Long
  Guid2 As Long
  Guid3 As Long
  Guid4(0 To 7) As Byte
End Type

3- A seguir digite o código abaixo para a função CreateGUID que irá retornar o Identificador - GUID


Public Function CreateGUID() As String

Dim udtGUID As GUID
Dim sGUID As String
Dim lResult As Long

lResult = CoCreateGuid(udtGUID)

If lResult Then
   sGUID = ""
Else
   sGUID = String$(38, 0)
   StringFromGUID2 udtGUID, StrPtr(sGUID), 39
End If

CreateGUID = sGUID

End Function 

4- No evento Click do botão de comando - command1 - insira o seguinte código :

Private Sub Command1_Click()
  List1.AddItem CreateGUID
End Sub

Execute o código e você vai obter um identificador único universal - GUID - . Tente quantas vezes quiser...

Até a próxima...


José Carlos Macoratti