Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 713
Nombre de snippets : 2181
Connexion

Générer un GUID (Identifiant Unique)

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 11/09/2006 15:11:35 et initié par EBArtSoft [Liste]
Date de mise à jour : 13/09/2006 12:01:23
Vue : 29730
Catégorie(s) : Trucs & Astuces, Système
Langages dispo pour ce code :
- VB6, VBA
- ASP.NET 1.x, ASP.NET 2.x, C# 1.x, C# 2.x
- ASP.NET 1.x, ASP.NET 2.x, VB 2005, VB.NET 1.x
- Windev
- VB6, VBA
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 11/09/2006
Posté par EBArtSoft [Liste]

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
Remarque :
Crée une nouvelle GUID a partir du générateur OLE
Langage : C# 1.x , C# 2.x , ASP.NET 1.x , ASP.NET 2.x
Date ajout : 28/09/2006
Posté par jesusonline [Liste]
Guid leGuid = Guid.NewGuid(); 
Console.WriteLine(leGuid.ToString("b"));
Langage : VB.NET 1.x , VB 2005 , ASP.NET 1.x , ASP.NET 2.x
Date ajout : 28/09/2006
Posté par jesusonline [Liste]
Dim leGuid As Guid = Guid.NewGuid() 
Console.WriteLine(leGuid.ToString("b"))
Langage : Windev
Date ajout : 21/10/2006
Posté par Elian Lacroix [Liste]
// Utiliser l'assemblage mscorlib.dll
DotNetguid est un Guid dynamique  = GUID::NewGuid();
id est une chaîne = DotNetGUID:ToString();
Langage : VB6 , VBA
Date ajout : 28/05/2009
Posté par Renfield [Liste]
Private Function GenGUID() As String
Dim nPos As Long
    GenGUID = CreateObject("Scriptlet.TypeLib").Guid
    nPos = InStr(GenGUID, vbNullChar)
    If nPos Then
        GenGUID = Left$(GenGUID, nPos - 1)
    End If
End Function 
By Renfield

Snippets en rapport avec : Guid, Api, Génerer, Stringfromguid2, Cocreateguid

11/02/2010 - Vider le Presse-papier (ClipBoard)

14/08/2009 - Activation/désactivation de ClearType

27/05/2009 - Retrouver l'item premier de file d'une arboressence treeview

09/12/2008 - RÉCUPÉRATION DE L'URL COURANTE DANS INTERNET EXPLORER

24/09/2008 - Envoyer une chaîne vers notepad sans enregistrement de fichier

01/12/2007 - OPTENIR DANS UNE STRING LA TAILLE D'UN FICHIER EN KO, MO, GO...

11/09/2007 - Enregister le micro

26/08/2007 - Récupérer la lettre des lecteurs.

21/05/2007 - Ajouter un document dans le menu "Documents récents"

25/10/2006 - Remplacer le texte d'un emplacement en listbox par un autre.



Codes sources en rapport avec : Guid, Api, Génerer, Stringfromguid2, Cocreateguid

{Visual Basic, VB6, VB.NET, VB 2005} CAISSE ENREGISTREUSE
Ce programme répond à une demande d'un membre de VBRance, qui désirait pouvoir gérer des ventes d'ar...

{PHP} MY.DEVIANTART API
Voilà une class PHP5 utilisant l'extension DOM pour parser votre compte deviant art et renvoyer tou...

{Visual Basic, VB6, VB.NET, VB 2005} COMMUNICATION MODBUS MASTER
Une petite application que j'ai écrite pour tester la communication Modbus avec un API CP1H en mode ...

{JAVA / J2EE} ENVOYER DES SMS DEPUIS LE GOOGLE APP ENGINE
Cet article expose une (mini) web application dont le principe consiste à récupérer un numéro de mob...

{Visual Basic, VB6, VB.NET, VB 2005} AFFICHEUR TYPE DIGITAL AVEC AVEC L'API SETBITMAPBITS
Creation en quelques ligne de chiffres (bitmap) et affichage de ceux ci sous la forme d'un compteur....

{C / C++ / C++.NET} VIDER ELEMENTS DE CORBEILLE WINDOWS7 (WIN64)
On supprime les éléments de corbeille >= 4 jours de présence. Seulement ce qui a été "poubellisé" p...

{C / C++ / C++.NET} FIND TEXT (WIN64)
Recherche de texte dans les fichiers d'un dossier et au choix dans les sous dossiers. Bouton STOP p...

{C / C++ / C++.NET} DELETE DIRECTORY (WIN64)
Quasi idem à la source précédente: http://www.cppfrance.com/code.aspx?ID=53529 Montre un autre emp...

{C / C++ / C++.NET} ENUM DIRECTORY (WIN64)
PAS DE RECURSION, bouclage dans une structure. Changer szMYDIR[] pour tester. On obtient la liste ...

{Javascript / DHTML} SFR WIDGET ET JQUERY
Les SFR Widget sont des mini sites PHP utilisant les API SFR pour communiquer avec les mobiles SFR. ...