用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

赞 (0)

相关推荐

  • 用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 = &

  • VBS 显示“选择文件或文件夹”对话框的代码

    一.显示"选择文件"的对话框 问: 嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? 答:您好.| 如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法. 但如果您使用的是 Windows XP,情况就不同了.在 Windows XP 上,您可以使用"UserAccounts.CommonDialog" 对象向用户显示一个标准的"文件打开"对

  • VBS打开选择文件对话框代码（Win7）

    相信很多人都看过"嗨,Scripting Guy!"上面的一个问题,就算没有看过原文,也应该看过被复制粘贴后的代码. 我如何向用户显示一个用来选择文件的对话框? 问:嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? - BF 答:您好,BF.如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法.但如果您使用的是 Windows XP,情况就不同了.在 Windows XP 上,您可

  • JS小功能（button选择颜色)简单实例

    JS小功能（button选择颜色)简单实例

    效果: 代码: 复制代码 代码如下: <head runat="server">    <title></title>    <style type="text/css">        #red        {            width: 260px;            height: 200px;            background: #FF0000;            display:

  • ass2srt.vbs(ass/ssa批量转换srt的脚本)

    iPad中的OPlayer只支持srt格式的字幕,而动画一般使用的是ass/ssa格式的字幕,所以需要将ass/ssa批量转换srt. Google了一下,在<ass2srt[ass/ssa批量转换srt]>中找到一个ass2srt.wsf脚本,内容如下: <job id="ass2srt"> <script language="JScript"> cInput="unicode"; // You can fi

  • 微信小程序开发之视频播放器 Video 弹幕 弹幕颜色自定义实例

    微信小程序开发之视频播放器 Video 弹幕 弹幕颜色自定义实例

    把录音的模块尝试过之后就想着微信小程序的视频播放会不会更有趣? 果然,微信小程序视频自带弹幕.是不是很爽,跟我一起来看看. 先上gif: 再上几张图: 1.视频播放器 2.选择弹幕颜色 3.弹幕来了... 1.视频播放器 微信已经封装的非常好.我这里只用了很简单的几个属性 由于以前没做过弹幕,看到danmu-list就激动了.而且只需要将弹幕内容加入集合即可. 弹幕列表的元素: { text: '第 1s 出现的红色弹幕',//文本 color: '#ff0000',//颜色 time: 1//

  • Android颜色编辑器的制作中遇到的问题分析

    Android颜色编辑器的制作中遇到的问题分析

    Android没有自带颜色编辑器,为了让用户直观的选择颜色,做了这么一个控件,效果图如下: 上方颜色条为主颜色条,用户可以选择大致需要的颜色,下方是该颜色的平衡调节,可以调节明亮度. 背景颜色实现起来很容易,用GradientDrawable在主色之间分段渐变即可,上方的背景色是永远不变的.下方平衡调节只要在白色.选定色和黑色之间渐变即可,下方的颜色随着上方的颜色变化而变化. 颜色条自身控件由于需要拖动,直接集成Android自带的SeekBar就能实现,只需替换默认的ProgressDrawa

  • js颜色选择器代码[firefox不支持]

    最简单的,在body区域加入: 复制代码 代码如下: <OBJECT id="dlgHelper" CLASSID="clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b" width="0" height="0"></OBJECT> 调用的JS: 复制代码 代码如下: <script type="text/javascript"> var

  • JQuery实现动态适时改变字体颜色的方法

    本文实例讲述了JQuery实现动态适时改变字体颜色的方法.分享给大家供大家参考.具体分析如下: JQuery动态适时改变字体的颜色,Ajax的效果类似,在文本框输入文字,再选择色块,输入的文字就会变成色块标示的颜色值,很不错的效果吧.如果运行有错,请刷新一次页面即可. 复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1

  • JS实现的网页上的颜色拾色器

    使用Js代码编写一个网页上用的颜色拾色器,也就是选择颜色用的,用鼠标单击任意颜色块,将弹出颜色值,当你想使用某种颜色而不知道颜色值的时候,用这个小特效可以告诉你颜色值是多少,比较方便. 颜色拾色器 红 绿 蓝 灰 用鼠标单击下面的颜色块,将弹出颜色值 for(i=0;i '+ishex(i*17) +' ') document.all['Ltd' + i].num=i } function ishex(which){ return which.toString(16); } document.w

随机推荐