Foxtable(狐表) → 用户栏目 → 专家坐堂 → foxtable有生成一个GUID 字符串的函数吗？


  共有7560人关注过本帖树形打印复制链接

主题：foxtable有生成一个GUID 字符串的函数吗？
帅哥哟，离线，有人找我吗？
zoomify
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：209 积分：1695 威望：0 精华：0 注册：2012/7/26 17:50:00 		foxtable有生成一个GUID 字符串的函数吗？  发帖心情 Post By：2012/9/15 15:55:00 [只看该作者]

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/9/15 15:58:00 [只看该作者]

Dim s As String = Guid.NewGuid.ToString()

 回到顶部
帅哥哟，离线，有人找我吗？
zoomify
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：209 积分：1695 威望：0 精华：0 注册：2012/7/26 17:50:00 		  发帖心情 Post By：2012/9/15 16:18:00 [只看该作者]

谢谢！还有两个问题：
1、我刚找到api可以做到，想把这个放到全局代码却不成功？因为要定义一个Type 。如果以后遇到想用这样（复杂的）api来扩展的，如果引用成功呢？
2、既然有 Dim s As String = Guid.NewGuid.ToString()  这样的办法，chm文档里面为什么搜索guid字符搜不到呢？搜不到我才以为没有这个功能？哪里有全接口的解释文档。
 
 
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
3. 向窗体, 添加命令按钮并将以下代码添加到窗体：
      Private Sub Command1_Click()
           MsgBox GetGuid
      End Sub

 

[此贴子已经被作者于2012-9-15 16:28:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoomify
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：209 积分：1695 威望：0 精华：0 注册：2012/7/26 17:50:00 		  发帖心情 Post By：2012/9/15 16:27:00 [只看该作者]

哇 原来 My.Computer.FileSystem.WriteAllText("C:\Test.txt", "黄", True) 这样的dotnet代码都可以运行，foxtable真是神物，我一直限制思维以为只能靠foxtable自己了！

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/9/15 16:43:00 [只看该作者]

guid并不常用，所以foxtable自带的帮助没有包括进去。
.net几乎所有的内容都可以在foxtable使用的。

不过foxtable确实提供了一个类似的，guid不过是生成随机字符而已，Foxtable也一样：

Dim s As String = rand.NextString(32)

 

这个帮助有讲述的。
 回到顶部
帅哥哟，离线，有人找我吗？
lxl
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00 		  发帖心情 Post By：2012/9/15 20:00:00 [只看该作者]

Output.Show(Guid.NewGuid().ToString())

 回到顶部
帅哥哟，离线，有人找我吗？
飞飞
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：621 积分：5130 威望：0 精华：1 注册：2014/8/7 6:56:00 		  发帖心情 Post By：2016/7/10 16:46:00 [只看该作者]

以下是引用lxl在2012/9/15 20:00:00的发言：
Output.Show(Guid.NewGuid().ToString())

你这是抢狐爸的风头。。。 guid mark

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询