|
ｿｽ@ｿｽｿｽTwip ｿｽｿｽ Pixelｿｽ@ｿｽｿｽｿｽﾝ変奇ｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
NA101W 2007/10/17(ｿｽｿｽ) 10:42:34
ｿｽｿｽｿｽﾟまゑｿｽｿｽｿｽ
ｿｽfｿｽｿｽﾌ通ゑｿｽﾅゑｿｽｿｽｿｽｿｽATwip ｿｽｿｽ Pixelｿｽｿｽｿｽﾝ変奇ｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
Twipｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾍ会ｿｽｿｽLｿｽTｿｽCｿｽgｿｽｿｽ
http://dobon.net/vb/bbs/log3-10/5849.html
Twips = (Pixel / ｿｽ像度) * 1440ｿｽ@ｿｽﾆ記ｿｽﾚゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは、
Pixel = (Twips * ｿｽ像度) / 1440ｿｽ@ｿｽﾆなるかｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽ利用ｿｽｿｽｿｽAｿｽ成ｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌ解像度ｿｽﾆは、
Screen.Width / Screen.TwipsPerPixelXｿｽ@ｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Screen.Height / Screen.TwipsPerPixelYｿｽ@ｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
VB6.0ｿｽﾅ作成ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽgｿｽｿｽｿｽg 2007/10/17(ｿｽｿｽ) 11:07:28
> ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌ解像度
ｿｽﾍ、ｿｽｿｽﾊの場合ｿｽAｿｽuｿｽｿｽﾊのプｿｽｿｽｿｽpｿｽeｿｽBｿｽvｿｽﾌ「ｿｽﾚ細設抵ｿｽvｿｽﾅ指ｿｽ閧ｷｿｽｿｽB
ｿｽuDPIｿｽﾌ設抵ｿｽvｿｽﾌ趣ｿｽｿｽﾅは・ｿｽEｿｽE
ｿｽｿｽｿｽｿｽﾊの「96DPIｿｽvｿｽﾌ設定がｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
> Twip ｿｽｿｽ Pixelｿｽｿｽｿｽﾝ変奇ｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽ
ｿｽHｿｽHｿｽHｿｽざｿｽざｿｽuｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽvｿｽﾈんか必ｿｽvｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽuScreen.TwipsPerPixelXｿｽvｿｽuScreen.TwipsPerPixelYｿｽvｿｽｿｽｿｽA
> Twips = (Pixel / ｿｽ像度) * 1440ｿｽ@
ｿｽｿｽｿｽｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽ
> Twips = Pixel * (1440/ｿｽ像度)
ｿｽﾌ「(1440/ｿｽ像度)ｿｽvｿｽﾉ撰ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽPｿｽｿｽｿｽﾉ、
ｿｽuScreen.TwipsPerPixelXｿｽvｿｽuScreen.TwipsPerPixelYｿｽv
ｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｷｿｽ驍ｾｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽuScaleXｿｽAScaleY ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽvｿｽﾅ一発ｿｽﾏ奇ｿｽｿｽﾆゑｿｽｿｽEｿｽEｿｽE
NA101W 2007/10/17(ｿｽｿｽ) 11:27:03
ｿｽｿｽgｿｽｿｽｿｽgｿｽl
ｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈんか包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽlｿｽﾅ搾ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
Private Sub Command1_Click()
'Text1=Pixel:Text2=Twip
If Text1.Text <> "" And Text2.Text = "" Then
Text2.Text = Screen.TwipsPerPixelY * Text1.Text
ElseIf Text1.Text = "" And Text2.Text <> "" Then
Text1.Text = Text2.Text / Screen.TwipsPerPixelX
End If
End Sub
NA101W 2007/10/17(ｿｽｿｽ) 11:27:49
ｿｽﾏみ＾ｿｽOｿｽG
