|
ｿｽｿｽVBｿｽfｿｽｿｽｿｽｿｽ(VB2-VB6)
|
emfｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽTｿｽCｿｽYｿｽﾏ更
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
yoro 2009/04/28(ｿｽｿｽ) 17:20:25
ｿｽUｿｽzｿｽ}ｿｽﾅ各ｿｽvｿｽｿｽｿｽbｿｽgｿｽﾉ対会ｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ全ｿｽﾄ難ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾉゑｿｽAｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽemf(ｿｽｿｽｿｽｿｽｿｽｿｽwmfｿｽﾅゑｿｽｿｽ)ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVBｿｽｿｽｿｽｿｽﾒ集ｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽ
ｿｽtｿｽHｿｽｿｽｿｽgｿｽTｿｽCｿｽYｿｽｿｽSｿｽﾄ茨ｿｽｿｽﾌ比率ｿｽEｿｽEｿｽ痰ｦｿｽｿｽ1.5ｿｽ{ｿｽﾆゑｿｽ0.7ｿｽ{
ｿｽﾈどに変更ｿｽｿｽｿｽ驍ｱｿｽﾆは可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽIｿｽVｿｽｿｽｿｽE 2009/04/28(ｿｽｿｽ) 17:37:22
ｿｽiｿｽgｿｽｿｽｿｽjｿｽｿｽｿｽ^ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾍ、ｿｽgｿｽｿｽkｿｽｿｽｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽﾌ場合
ｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽｿｽｿｽgｿｽﾌ大きｿｽｿｽｿｽﾌみゑｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ皷橸ｿｽAｿｽ@ｿｽ¥ｿｽIｿｽﾉは可能ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾌにゑｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽEｿｽEｿｽE
DXF => MetaFile ｿｽﾏ奇ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽMetaFileｿｽﾌ表ｿｽｿｽｿｽﾅｿｽｿｽCｿｽｿｽｿｽIｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ笊ｶｿｽｿｽｿｽｿｽｿｽﾌ変更ｿｽﾆゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽﾊ途ｿｽsｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽﾈはゑｿｽ
ｿｽﾅゑｿｽｿｽBｿｽiｿｽｿｽｿｽｿｽｿｽﾜではゑｿｽｿｽEｿｽEｿｽEｿｽj
ｿｽﾈ擾ｿｽB
yoro 2009/04/28(ｿｽｿｽ) 17:52:16
ｿｽIｿｽVｿｽｿｽｿｽEｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽﾌ趣ｿｽｿｽ竄ｪｿｽ`ｿｽｿｽｿｽbｿｽgｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
> ｿｽUｿｽzｿｽ}ｿｽﾅ各ｿｽvｿｽｿｽｿｽbｿｽgｿｽﾉ対会ｿｽｿｽｿｽｿｽ髟ｶｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
> ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ全ｿｽﾄ難ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾍ異なゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽTｿｽCｿｽYｿｽﾍ難ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽvｿｽｿｽﾍシｿｽXｿｽeｿｽｿｽ R ｿｽﾅ散ｿｽzｿｽ}ｿｽｿｽ成ｿｽｿｽemfｿｽﾅ出ｿｽﾍゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
http://www.okada.jp.org/RWiki/?RjpWiki
ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽ蛯ｫｿｽｿｽｿｽﾌで、emfｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽVBｿｽﾅ搾ｿｽｿｽｿｽｿｽｿｽﾈ易ビｿｽｿｽｿｽ[ｿｽAｿｽﾅ拡ｿｽｿｽ¥ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ際に、ｿｽｿｽｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽｿｽｿｽｿｽｿｽﾉ拡ｿｽ蛯ｵｿｽﾜゑｿｽｿｽﾌで、ｿｽ痰ｦｿｽﾎグｿｽｿｽｿｽtｿｽｿｽｿｽQｿｽ{ｿｽｿｽ
ｿｽﾈゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽ1/2ｿｽﾉゑｿｽｿｽﾄ、ｿｽgｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽ
ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
> ｿｽｿｽｿｽｿｽｿｽｿｽﾌにゑｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽEｿｽEｿｽE
ｿｽcｿｽOｿｽﾅゑｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽAｿｽﾂ能ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽAMSｿｽｿｽENHMET.HLP(ｿｽdｿｽlｿｽｿｽｿｽH)ｿｽｿｽﾇゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽ謔ｭｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽiｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽFｿｽlｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽﾒゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽIｿｽVｿｽｿｽｿｽE 2009/04/28(ｿｽｿｽ) 20:46:58
EnumEnhMetaFile
GetEnhMetaFileBits
ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄ・ｿｽEｿｽE
ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ挙・ｿｽｿｽｿｽoｿｽｿｽsｿｽｿｽｿｽAｿｽﾊの会ｿｽｿｽHｿｽｿｽﾌｿｽｿｽ^ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ
ｿｽoｿｽﾍゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽAｿｽYｿｽｿｽｿｽﾌ要ｿｽfｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾎ、ｿｽ‾ｿｽｿｽｿｽｿｽｿｽ@ｿｽ¥
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽ¥ｿｽﾍ技ｿｽｿｽｿｽｿｽEｿｽEｿｽEｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ@ｿｽvｿｽfｿｽﾌ抵ｿｽｿｽoｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ‾ｿｽ¥ｿｽI
ｿｽｿｽｿｽ@1992ｿｽ`1993ｿｽNｿｽﾉ搾ｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽRｿｽ[ｿｽhｿｽｿｽｿｽRｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｾｿｽｿｽ
ｿｽ@ｿｽ@ｿｽﾜゑｿｽｿｽｿｽｿｽﾌで・ｿｽEｿｽEｿｽqｿｽ[ｿｽRｿｽｿｽｿｽEｿｽEｿｽE
ｿｽ@ｿｽ@DXF ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽvｿｽfｿｽｿｽ挙・ｿｽｿｽｿｽoｿｽｿｽｿｽﾄ、MetaFileｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽｿｽGDIｿｽｿｽｿｽﾟに変更ｿｽｿｽｿｽﾄ変奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽ@
ｿｽ@ｿｽ@ｿｽﾆゑｿｽｿｽﾄは、ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾍゑｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ@ｿｽvｿｽfｿｽﾌ抵ｿｽｿｽoｿｽﾌ際、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽが、ｿｽﾇゑｿｽｿｽIDｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽ
ｿｽ@ｿｽ@ｿｽﾌゑｿｽｿｽAｿｽｿｽｿｽﾗゑｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾗゑｿｽﾌゑｿｽｿｽﾊ倒ｿｽEｿｽEｿｽEｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽE
ｿｽﾈ擾ｿｽBｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽI
K.J.K. 2009/04/28(ｿｽｿｽ) 20:48:38
ｿｽﾐ包ｿｽｿｽｿｽ EnumEnhMetaFile ｿｽﾅ列挙ゑｿｽｿｽﾈゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾐ包ｿｽｿｽｿｽ EnhMetaDC ｿｽｿｽ
PlayEnhMetaFileRecord ｿｽﾅ記ｿｽ^ｿｽｿｽｿｽ驍ｱｿｽﾆにゑｿｽｿｽﾄ、ｿｽ挙托ｿｽｿｽﾅゑｿｽ Font ｿｽｿｽ
ｿｽﾝ抵ｿｽﾉ関係ｿｽｿｽｿｽ閧ｻｿｽｿｽｿｽｿｽ EMRｿｽAｿｽ痰ｦｿｽｿｽ EMREXTCREATEFONTINDIRECTW ｿｽﾈゑｿｽ
ｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽYｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽ EMR ｿｽｿｽ
ｿｽLｿｽ^ｿｽｿｽｿｽﾉ托ｿｽｿｽｿｽﾆゑｿｽｿｽB
yoro 2009/04/30(ｿｽｿｽ) 13:01:09
ｿｽIｿｽVｿｽｿｽｿｽEｿｽlｿｽAK.J.K.ｿｽlｿｽ@ｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾎ包ｿｽｿｽｿｽｿｽﾙど壁ゑｿｽｿｽﾍゑｿｽｿｽｿｽｿｽ閧ｵｿｽAｿｽﾈ単ｿｽﾉは出ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽﾊなアｿｽvｿｽｿｽｿｽ[ｿｽ`ｿｽﾅ、ｿｽtｿｽHｿｽｿｽｿｽgｿｽTｿｽCｿｽYｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽQｿｽﾂゑｿｽemfｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽ
ｿｽｿｽrｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽｿｽﾌゑｿｽﾏ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅは、ｿｽqｿｽﾉ適ｿｽｿｽｿｽﾈタｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽﾅ、ｿｽsｿｽxemfｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾆで難ｿｽｿｽｿｽｿｽｿｽdｿｽlｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ話ｿｽｿｽﾍ閉めるこｿｽﾆとゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
yoro 2009/05/08(ｿｽｿｽ) 07:39:12
ｿｽIｿｽVｿｽｿｽｿｽEｿｽlｿｽAK.J.K.ｿｽlｿｽﾌアｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽｿｽﾉ連ｿｽxｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽCｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽ ｿｽｿｽｿｽLｿｽｿｽQｿｽlｿｽﾉフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽ驍ｱｿｽﾆには撰ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
http://nienie.com/‾masapico/api_GetEnhMetaFileBits.html
http://park7.wakwak.com/‾efc21/cgi-bin/exqalounge.cgi?print+200708/07080129.txt
ｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽ(ｿｽｿｽ`ｿｽ¥ｿｽｿｽｿｽﾌ茨ｿｽ?)ｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽ黷ｸｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾆ包ｿｽｿｽｿｽｿｽﾌ間隔ｿｽｿｽｿｽLｿｽｿｽｿｽﾈゑｿｽAｿｽtｿｽﾉ大きｿｽｿｽｿｽｿｽｿｽｿｽﾆ包ｿｽｿｽｿｽｿｽｿｽｿｽdｿｽﾈりだｿｽｿｽｿｽﾜゑｿｽｿｽB
Type EMREXTTEXTOUT
pEmr As EMR
rclBounds As RECTL
iGraphicsMode As Long
exScale As Double
eyScale As Double
emrtext As emrtext
End Type
Type EXTLOGFONT
elfLogFont As LOGFONT
elfFullName(LF_FULLFACESIZE) As Byte
elfStyle(LF_FACESIZE) As Byte
elfVersion As Long
elfStyleSize As Long
elfMatch As Long
elfReserved As Long
elfVendorId(ELF_VENDOR_SIZE) As Byte
elfCulture As Long
elfPanose As PANOSE
End Type
Type EMREXTCREATEFONTINDIRECT
pEmr As EMR
ihFont As Long
elfw As EXTLOGFONT
End Type
Const EMR_EXTCREATEFONTINDIRECTW = 82
Const EMR_EXTTEXTOUTW = 84
While SrcIdx < BufSize
'ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌヘｿｽbｿｽ_ｿｽｿｽ謫ｾ
MoveMemory RecordHeader, SrcData(SrcIdx), Len(RecordHeader)
If RecordHeader.iType = EMR_EXTCREATEFONTINDIRECTW Then
MoveMemory E_CREATEFONTINDIRECT, SrcData(SrcIdx), Len(E_CREATEFONTINDIRECT)
'ｿｽtｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽ半鯉ｿｽ
E_CREATEFONTINDIRECT.elfw.elfLogFont.lfHeight = E_CREATEFONTINDIRECT.elfw.elfLogFont.lfHeight * sScale
'E_CREATEFONTINDIRECT.elfw.elfLogFont.lfWidth ｿｽEｿｽE ｿｽﾍ個々ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽI
'ｿｽVｿｽKｿｽｿｽｿｽ^ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽpｿｽoｿｽbｿｽtｿｽ@ｿｽﾉ設抵ｿｽ
MoveMemory DestData(DestIdx), E_CREATEFONTINDIRECT, Len(E_CREATEFONTINDIRECT)
DestIdx = DestIdx + RecordHeader.nSize
ElseIf RecordHeader.iType = EMR_EXTTEXTOUTW Then
MoveMemory E_TEXTOUT, SrcData(SrcIdx), RecordHeader.nSize 'Len(E_TEXTOUT)ｿｽﾅはカｿｽ^ｿｽJｿｽiｿｽｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ固まゑｿｽ
With E_TEXTOUT.rclBounds
Debug.Print .Left, .Top, .Right, .Bottom '0 0 -1 -1 ｿｽﾌゑｿｽ
End With
'ｿｽVｿｽKｿｽｿｽｿｽ^ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽpｿｽoｿｽbｿｽtｿｽ@ｿｽﾉ設抵ｿｽ
MoveMemory DestData(DestIdx), E_TEXTOUT, RecordHeader.nSize 'Len(E_TEXTOUT)ｿｽﾅはカｿｽ^ｿｽJｿｽiｿｽｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ固まゑｿｽ
DestIdx = DestIdx + RecordHeader.nSize
'ｿｽｿｽｿｽｿｽｿｽ`ｿｽ諠鯉ｿｽRｿｽ[ｿｽhｿｽﾅなゑｿｽｿｽ鼾ｿｽ@ｿｽｿｽｿｽ@ｿｽｿｽｿｽﾌまま包ｿｽｿｽｿｽ
Else
MoveMemory DestData(DestIdx), SrcData(SrcIdx), RecordHeader.nSize
DestIdx = DestIdx + RecordHeader.nSize
End If
SrcIdx = SrcIdx + RecordHeader.nSize
Wend
ｿｽｿｽ ｿｽｿｽ`ｿｽﾌ茨ｿｽｿｽEMREXTTEXTOUTWｿｽ¥ｿｽｿｽｿｽﾌゑｿｽrclBoundsｿｽｿｽｿｽﾈとゑｿｽvｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽ
With E_TEXTOUT.rclBounds
Debug.Print .Left, .Top, .Right, .Bottom '0 0 -1 -1 ｿｽﾌゑｿｽ
End With
ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽﾉゑｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽEMR_EXTTEXTOUTWｿｽﾌ際には、
MoveMemory E_TEXTOUT, SrcData(SrcIdx), Len(E_TEXTOUT)ｿｽ@ｿｽﾅはカｿｽ^ｿｽJｿｽiｿｽｿｽｿｽPｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ具ｿｽ`ｿｽﾌ茨ｿｽｿｽ
ｿｽdｿｽﾈゑｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
APIｿｽﾌ茨ｿｽｿｽｿｽｿｽｿｽｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾗゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽCｿｽﾃゑｿｽｿｽﾌ点ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB
K.J.K. 2009/05/08(ｿｽｿｽ) 10:28:36
EMREXTTEXTOUT.emrtext.rcl ｿｽｿｽ EXTLOGFONT.elfLogFont.lfWidth ｿｽﾌ値ｿｽﾈどゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽﾆどゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽ?
yoro 2009/05/08(ｿｽｿｽ) 10:56:33
K.J.K.ｿｽlｿｽ@ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB
> EMREXTTEXTOUT.emrtext.rcl ｿｽｿｽ EXTLOGFONT.elfLogFont.lfWidth ｿｽﾌ値ｿｽﾈどゑｿｽ
> ｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽﾆどゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽ?
EMREXTTEXTOUT.emrtext.rclｿｽｿｽ
Debug.Print .Left, .Top, .Right, .Bottom ｿｽﾅ全ｿｽｿｽ
0 , 0 , -1 , -1 ｿｽﾌみ返ゑｿｽｿｽﾜゑｿｽｿｽB
EXTLOGFONT.elfLogFont.lfWidth ｿｽﾍフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽ(ｿｽPｿｽｿｽｿｽｿｽｿｽH)ｿｽﾌ包ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽ ｿｽlｿｽｿｽ 0 ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽﾈ暦ｿｽｿｽlｿｽH
ｿｽﾂ人ｿｽIｿｽﾉは、ｿｽｿｽｿｽｿｽｿｽｿｽﾊオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ具ｿｽ`ｿｽﾌ茨ｿｽﾈどゑｿｽQｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾋゑｿｽｿｽﾜゑｿｽﾖ係ｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽAｿｽｿｽｿｽLｿｽｿｽDrawTextｿｽﾅソｿｽ[ｿｽXｿｽﾌ包ｿｽｿｽﾍ気ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
http://www.f3.dion.ne.jp/‾element/msaccess/clgdiplusdoc.html#VI-F
Public Function DrawText(pText As String, pSize As Long, Optional pFontName As String, _
Optional pX1 As Long, Optional pY1 As Long, Optional pX2 As Long = -1, Optional pY2 As Long = -1, _
Optional pAlignHoriz As Long = 1, Optional pAlignVert As Long = 1, _
Optional pPenColor As Long = 0, Optional pPenAlpha As Integer = 255, _
Optional pBackColor As Long = -1, Optional pBackAlpha As Integer = 255, _
Optional pItalic As Boolean, Optional pBold As Boolean, _
Optional pUnderline As Boolean, Optional pStrikeout As Boolean, _
Optional pAntialiase As Boolean = False, Optional pOnlyGetSize As Boolean = False) As Boolean
' Conversion si controle de reference
If Not gCtrlRef Is Nothing Then
pX1 = CtrlToImgX(pX1, gCtrlRef, True)
pY1 = CtrlToImgY(pY1, gCtrlRef, True)
pX2 = CtrlToImgX(pX2, gCtrlRef, True)
pY2 = CtrlToImgY(pY2, gCtrlRef, True)
End If
DrawText = PrivDrawText(pText, pSize, pFontName, pX1, pY1, pX2, pY2, _
pAlignHoriz, pAlignVert, pPenColor, pPenAlpha, pBackColor, pBackAlpha, _
pItalic, pBold, pUnderline, pStrikeout, pAntialiase, pOnlyGetSize)
End Function
Private Function PrivDrawText(pText As String, pSize As Long, Optional ByVal pFontName As String, _
Optional pX1 As Long, Optional pY1 As Long, Optional pX2 As Long = -1, Optional pY2 As Long = -1, _
Optional ByVal pAlignHoriz As Long = 1, Optional ByVal pAlignVert As Long = 1, _
Optional pPenColor As Long = 0, Optional pPenAlpha As Integer = 255, _
Optional pBackColor As Long = -1, Optional pBackAlpha As Integer = 255, _
Optional pItalic As Boolean, Optional pBold As Boolean, _
Optional pUnderline As Boolean, Optional pStrikeout As Boolean, _
Optional pAntialiase As Boolean = False, Optional pOnlyGetSize As Boolean = False, _
Optional pImage As String = "") As Boolean
Dim lGraphics As Long
Dim lFontFamily As Long, lFont As Long
Dim lTextBrush As Long, lBackBrush As Long
Dim lTextRect As RECTF
Dim lCalcRect As RECTF
Dim lStrFormat As Long
Dim lBitmap As Long
Dim lwidth As Single, lheight As Single
Dim lCenter As Boolean
Dim lStyle As Long
On Error GoTo gestion_erreurs
If pImage = "" Then
ConvertTo32Bits gBitmapWork
lBitmap = gBitmapWork
Else
lBitmap = gImgList(pImage)
End If
' Rectangle de positionnement du texte
' Dimensions de l'image
GdipGetImageDimension lBitmap, lwidth, lheight
If pX2 = -1 And pY2 = -1 Then
lCenter = True
End If
If pX2 = -1 Then pX2 = lwidth
If pY2 = -1 Then pY2 = lheight
lTextRect.Left = pX1
lTextRect.Top = pY1
lTextRect.Right = pX2 - pX1
lTextRect.Bottom = pY2 - pY1
ｿｽﾈ会ｿｽｿｽﾈ暦ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
K.J.K. 2009/05/08(ｿｽｿｽ) 11:47:50
GetEnhMetaFileBits ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽIｿｽｿｽ EnumEnhMetaFile + PlayEnhMetaFileRecord
ｿｽﾅ行ｿｽｿｽｿｽﾆどゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽ?
yorp 2009/05/13(ｿｽｿｽ) 09:08:52
K.J.K.ｿｽl
> GetEnhMetaFileBits ｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽIｿｽｿｽ EnumEnhMetaFile + PlayEnhMetaFileRecord
> ｿｽﾅ行ｿｽｿｽｿｽﾆどゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽ?
http://nienie.com/‾masapico/api_sample_metafile03_vb.html
ｿｽｿｽLｿｽﾌのサｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽgｿｽｿｽｿｽCｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾅ擾ｿｽｿｽｿｽ
ｿｽ@RtlMoveMemory VarPtr(eh), pRecord, Len(eh) ｿｽｿｽｿｽｿｽ閧ｭｿｽ@ｿｽ¥ｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
eh.iTypeｿｽｿｽｿｽSｿｽｿｽ0ｿｽﾆなゑｿｽAｿｽCｿｽOｿｽﾌサｿｽCｿｽgｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽｿｽ
EnumEnhMetaFile + PlayEnhMetaFileRecordｿｽｿｽiTypeｿｽｿｽmｿｽFｿｽｿｽｿｽﾈゑｿｽｿｽｿｽPｿｽｿｽｿｽﾄ撰ｿｽｿｽｿｽ
ｿｽoｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽﾌ変更ｿｽﾈど、MoveMemoryｿｽｿｽｿｽｿｽ閧ｭｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ鯉ｿｽAｿｽｿｽｿｽLｿｽﾌ記ｿｽﾚゑｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
http://msdn.microsoft.com/en-us/library/dd162591(VS.85).aspx
http://msdn.microsoft.com/en-us/library/cc230576(PROT.10).aspx
offDx
Offset to intercharacter spacing array.
ｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾉ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽLｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
http://social.microsoft.com/Forums/ja-JP/os_windowsprotocols/thread/85805191-98f2-4087-a829-5e65cc3bd21e
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾇどゑｿｽｿｽgｿｽｿｽｿｽﾄ良ゑｿｽｿｽﾌゑｿｽｿｽかｿｽ轤ｸｿｽAｿｽｿｽｿｽｿｽｿｽｿｽ
emrtext.offDx = 0
ｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾔ隔ｿｽｿｽｿｽlｿｽﾜゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ@emrtext.offDx = 0ｿｽ@ｿｽﾆゑｿｽｿｽ驍ｱｿｽﾆで指ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽWｿｽｿｽｿｽIｿｽﾈ配ｿｽuｿｽｿｽ
ｿｽｿｽｿｽ黷ｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅ様ｿｽqｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽLｿｽgｿｽoｿｽﾈどの擾ｿｽｿｽｿｽﾜめ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽﾃゑｿｽｿｽｿｽ
ｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB
K.J.K. 2009/05/13(ｿｽｿｽ) 12:14:30
offDx = 0 ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌは面費ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽ{ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは影ｿｽｿｽｿｽｿｽ^ｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽﾍり何ｿｽｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽZｿｽbｿｽgｿｽｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽB
