With Clipboard
strOldClip = .GetText
varOldClipGraphic = .GetData
.SetData frmDDEDummy.picIcon.Image
oCmdBarControl.PasteFace
.Clear
If IsObject(varOldClipGraphic) Then
.SetData varOldClipGraphic
End If
If LenB(strOldClip) Then
.SetText strOldClip
End If
End With
可在网站搜索一下相关资料作者: jerry116 时间: 2006-4-20 21:38
当在工具栏上加一菜单命令时,如何设置其图标(此时“编辑按钮图片”按钮不可用)