我们的数据库在使用过程中,需要打开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