set ie = createobject("internetexplorer.application")

ie.navigate "about:blank"




set doc = ie.document
set body = doc.body
set win = doc.parentwindow
body.innerhtml = "<OBJECT id=dlg CLASSID='clsid:3050f819-

98b5-11cf-bb82-00aa00bdce0b'></OBJECT>"
body.innertext = doc.getElementById("dlg").choosecolordlg
win.clipboarddata.setdata "text", body.innertext
ie.quit
功能就不说了,.
代码不理解.谁来说一吓

[[it] 本帖最后由 xjxxdnmwj 于 2008-8-3 10:13 编辑 [/it]]

回帖怎么那么不积极啊

怎么没有人解决这个问题呀。