PB　中的單位轉化問題解决思路

PB　中的單位轉化問題
請問一下如何做ＰＢ中的單位轉換
如：把units 轉到pixels : UnitsToPixels(this.width,XUnitsToPixels!))
乍麼把pixels 轉成 units　呢？　


------解决方案--------------------
没了撒
------解决方案--------------------

问题解决了就好

long = Red + Green * 256 + Blue * 256 * 256
------解决方案--------------------
////////////////////////////////////////////////////////////////////// 
// 
// 将钱数转化为大写 pb10x
// 代码写的干净利落
////////////////////////////////////////////////////////////////////// 
constant string ls_bit = "万仟佰拾亿仟佰拾万仟佰拾元角分" 
constant string ls_num = "壹贰叁肆伍陆柒捌玖" 
long lmax = lena( ls_bit ) + 1 
string ls_je, ls_dw, ls_result = '' 
long ll_len, i, k 

ls_je = string( 10001, "#############.00" ) 
ll_len = lena( ls_je ) - 1 
ls_je = replacea( ls_je, ll_len - 1, 1, '' ) 
for i = ll_len to 1 step -1 
lmax -= 2 
ls_dw = mida( ls_bit, lmax, 2 ) 
k = long( mida( ls_je, i, 1 ) ) 
if k = 0 then 
choose case ls_dw 
case '元','万','亿' 
ls_result = ls_dw + ls_result 
case '分' 
ls_result = '整' 
case '角' 
if ls_result <> '整' then ls_result = '零' + ls_result 
case else 
choose case lefta( ls_result, 2 ) 
case '万', '亿', '元', '零' 
case else 
ls_result = '零' + ls_result 
end choose 
end choose 
else 
ls_result = mida( ls_num, k * 2 - 1, 2 ) + ls_dw + ls_result 
end if 
next 
messagebox('', ls_result)
------解决方案--------------------
强！！！！！