濮阳杆衣贸易有限公司

主頁 > 知識庫 > 用vbs實現(xiàn)選擇顏色

用vbs實現(xiàn)選擇顏色
熱門標簽：墨西哥地圖標注app 上海辦理400電話選號 龍巖400電話申請 天津智能外呼系統(tǒng)排名 機器人打電銷適用于美業(yè)嗎 智云億呼電話機器人 外呼系統(tǒng)說話聲音小怎么辦 企業(yè)400電話辦理價錢低 外呼系統(tǒ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

組件相關文件下載http://xiazai.jb51.net/jbtools/vb6controls.rar

標簽：黃山 鄂爾多斯 錫林郭勒盟 阜新 承德 齊齊哈爾 麗水 青島

巨人網(wǎng)絡通訊聲明：本文標題《用vbs實現(xiàn)選擇顏色》，本文關鍵詞  用,vbs,實現(xiàn),選擇,顏色,用,；如發(fā)現(xiàn)本文內容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《用vbs實現(xiàn)選擇顏色》相關的同類信息！
  • 本頁收集關于用vbs實現(xiàn)選擇顏色的相關信息資訊供網(wǎng)民參考！
    • 推薦文章
    永仁县| 古交市| 绩溪县| 区。| 永泰县| 长葛市| 柳江县| 乐山市| 临颍县| 凤城市| 本溪| 遂宁市| 高安市| 广汉市| 上杭县| 宜兰县| 霞浦县| 合阳县| 台安县| 伊宁市| 南丰县| 剑川县| 富川| 金湖县| 昌乐县| 和平县| 上思县| 和政县| 康保县| 新源县| 罗定市| 昭平县| 淮阳县| 石首市| 彰化县| 商河县| 巫山县| 兴海县| 涞源县| 武平县| 惠州市|