VFP 愛用者社區

tigerlee39y · 註冊時間: 2007-11-26 文章: 132 來自: taipei 第 1 樓

我有別人給我設計的顏色碼,但是給的是16進位的,譬如 d4f8aa

我要如何轉成vfp常用的 xxx,xxx,xxx ?

syntech · 發表於: 星期五十一月 13, 2009 6:07 am 文章主題:

cCOLOR=UPPER("d4f8aa")
_SCREEN.BACKCOLOR=RGB(HexStringTOInteger(SUBSTR(cCOLOR,1,2)),HexStringTOInteger(SUBSTR(cCOLOR,3,2)),HexStringTOInteger(SUBSTR(cCOLOR,5,2)))

差不多就是這樣. ^_^

sean27 · 註冊時間: 2008-08-17 文章: 49 第 3 樓

mcolor = "d4f8aa"
a = "0x" + substr(mcolor,1,2)
b = "0x" + substr(mcolor,3,2)
c = "0x" + substr(mcolor,5,2)
_SCREEN.BACKCOLOR=rgb(eval(a),eval(b),eval(c))

sean27 · 註冊時間: 2008-08-17 文章: 49 第 4 樓

另一種方法
mcolor = "d4f8aa"
a = "0x" + substr(mcolor,5,2) + substr(mcolor,3,2) + substr(mcolor,1,2)
_SCREEN.BACKCOLOR=eval(a)

tigerlee39y · 發表於: 星期五十一月 13, 2009 11:43 am 文章主題:

謝謝 syntech 及 sean27

了解

就是把 "d4f8aa",兩個兩個拆開 ---> d4 f8 aa

然後 hex 轉 dec 就成了,對吧

"d4f8aa" ------> 212 248 170

lygcw9603 · 註冊時間: 2011-12-25 文章: 127 第 6 樓

_SCREEN.BACKCOLOR=eval("0xd4f8aa")