Dim TagName As String
Dim cols
Dim X, CtrlRangehtml = "<img border='0' src='" & PicF(Index).Tag & "' width='100%' height='100%'>"
With Frmmain.Web
.Document.Open
.Document.Write html
.Document.Close
End WithFor Each X In Frmmain.Web.Document.All
On Error Resume Next
If X.TagName = "IMG" Then
Clipboard.Clear
Set CtrlRange = Frmmain.Web.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy")
End If
Next这个代码是复制图片到剪贴板,XP下可以,在2003下无效
Dim cols
Dim X, CtrlRangehtml = "<img border='0' src='" & PicF(Index).Tag & "' width='100%' height='100%'>"
With Frmmain.Web
.Document.Open
.Document.Write html
.Document.Close
End WithFor Each X In Frmmain.Web.Document.All
On Error Resume Next
If X.TagName = "IMG" Then
Clipboard.Clear
Set CtrlRange = Frmmain.Web.Document.body.createControlRange()
CtrlRange.Add (X)
CtrlRange.execCommand ("Copy")
End If
Next这个代码是复制图片到剪贴板,XP下可以,在2003下无效
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货