用vbs实现选择颜色
更新时间：2008年08月01日 23:22:22 作者：
用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
组件相关文件下载http://xiazai.jb51.net/jbtools/vb6controls.rar
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
组件相关文件下载http://xiazai.jb51.net/jbtools/vb6controls.rar
相关文章
VBS教程：函数-Filter 函数...2006-11-11
这篇文章主要介绍了vbs实现unicode和ascii编码转换,本文同时介绍了OpenTextFile和CreateTextFile的使用,需要的朋友可以参考下2014-11-11
VBS教程：VBscript语句-For...Next 语句
VBS教程：VBscript语句-For...Next 语句...2006-11-11
用vbs实现对文本文件中的项计数...2007-04-04
MD5算法的VBS代码在网上可以找到很多，这些代码都是按照“算法”写出来的，所以都很长，更重要的是，找不到SHA1算法的VBS实现。2011-01-01
VBS 脚本不能运行 提示Windows无法访问指定设备路径或文件
Windows无法访问指定设备路径或文件，您可能没有合适的权限访问这个项目.2009-10-10
雷客图ASP站长安全助手vbs测试版代码...2007-03-03
下面的vbs类虽然简单，但也看出来，vbs类的原理，大家可以根据自己的需要编写2008-05-05
VBScript教程 第十四课在VBScript中使用对象...2006-11-11
vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法
这篇文章主要介绍了vbscript获取文件的创建时间、最后修改时间和最后访问时间的方法,本文通过FileSystemObject对象实现,需要的朋友可以参考下2014-08-08
最新评论