国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 平凉市| 措勤县| 绩溪县| 新安县| 大同县| 黄龙县| 静安区| 金山区| 牡丹江市| 聂拉木县| 上栗县| 美姑县| 隆安县| 九台市| 都匀市| 区。| 布尔津县| 荔浦县| 重庆市| 揭阳市| 张家港市| 潮安县| 监利县| 昌乐县| 库尔勒市| 丽水市| 宣威市| 定陶县| 仁布县| 松原市| 镇原县| 灵川县| 张家港市| 比如县| 汉阴县| 金溪县| 辽宁省| 禄劝| 房山区| 岳阳县| 陇南市|