title image


Smiley Re: Netzwerk: wie bestimme ich GUID unter VB?
Erstellen einer GUID:Private Declare Function CoCreateGuid Lib "OLE32.DLL" (pGUID As GUID) As LongPrivate Declare Function StringFromGUID2 Lib "OLE32.DLL" (pGUID As GUID, ByVal PointerToString As Long, ByVal MaxLength As Long) As LongPrivate Type GUID Guid1 As Long Guid2 As Long Guid3 As Long Guid4(0 To 7) As ByteEnd TypeFunction CreateGUID() As StringDim udtGUID As GUIDDim strGUID As StringDim lngRtn As LonglngRtn = CoCreateGuid(udtGUID)If lngRtn Then strGUID = ""Else strGUID = String$(38, 0) StringFromGUID2 udtGUID, StrPtr(strGUID), 39End IfCreateGUID = strGUIDEnd Function-- MfG Fabianhttp://www.virtual-dev.de

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: