佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > 用vbs實(shí)現(xiàn)選擇顏色

用vbs實(shí)現(xiàn)選擇顏色
熱門標(biāo)簽：服務(wù)器配置 呼叫中心市場需求 美圖手機(jī) 檢查注冊表項(xiàng) 智能手機(jī) 銀行業(yè)務(wù) 鐵路電話系統(tǒng) 網(wǎng)站文章發(fā)布
如果不用組件的話，代碼如下：

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

標(biāo)簽：河南 樂山 上海 長治 沈陽 新疆 滄州 紅河

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用vbs實(shí)現(xiàn)選擇顏色》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    民县| 休宁县| 龙游县| 澳门| 大理市| 金湖县| 聂拉木县| 若尔盖县| 达孜县| 清丰县| 电白县| 顺义区| 寿宁县| 望江县| 通榆县| 海兴县| 石景山区| 吴江市| 清远市| 阿拉尔市| 自治县| 申扎县| 绥滨县| 法库县| 崇礼县| 梅州市| 虞城县| 石屏县| 迭部县| 棋牌| 顺义区| 九龙城区| 昌宁县| 小金县| 赤水市| 新竹市| 隆尧县| 临潭县| 凤凰县| 商河县| 贵南县|