那些“看不明白”的常用标识符

来源:www.accessoft.com 点击数:1332 　 | 收藏 | 复制

时　间:2022-12-17 10:22:07
作　者:张旭军 ID：72228 城市：杭州
摘　要:常用标识符。
正　文:

我们的数据库在使用过程中，需要打开WINDOWS的对应功能，以下标识符供大家学习收藏。

红色标记使用较多。

常用标识符
我的电脑 {20D04FE0-3AEA-1069-A2D8-08002B30309D}
我的文档 {450D8FBA-AD25-11D0-98A8-0800361B1103}
拨号网络 {992CFFA0-F557-101A-88EC-00DD010CCC48}
控制面板 {21EC2020-3AEA-1069-A2DD-08002B30309D}
计划任务 {D6277990-4C6A-11CF-8D87-00AA0060F5BF}
打印机   {2227A280-3AEA-1069-A2DE-08002B30309D}
记事本    {1FBA04EE-3024-11D2-8F1F-0000F87ABD16}
网络邻居 {208D2C60-3AEA-1069-A2D7-08002B30309D}
回收站   {645FF040-5081-101B-9F08-00AA002F954E}
公文包    {85BBD920-42A0-1069-A2E4-08002B30309D}
字体 {BD84B380-8CA2-1069-AB1D-08000948F534}
Web 文件夹 {BDEADF00-C265-11d0-BCED-00A0C90AB50F}
“上帝模式” {ED7BA470-8E54-465E-825C-99712043E01C}

全局唯一标识符 {1C3B4210-F441-11CE-B9EA-00AA006B1A69} --- 这个是 GUID（Globally Unique Identifier“全局唯一标识符”）

举例子：

Function strCopy(strText As String)
Dim objCopy As Object
Set objCopy = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With objCopy
.SetText strText
.PutInClipboard
End With
Set objCopy = Nothing
End Function

Private Sub cmdCopy_Click()
Dim strTMP As String
strTMP = "商品ID：" & Me.sfrList.Form.商品ID & vbCrLf & _
"品名：" & Me.sfrList.Form.品名 & vbCrLf & _
"单位：" & Me.sfrList.Form.单位 & vbCrLf & _
"售价：" & Me.sfrList.Form.售价 & vbCrLf & _
"数量：" & Me.sfrList.Form.数量 & vbCrLf & _
"采购日期：" & Me.sfrList.Form.采购日期 & vbCrLf & _
"备注：" & Me.sfrList.Form.备注
strCopy strTMP

End Sub