Soyez le premier à donner votre avis sur cette source.
Snippet vu 36 115 fois - Téléchargée 9 fois
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
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.