国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

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

2019-10-26 18:01:29
字體：大 中 小
供稿：網(wǎng)友
如果不用組件的話，代碼如下：

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

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

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 霸州市| 图片| 舒兰市| 哈尔滨市| 会理县| 永胜县| 通江县| 晋州市| 河间市| 图们市| 常德市| 龙里县| 兰溪市| 克什克腾旗| 西林县| 德兴市| 石阡县| 兴海县| 个旧市| 青铜峡市| 确山县| 绍兴县| 高碑店市| 沂南县| 凤山市| 方山县| 卓资县| 杭州市| 图木舒克市| 丽江市| 台北市| 开原市| 安平县| 华蓥市| 周至县| 西平县| 黄陵县| 香格里拉县| 和田市| 遂宁市| 论坛|