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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 临安市| 策勒县| 锦屏县| 华亭县| 沿河| 玛纳斯县| 富平县| 新丰县| 日喀则市| 靖安县| 洛阳市| 独山县| 麦盖提县| 河南省| 福清市| 东海县| 阳曲县| 玛多县| 桐梓县| 石首市| 井陉县| 镇沅| 红原县| 翼城县| 孟津县| 松滋市| 海淀区| 连云港市| 金门县| 岳阳县| 临桂县| 淮滨县| 沅江市| 偏关县| 宜宾县| 福安市| 如皋市| 德格县| 华坪县| 岗巴县| 会宁县|