为了顺应当前形势和更好的发展,黑基网已于9月19日正式更名为【安基网】,域名更换为www.safebase.cn,请卸载旧的APP并安装新的APP,给您带来不便,敬请理解!谢谢

黑基Web安全攻防班
安基网 首页 IT技术 电脑技术 查看内容

用vbs实现选择颜色

2009-9-25 16:42| 投稿: computer

摘要:   用vbs实现选择颜色的两种方法,一种带组件,一种不带   如果不用组件的话,代码如下:   set ie = createobject("internetexplorer.applicatio...
  用vbs实现选择颜色的两种方法,一种带组件,一种不带   如果不用组件的话,代码如下:   set ie = createobject("internetexplorer.application")   ie.navigate "about:blank"   do until ie.readystate = 4 : wscript.sleep 25 : loop   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   如果用组件的话,代码如下:   flag = 1+2   initialColor = &hff32ea   color = OpenColor(initialColor, flag)   MsgBox "Selected color: " & hex(color)   function OpenColor(initColor, flags)   set comdlg = CreateObject("MSComDlg.CommonDialog")   comdlg.Color = initColor   comdlg.Flags = flags   comdlg.ShowColor   OpenColor = comdlg.Color   end function

小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文由投稿者转载自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,让我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论

最新

返回顶部