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

首頁 > 編程 > VBScript > 正文

用vbs實現選擇顏色

2020-07-26 11:55:44
字體：大 中 小
來源：轉載
供稿：網友
如果不用組件的話，代碼如下：

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.VeVB.COm/jbtools/vb6controls.rar

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 施甸县| 古丈县| 呼伦贝尔市| 招远市| 临西县| 兴城市| 公主岭市| 西藏| 北辰区| 永定县| 洞头县| 福州市| 南阳市| 旬邑县| 甘肃省| 高要市| 诸暨市| 沙坪坝区| 淮安市| 建水县| 介休市| 慈利县| 五大连池市| 东至县| 梅州市| 秭归县| 望江县| 通山县| 万山特区| 洪江市| 滦南县| 桓台县| 凤庆县| 威信县| 于都县| 安达市| 长垣县| 尼木县| 炎陵县| 张家界市| 枣阳市|