Générer un GUID (Identifiant Unique)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 35 192 fois - Téléchargée 7 fois

Commenter

Contenu du snippet 

Option Explicit
 
Private Type GUID
   Data1    As Long
   Data2    As Long
   Data3    As Long
   Data4(7) As Byte
End Type

Private Declare Function CoCreateGuid Lib "ole32.dll" (pguid As GUID) As Long
Private Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As GUID, lpsz As Any, ByVal cchMax As Long) As Long

Private Sub Command1_Click()
    Text1 = NewGUID
    Clipboard.Clear
    Clipboard.SetText Text1
    MsgBox "La clef a été copié dans le presse papier", vbInformation
End Sub

Private Function NewGUID() As String
    Dim mGUIDs(77) As Byte
    Dim mGuid      As GUID
    If (CoCreateGuid(mGuid) = 0) Then
        If (StringFromGUID2(mGuid, mGUIDs(0), 78)) Then
            NewGUID = mGUIDs
        End If
    End If
End Function

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_EBArtSoft)