给段代码可以吗?
解决方案 »
- 请高手指点VB.NET与SQL连接的详细说明
- 请问如何在一个字符串中取出其中的IP地址信息,谢谢!(字符串和IP地址均是可变的)
- 请问用什么参数可以得到exe文件内图标的标号
- 关于“MSHFLEXGRID”控件的鼠标操作问题?
- win98 api函数GetDiskFreeSpace的问题,大虾帮帮小弟
- 谁有下拉计算器的源代码?
- 关于MSFLEXGRID的问题
- 急,关于vb的
- 各位有知道treeview的ONclick事件如何判断鼠标左右键的方法吗?
- 请问如何编写支持多线下载的ftp软件 我的OICQ:33676851
- 如何学好VB,一只菜菜鸟
- 那可以买到Visual Basic + SQL Server数据库应用系统开发与实例!
不过你按照GUID格式自己随机生成就行了
'向窗体frmTest中放置一个名为cmdGUID的按钮和一个名为txtGUID的文本框 , 加入一下代码:
Option Explicit
Private Type GUID
Data1 As Long
Data2 As Long
Data3 As Long
Data4(8) 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 Any, ByVal lpstrClsId As Long, ByVal cbMax As Long) As LongPrivate Function GUIDGen() As String
Dim uGUID As GUID
Dim sGUID As String
Dim bGUID() As Byte
Dim lLen As Long
Dim RetVal As Long
lLen = 40
bGUID = String(lLen, 0)
CoCreateGuid uGUID '把结构转换为一个可显示的字符串
RetVal = StringFromGUID2(uGUID, VarPtr(bGUID(0)), lLen)
sGUID = bGUID
If (Asc(Mid$(sGUID, RetVal, 1)) = 0) Then RetVal = RetVal - 1
GUIDGen = Left$(sGUID, RetVal)
End FunctionPrivate Sub cmdGUID_Click()
txtGUID.Text = GUIDGen
End Sub