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

圖片精選

主站蜘蛛池模板： 牙克石市| 噶尔县| 荣昌县| 丰宁| 保定市| 平泉县| 雷波县| 德保县| 江源县| 新郑市| 连南| 洞头县| 霞浦县| 永吉县| 抚远县| 德安县| 漳平市| 嵊泗县| 霍州市| 南雄市| 项城市| 岱山县| 达尔| 密山市| 芦溪县| 兰考县| 莱阳市| 三台县| 玛纳斯县| 青海省| 南通市| 南昌市| 精河县| 玉门市| 镇远县| 全椒县| 中方县| 泾源县| 陵川县| 鄢陵县| 平南县|