タイトル : Re^4: テキストボックスの移動と配置に関して(MSflexGrid) 投稿日 : 2008/07/22(Tue) 22:16 投稿者 : 魔界の仮面弁士
# 名前空間の説明文に誤りがあったので、一部修正。 > 簡易的には、.CellLeft \ 15 で Pixel になりますが、解像度の設定等によって > 変わりますで、正確には事前にその辺を調べておく必要があります。 <削除>Microsoft.VisualBasic.Compatibility.VB6.Support 名前空間で取得できますね。</削除> 失礼。Microsoft.VisualBasic.Compatibility.VB6 名前空間の Support モジュールですね。 ''' Microsoft.VisualBasic.Compatibility.DLL を参照設定しておく 'Imports Microsoft.VisualBasic.Compatibility.VB6 Dim scaleX As Single = TwipsPerPixelX() Dim scaleY As Single = TwipsPerPixelY() Dim pixelValueX As Double = TwipsToPixelsX( twip値 ) Dim pixelValueY As Double = TwipsToPixelsY( twip値 ) Dim twipValueX As Double = PixelsToTwipsX( pixel値 ) Dim twipValueY As Double = PixelsToTwipsY( pixel値 ) # あるいは、1440 / GetDeviceCaps(p, LOGPIXELSX) という手もあるけれど。 |