vb6生成GUID

VB 2020-01-20
PrivateDeclareFunctionCoCreateGuidLib"ole32"(idAsAny)AsLong PrivateSubForm_Load() MsgBox"GeneratedGUID:"+CreateGUID EndSub PublicFunctionCreateGUID()Asstring Dimid(0To15)AsByte DimCntAsLong,GUIDAsstring IfCoCreateGuid(id(0))=0Then ForCnt=0To15 CreateGUID=CreateGUID+IIf(id(Cnt)<16,"0","")+Hex$(id(Cnt)) NextCnt CreateGUID=Left$(CreateGUID,8)+"-"+Mid$(CreateGUID,9,4)+"-"+Mid$(CreateGUID,13,17,4)+"-"+Right$(CreateGUID,12) Else MsgBox"ErrorwhilecreatingGUID!" EndIf EndFunction

相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选...
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...