Readygo技术搜索引擎 网络搜索 efish 2008-1-17 7:16:52

在VB中用Api生成GUID的方法，免得大家找来找去....

楼主LiXun（老三）2003-06-30 09:27:34 在 VB / API 提问

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  
                                           
   
   
   
  Private   Sub   Command1_Click()  
    MsgBox   GetGUID  
  End   Sub 问题点数：0、回复次数：3Top

1 楼lxcc（）回复于 2003-06-30 10:00:07 得分 0

upTop

2 楼xfyxq（小小旗) (抵制日货）回复于 2003-06-30 20:43:50 得分 0

学习~~Top

3 楼gpo2002（永吹不休）回复于 2003-06-30 22:07:55 得分 0

goodTop