足球游戏_中国足彩网¥体育资讯$

用vbs实现选择颜色
来源:易贤网 阅读:2103 次 日期:2016-07-21 14:30:12
温馨提示:易贤网小编为您整理了“用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

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:用vbs实现选择颜色
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标