麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁(yè) > 編程 > VBScript > 正文

用vbs實(shí)現(xiàn)選擇顏色

2020-07-26 11:55:44
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
如果不用組件的話(huà)，代碼如下：

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

如果用組件的話(huà)，代碼如下:

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

組件相關(guān)文件下載http://xiazai.VeVB.COm/jbtools/vb6controls.rar

發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 国产在线观看一区二区三区 | 黄色男女视频 | 免费午夜视频 | 欧美日韩在线看片 | 国产99久久精品一区二区 | 欧美一级片免费在线观看 | 91麻豆精品国产91久久久无需广告 | 欧美黑人伦理 | 久久久免费观看完整版 | 国产亚洲精彩视频 | 麻豆传传媒久久久爱 | 91青青 | 久久久久久久久久美女 | 福利免费观看 | 99ri在线| 国产九色在线播放九色 | 羞羞色院91精品网站 | 黄色片免费看网站 | 天天都色视频 | 中文在线观看www | 久草视频手机在线观看 | 日本成人在线免费 | 中文字幕www | 国产精品99久久久久久久女警 | 色综合精品 | 久久久久国产一区二区三区不卡 | 男女一边摸一边做羞羞视频免费 | 久成人 | 国产二区三区在线播放 | 日韩字幕在线观看 | 久久久久久久久久久av | 欧美一级在线免费 | 亚洲第一视频 | 国产精品久久久久影院老司 | 伊人99re | 狠狠操精品视频 | 成人免费视频视频在线观看 免费 | 日韩中文字幕一区二区三区 | 国产黄色一级大片 | 蜜桃av网| 欧美日韩大片在线观看 |