Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
354
Assunto : Visual Basic
Titulo: Gerar GUIDs a partir do VB

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



GUIDs são códigos gerados através de um algorítimo tal que os torna únicos no mundo. As possibilidades de 2 GUIDs iguais serem gerados é muito pequena.

No VB os GUIDs podem ser úteis, por exemplo, para serem usados como key em objetos tais como os tree views.

Para gerar um GUID em VB é necessário fazer uma chamada a uma API e algum processamento. Veja :

Este código deve ser inserido em um módulo :

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


Observe que a função coCreateGUID gera um type GUID que é definido dentro deste módulo. Passamos uma variável deste tipo para a função e ela nos devolve a variável preenchida.

Então nossa função GetGuid precisa manipular as informações devolvidas pela API para gerar o GUID.

Depois disso basta utilizar a função GetGuid onde desejar. Veja um exemplo em um botão de um form :

Private Sub Command1_Click()
MsgBox GetGuid
End Sub



Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
data: 10/14/2016 3:20:00 PM
nome: TYFwaKtDYhbqlnAC
email: jimos4581rzt@hotmail.com
comentário:
MHYAls http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 10/14/2016 3:04:00 PM
nome: EkfoHYZHcPRNVnOsk
email: jimos4581rzt@hotmail.com
comentário:
LPgCKR http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

data: 8/6/2016 8:54:00 PM
nome: SxQJPQKMrGGxQP
email: jimos4581rt@hotmail.com
comentário:
RqMe6w http://www.FyLitCl7Pf7kjQdDUOLQOuaxTXbj5iNG.com

 1  
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br