VB 6 - 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... 
Referências: