VBA 提取系統主題顏色-何保辛
Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
首頁 >技術文章> 源碼示例


VBA 提取系統主題顏色

發表時間:2013/1/5 2:58:43 評論(0) 瀏覽(6222)  評論 | 加入收藏 | 復制
   
摘 要:其實一直想開發的軟件是用系統顏色的,那我也就不用為配色而煩惱!這是個好工具讓你選擇配色的!
正 文:

我們開發很多程式的時候,都會用到Access的主題,不過用多了還是那幾十個,幾十個里面也用來用去都是那十個八個!


所以最后,我還是返璞歸真,返回 Access95年代,使用用戶自己的電腦配色算了!不要再被客戶看到顏色是我調配的,然后還要教用戶怎么改 Access 配色,算了,還是用系統配色,大家都習慣了的!


可是,雖然 Access 2007 已經有個菜單可以選擇系統顏色:

可是,我們從這30行中文字中選一個顏色描述 會不會很不人性化?


所以把心一橫,就做了個系統配色圖表出來了:

在里面,可以選 負數那些來復制,可以選Access顏色來復制,以后就好設計用戶界面了!


好用工具,公諸同好了!


用 Excel VBA , PowerPoint VBA 的朋友,就請參考以下代碼了:


Private Declare Function apiGetSysColor Lib "user32" Alias "GetSysColor" (ByVal nIndex As Long) As Long
Function GetRGB(RGBval As Long, Num As Integer) As Integer
   ' 檢查參數有效性
   If Num > 0 And Num < 4 And RGBval > -1 And RGBval < 16777216 Then
     GetRGB = RGBval \ 256 ^ (Num - 1) And 255
   Else
     ' 當數值錯誤 回傳 (-1)
     GetRGB = True
   End If
End Function


accdb 下載


開發者你們好,這是 地球信息思維開發者 dbaseIIIer (QQ325613888) 
更多的 Access/VBA 互聯網交互技術,可以參考 本站內部欄目  互聯網技術欄目
更多的思維在  新浪微博   Access貼吧  VisualPHP貼吧

 


Access軟件網交流QQ群(群號:198465573)
 
 相關文章
access版顏色取值小工具  【andymark  2011/10/26】
(Repaste)GridView的行顏色高亮顯示(包括滿足條件的...  【何必見戴  2012/4/6】
【Listview教程06】字體顏色隔行換色  【縱云梯  2012/5/27】
關于顏色的經典VBA自定義函數【CAD-vba】  【歡樂小爪  2012/5/30】
調用字體,前景色,背景色對話框\用代碼改變文本框背景色、顏色  【葉海峰  2012/7/19】
office 2010/2007/2003 顏色對照表  【風行  2012/10/13】
 
 訪客評論
總記錄:0篇  頁次:0/0 9 1 :
 
 發表評論
評論內容 (必填)

常見問答
技術分類
相關資源
文章搜索
關于作者

何保辛

文章分類

文章存檔

友情鏈接