VB数值转换

Screen.TwipsPerPixelX 
Screen.TwipsPerPixelY
就是换算因子

解决方案 »

  1.   

    VBA.Strings.Trim函数可以清除前后的空格,不行就自己编
    (把不是空格的字符复制到另一个字符串)
      

  2.   

    同意，Screen.TwipsPerPixelX和Screen.TwipsPerPixelY可以作为换算因子，使用乘或除的方法可以得到在VB中应该和的值。
    要去除空格，可以使用 Replace()函数，如：sR=Replace(sSource," ", "")。
      

  3.   

    你有没有screentoclient呀？
    然后选point就可以了吧。不然就用x / Screen.TwipsPerPixelX
           y / Screen.TwipsPerPixelY
    来转换