校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > 用vbs實現選擇顏色

用vbs實現選擇顏色
熱門標簽：墨西哥地圖標注app 上海辦理400電話選號 龍巖400電話申請 天津智能外呼系統排名 機器人打電銷適用于美業嗎 智云億呼電話機器人 外呼系統說話聲音小怎么辦 企業400電話辦理價錢低 外呼系統群
如果不用組件的話，代碼如下：

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

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

巨人網絡通訊聲明：本文標題《用vbs實現選擇顏色》，本文關鍵詞  用,vbs,實現,選擇,顏色,用,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《用vbs實現選擇顏色》相關的同類信息！
  • 本頁收集關于用vbs實現選擇顏色的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 沁阳市| 晋州市| 福贡县| 沙洋县| 昌图县| 肇庆市| 上高县| 桦甸市| 榆中县| 平武县| 酒泉市| 昌图县| 林口县| 灵宝市| 博野县| 宣武区| 乌拉特前旗| 佛冈县| 敦煌市| 阜宁县| 阿克陶县| 印江| 西林县| 建瓯市| 高邑县| 镇康县| 赣州市| 海丰县| 正宁县| 东平县| 青浦区| 兴山县| 华池县| 阜南县| 海南省| 正镶白旗| 马尔康县| 和硕县| 当涂县| 车险| 迁安市|