|
ｿｽｿｽVBｿｽfｿｽｿｽｿｽｿｽ(VB2-VB6)
|
ｿｽ鞫懶ｿｽﾆテｿｽLｿｽXｿｽgｿｽｿｽｿｽﾂのフｿｽ@ｿｽCｿｽｿｽｿｽﾅ保托ｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/02/05(ｿｽｿｽ) 21:49:20
pictureｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ画像ｿｽﾆ、ｿｽeｿｽLｿｽXｿｽgｿｽｿｽｿｽﾂのフｿｽ@ｿｽCｿｽｿｽｿｽﾅ保托ｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾝは、ｿｽﾛ托ｿｽｿｽｿｽｿｽ驍ｳｿｽｿｽｿｽﾉ、
open FILENAME for output as #1ｿｽ@ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽﾅ、
ｿｽeｿｽLｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽだゑｿｽｿｽﾆに、pictureｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌドｿｽbｿｽgｿｽｿｽｿｽｿｽｿｽﾌカｿｽｿｽｿｽ[ｿｽfｿｽ[ｿｽ^ｿｽi&HFF0088&ｿｽｿｽｿｽjｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽｿｽcｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽ鞫懶ｿｽｿｽｿｽｿｽkｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾉテｿｽLｿｽXｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾈど、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆ、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ趣ｿｽﾞ（ｿｽgｿｽｿｽｿｽqｿｽjｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾈゑｿｽﾗゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽOCXｿｽｿｽDLLｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽﾅ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/02/05(ｿｽｿｽ) 22:26:14
ｿｽ@Dim B() As Byte
ｿｽ@With New PropertyBag
ｿｽ@ｿｽ@.WriteProperty "Picture", Image1.Picture
ｿｽ@ｿｽ@.WriteProperty "FileName", "ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽ鞫"
ｿｽ@ｿｽ@B = .Contents
ｿｽ@End With
ｿｽｿｽｿｽﾄ奇ｿｽｿｽｿｽｿｽﾅ、(VB6ｿｽｿｽ)PropertyBag ｿｽﾉパｿｽ[ｿｽVｿｽXｿｽgｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽB
ｿｽﾇみ搾ｿｽｿｽﾝはゑｿｽｿｽﾌ逆ｿｽB
ｿｽ@With New PropertyBag
ｿｽ@ｿｽ@.Contents = B
ｿｽ@ｿｽ@Label1.Caption = .ReadProperty("FileName", "")
ｿｽ@ｿｽ@Set Image2.Picture = .ReadProperty("Picture", Nothing)
ｿｽ@End With
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/02/05(ｿｽｿｽ) 22:39:35
ｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾌ環具ｿｽｿｽｿｽVB5ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽA
NEWｿｽLｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽﾌ使ｿｽpｿｽ@ｿｽｿｽｿｽsｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽoｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌにゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
VB5ｿｽﾅ可能ｿｽﾈ包ｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/02/05(ｿｽｿｽ) 22:58:49
ｿｽｿｽLｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾌは、VB6 ｿｽｿｽ PropertyBag ｿｽﾌ場合ｿｽﾅゑｿｽｿｽﾋ。
VB5ｿｽｿｽPropertyBagｿｽｿｽAVB6ｿｽｿｽPropertyBag_VB5ｿｽｿｽｿｽﾆ厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
> VB5ｿｽﾅ可能ｿｽﾈ包ｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
API ｿｽｿｽ OCX ｿｽｿｽｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽﾆ、Picture ｿｽ^ｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽ
ｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽｿｽiｿｽｿｽｿｽASavePicture ｿｽﾉ鯉ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽﾋ。
ｿｽﾆなゑｿｽﾆ、ｿｽｿｽｿｽﾆゑｿｽｿｽﾎ画像ｿｽｿｽASavePicture ｿｽﾅ一時ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽﾆゑｿｽｿｽﾄ読み抵ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽｿｽ
ｿｽ@Public Type hoge
ｿｽ@ｿｽ@Name As String
ｿｽ@ｿｽ@Binary() As Byte
ｿｽ@End Type
ｿｽﾈｿｽｿｽ[ｿｽUｿｽ[ｿｽｿｽ`ｿｽ^ｿｽﾉ難ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟゑｿｽ Put # ｿｽｿｽｿｽﾄみゑｿｽﾆゑｿｽｿｽB
ｿｽﾇみ搾ｿｽｿｽﾝ趣ｿｽｿｽﾍ、ｿｽｿｽｿｽﾌｿｽｿｽ[ｿｽUｿｽ[ｿｽｿｽ`ｿｽ^ｿｽｿｽ Get # ｿｽｿｽｿｽｿｽｿｽｿｽﾅ、
Binary ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ LoadPictureｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/02/06(ｿｽｿｽ) 00:17:10
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾍゑｿｽｿｽﾂゑｿｽINPUTｿｽAOUTPUTｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、PUTｿｽAGETｿｽﾉつゑｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾗてゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽｿｽｿｽﾅ抵ｿｽｿｽﾗてみまゑｿｽｿｽﾌで、ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽiｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽjｿｽﾜゑｿｽｿｽｿｽｿｽﾔ趣ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ竄ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、hogeｿｽﾆゑｿｽｿｽｿｽｿｽﾌは、ｿｽCｿｽﾓとゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽﾆゑｿｽAhogeｿｽﾆゑｿｽｿｽｿｽｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽHｿｽ{ｿｽｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/02/06(ｿｽｿｽ) 10:31:27
> ｿｽCｿｽﾓとゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽﾆゑｿｽAhogeｿｽﾆゑｿｽｿｽｿｽｿｽ關費ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH
ｿｽOｿｽﾒでゑｿｽｿｽBｿｽ[ｿｽｿｽｿｽﾓ厄ｿｽｿｽﾍ難ｿｽｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB(^^;
hoge ｿｽﾈ外ｿｽﾉは、moge ｿｽﾆゑｿｽ hage ｿｽﾆゑｿｽ hige ｿｽﾆゑｿｽ foo ｿｽﾆゑｿｽ bar ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽlｿｽﾅゑｿｽｿｽB
# ｿｽｿｽｿｽLｿｽﾉは、ｿｽuｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽAｿｽﾏ撰ｿｽｿｽｿｽｿｽﾈどの厄ｿｽｿｽｿｽｿｽvｿｽﾉ使ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽﾋ。
# http://kmaebashi.com/programmer/hoge.html
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/02/06(ｿｽｿｽ) 11:10:06
>> ｿｽｿｽｿｽｿｽｿｽｿｽOCXｿｽｿｽDLLｿｽｿｽgｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽﾅ具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾌ前ｿｽかゑｿｽﾍ外ｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽ皷橸ｿｽ竭ｫｿｽB
> Binary ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽ LoadPictureｿｽB
ｿｽｿｽｿｽｿｽｿｽ API ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽ¥ｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽgｿｽずｿｽA
ｿｽﾇみ搾ｿｽｿｽだバｿｽCｿｽiｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽ Picture ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾉ変奇ｿｽｿｽｿｽｿｽ骼厄ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
http://yaplog.jp/orator/archive/19
ｿｽtｿｽﾉ、Picture ｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽﾖ保托ｿｽｿｽｿｽｿｽｿｽﾛには、IPersistStream.Save ｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/02/11(ｿｽy) 03:01:55
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽいｿｽ試ｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌｿｽｿｽxｿｽｿｽｿｽ落とゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ?
Picture ｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽﾖ保托ｿｽｿｽｿｽｿｽｿｽﾛには、IPersistStream.Save ｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽﾌ的ｿｽﾉどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔｢ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾜゑｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ`ｿｽｿｽｿｽiｿｽgｿｽｿｽｿｽqｿｽjｿｽﾍ会ｿｽｿｽﾉなゑｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾈみに、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@VB5ｿｽ@ｿｽﾈので、ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/02/11(ｿｽy) 15:36:32
IPersistStream ｿｽﾍ、ｿｽwｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽxｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽ.NET ｿｽｿｽ VB ｿｽﾉは、ｿｽCｿｽｿｽｿｽ^ｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽ@ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟ、
ｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽ^ｿｽCｿｽvｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽQｿｽﾆ設定しｿｽｿｽ
ｿｽｿｽｿｽpｿｽｿｽｿｽ骼厄ｿｽﾉなゑｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ黷ｳｿｽｿｽｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾎ、ｿｽｿｽｿｽﾆゑｿｽ
Dim P As IPersistStream
Set P = (ｿｽCｿｽﾓゑｿｽPictureｿｽIｿｽuｿｽWｿｽFｿｽNｿｽg) 'Form1.Icont ｿｽﾆゑｿｽ LoadPicture ｿｽﾌ鯉ｿｽｿｽﾊとゑｿｽ
P.Save ｿｽﾛ托ｿｽｿｽｿｽﾌスｿｽgｿｽｿｽｿｽ[ｿｽｿｽ, False
ｿｽﾌようｿｽﾉゑｿｽｿｽﾄ暦ｿｽｿｽpｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽｿｽAｿｽ^ｿｽCｿｽvｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽさｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAVB5ｿｽﾌイｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽCDｿｽｿｽ
Shelllnk ｿｽtｿｽHｿｽｿｽｿｽ_ｿｽﾉ、ODL(ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ`ｿｽｿｽｿｽｿｽ)ｿｽﾅ擾ｿｽｿｽｿｽｿｽ黷ｽｿｽ^ｿｽCｿｽvｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽ黷ｪｿｽQｿｽlｿｽﾉなゑｿｽﾅゑｿｽｿｽ蛯､ｿｽB
# ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは、IPersistStream ｿｽﾌ抵ｿｽ`ｿｽﾍ載ゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで、
# odl ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
> ｿｽﾜゑｿｽｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽ`ｿｽｿｽｿｽiｿｽgｿｽｿｽｿｽqｿｽjｿｽﾍ会ｿｽｿｽﾉなゑｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽgｿｽｿｽｿｽqｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽAｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ抵ｿｽｿｽgｿｽｿｽｿｽﾏゑｿｽｿｽけｿｽﾅは厄ｿｽｿｽｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽﾇゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽRｿｽﾉ鯉ｿｽｿｽﾟてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽ鞫懶ｿｽｿｽｿｽｿｽﾌまま保托ｿｽｿｽｿｽｿｽｿｽ鼾(SavePicture ｿｽｿｽ IPersistStream.Save ｿｽﾈどゑｿｽ)ｿｽﾍ、
Picture ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ難ｿｽeｿｽﾉゑｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾟてゑｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Picture ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ Type ｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ vbPicTypeBitmap (=1)ｿｽｿｽ
ｿｽﾔゑｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、ｿｽｿｽｿｽｿｽｿｽｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾈのゑｿｽ bmp ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽA
vbPicTypeIcon (=3) ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽAico ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ良ゑｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
K.J.K. 2006/02/11(ｿｽy) 16:03:39
IPersistStreamｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽAIPicture.SaveAsFileｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽ
ｿｽｿｽｿｽlｿｽﾌゑｿｽｿｽﾆはでゑｿｽｿｽﾜゑｿｽｿｽBｿｽOｿｽﾌゑｿｽｿｽﾟ。
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/02/11(ｿｽy) 16:46:21
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽEｿｽ^ｿｽCｿｽvｿｽｿｽｿｽCｿｽuｿｽｿｽｿｽｿｽ
ｿｽEｿｽﾛ托ｿｽｿｽｿｽﾌスｿｽgｿｽｿｽｿｽ[ｿｽｿｽ
ｿｽEODL(ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ`ｿｽｿｽｿｽｿｽ)
ｿｽSｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
aaa.bmp
bbb.txt
ｿｽｿｽｿｽｿｽ2ｿｽﾂのフｿｽ@ｿｽCｿｽｿｽｿｽｿｽ1ｿｽﾂに搾ｿｽｿｽﾌゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌにゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/02/11(ｿｽy) 17:08:11
ｿｽｿｽｿｽ@ｿｽﾆ擾ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾈので、ｿｽｿｽｿｽﾎゑｿｽ
aaa.bmp
bbb.txt
ｿｽｿｽｿｽｿｽ2ｿｽﾂのフｿｽ@ｿｽCｿｽｿｽｿｽｿｽ1ｿｽﾂに搾ｿｽｿｽﾌゑｿｽｿｽA
ccc.ccc
ｿｽﾆゑｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾍどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽｿｽﾄび出ｿｽｿｽｿｽﾄ、
picture1.picture
text1.text
ｿｽﾉ値ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜで。
ｿｽｿｽｿｽ竄ｪｿｽﾃゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾋ？
ｿｽｿｽｿｽﾝまゑｿｽｿｽがゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
dark 2006/02/11(ｿｽy) 17:15:43
ｿｽｿｽｿｽ黷ｾｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌに、ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽAｿｽA
ｿｽfｿｽｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ成ｿｽﾋ暦ｿｽｿｽﾈゑｿｽﾎ、ｿｽｿｽｿｽｿｽ払ゑｿｽｿｽﾄつゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
(ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB)
K.J.K. 2006/02/12(ｿｽｿｽ) 00:37:07
Windows DIB ｿｽ`ｿｽｿｽｿｽｿｽBitmapｿｽﾈゑｿｽﾎ、ｿｽwｿｽbｿｽ_ｿｽ[ｿｽ調べゑｿｽﾎフｿｽ@ｿｽCｿｽｿｽｿｽｿｽ
ｿｽTｿｽCｿｽYｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽBｿｽﾅゑｿｽｿｽｿｽｿｽｿｽA
ｿｽﾛ托ｿｽｿｽｿｽｿｽﾉは、ｿｽﾜゑｿｽSavePictureｿｽﾅ画像ｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌフｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽ
ｿｽﾈゑｿｽｿｽｿｽｿｽﾄ、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ厄ｿｽｿｽｿｽｿｽｿｽｿｽ逡ｶｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾞ。
ｿｽﾇみ搾ｿｽｿｽﾝ趣ｿｽｿｽﾉは、ｿｽwｿｽbｿｽ_ｿｽ[ｿｽ調べて、ｿｽﾇゑｿｽｿｽﾜでゑｿｽｿｽ鞫懶ｿｽｿｽｿｽｿｽｿｽすｿｽfｿｽ[ｿｽ^
=ｿｽﾇゑｿｽｿｽｿｽｿｽ轤ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽすｿｽfｿｽ[ｿｽ^ｿｽﾈのゑｿｽｿｽ調べて、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ逡ｶｿｽｿｽｿｽｿｽｿｽ
ｿｽﾇみ搾ｿｽｿｽﾝ、ｿｽｿｽｿｽﾌ鯉ｿｽｿｽLoadPictureｿｽﾅ画像ｿｽｿｽﾇみ搾ｿｽｿｽﾞ。
ｿｽﾆゑｿｽｿｽ驍ｮｿｽ轤｢ｿｽﾅゑｿｽAｿｽﾆりあｿｽｿｽｿｽｿｽｿｽﾍ用ｿｽｿｽｿｽ満ゑｿｽｿｽｿｽｿｽｿｽｿｽﾆになゑｿｽﾌでは。
ｿｽｿｽｿｽﾈみに、ｿｽwｿｽbｿｽ_ｿｽ[ｿｽﾉ関ゑｿｽｿｽﾄは、MSDNｿｽﾈどゑｿｽBITMAPFILEHEADERｿｽｿｽ
BITMAPINFOHEADERｿｽ¥ｿｽｿｽｿｽﾌなどにつゑｿｽｿｽﾄ抵ｿｽｿｽﾗてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/02/12(ｿｽｿｽ) 23:21:05
ｿｽｿｽｿｽｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌは間茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽｿｽﾅ考ｿｽｿｽｿｽﾄみまゑｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽﾆ、darkｿｽｿｽｿｽｿｽﾆ、K.J.K.ｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2006/02/13(ｿｽｿｽ) 11:06:11
ｿｽ闌ｳｿｽｿｽ VB4 ｿｽﾂ具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽﾅ作成ｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ轤ｭ VB5 ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽQｿｽlｿｽﾉなゑｿｽﾎ。
'==================================================
Option Explicit
Option Base 0
Private Const DataFileName As String = "C:¥SAMPLE.DATA"
'--------------------------------------------------
Private Sub Command1_Click()
Set Image1.Picture = LoadPicture()
On Error Resume Next
Set Image1.Picture = Clipboard.GetData()
If Err.Number <> 0 Then
MsgBox Err.Description, vbInformation
End If
End Sub
'--------------------------------------------------
Private Sub Command2_Click()
On Error Resume Next
SaveToFile DataFileName, Image1.Picture, Text1.Text
If Err.Number = 0 Then
MsgBox "ｿｽｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB", vbInformation
Else
MsgBox Err.Description, vbInformation
End If
End Sub
'--------------------------------------------------
Private Sub Command3_Click()
Dim ImageText As Variant
Set Image2.Picture = LoadPicture()
Text2.Text = ""
On Error Resume Next
Set Image2.Picture = LoadFromFile(DataFileName, ImageText)
If Err.Number = 0 Then
Text2.Text = CStr(ImageText)
MsgBox "ｿｽｿｽｿｽｿｽﾉ読み搾ｿｽｿｽﾜゑｿｽﾜゑｿｽｿｽｿｽｿｽB", vbInformation
Else
MsgBox Err.Description, vbInformation
End If
End Sub
'--------------------------------------------------
Private Sub Form_Load()
Command1.Caption = "ｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌ読み搾ｿｽｿｽｿｽ"
Command2.Caption = "ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾖの保托ｿｽ"
Command3.Caption = "ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾇ搾ｿｽ"
Text1.Text = "ｿｽCｿｽﾓの包ｿｽｿｽｿｽｿｽｿｽ"
Text2.Text = ""
Text2.Locked = True
Set Image1.Picture = LoadPicture()
Set Image2.Picture = LoadPicture()
End Sub
'--------------------------------------------------
Public Sub SaveToFile( _
ByVal FileName As String, _
ByVal Image As Picture, _
Optional Text As Variant)
Dim Binary() As Byte
Binary = ""
'PictureｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽ
Dim WorkFileName As String
Dim ImageSize As Long
WorkFileName = FileName & ".‾image"
If Image Is Nothing Then
Set Image = LoadPicture()
End If
If Image.Type <> 0 Then
SavePicture Image, WorkFileName
'ｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽﾇみ搾ｿｽｿｽｿｽ
Dim WorkFileNo As Integer
WorkFileNo = FreeFile(1)
Open WorkFileName For Binary Access Read As #WorkFileNo
ImageSize = LOF(WorkFileNo)
ReDim Binary(ImageSize - 1)
Get #WorkFileNo, , Binary
Close #WorkFileNo
Kill WorkFileName
End If
'ｿｽfｿｽ[ｿｽ^ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽ
Dim FNo As Integer
FNo = FreeFile(0)
Open FileName For Output Access Write As #FNo
Close #FNo
Open FileName For Binary Access Write As #FNo
'ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ保托ｿｽ
Put #FNo, , ImageSize 'ｿｽ謫ｪ4ｿｽoｿｽCｿｽgｿｽﾉ画像ｿｽTｿｽCｿｽYｿｽｿｽoｿｽｿｽ
Put #FNo, , Binary 'ｿｽｿｽｿｽｿｽｿｽﾄ画像ｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽｿｽoｿｽｿｽ
Put #FNo, , Text 'ｿｽﾅ鯉ｿｽﾉテｿｽLｿｽXｿｽgｿｽｿｽoｿｽｿｽ
Close #FNo
Erase Binary
End Sub
'--------------------------------------------------
Public Function LoadFromFile( _
ByVal FileName As String, _
Optional ByRef Text As Variant) As Picture
If Dir(FileName, vbReadOnly Or vbHidden Or vbSystem) = "" Then
Err.Raise 53, , "No File [" & FileName & "]"
End If
'ｿｽfｿｽ[ｿｽ^ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽ
Dim FNo As Integer
FNo = FreeFile(0)
Open FileName For Binary Access Read As #FNo
'ｿｽfｿｽ[ｿｽ^ｿｽﾌ読み搾ｿｽｿｽｿｽ
Dim ImageSize As Long
Get #FNo, , ImageSize 'ｿｽ謫ｪ4ｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽ鞫懶ｿｽTｿｽCｿｽYｿｽｿｽ謫ｾ
If ImageSize > 0 Then
'ｿｽ鞫懶ｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽ
Dim Binary() As Byte
Dim WorkFileName As String
WorkFileName = FileName & ".‾image"
ReDim Binary(ImageSize - 1)
Get #FNo, , Binary 'ｿｽ鞫懶ｿｽﾌバｿｽCｿｽiｿｽｿｽｿｽｿｽ謫ｾ
'ｿｽ齊橸ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽLoadPictureｿｽﾅ読み搾ｿｽｿｽｿｽ
Dim WorkFileNo As Integer
WorkFileNo = FreeFile(1)
Open WorkFileName For Binary Access Write As #WorkFileNo
Put #WorkFileNo, , Binary
Close #WorkFileNo
Erase Binary
Set LoadFromFile = LoadPicture(WorkFileName)
Kill WorkFileName
End If
'ｿｽﾅ鯉ｿｽﾉ、ｿｽeｿｽLｿｽXｿｽgｿｽｿｽ謫ｾ
If Not EOF(FNo) Then
Get #FNo, , Text
End If
Close #FNo
End Function
'==================================================
# ｿｽvｿｽｿｽｿｽﾔゑｿｽｿｽ VB4 ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽいｿｽｿｽﾆ忘ｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾉ懶ｿｽｿｽRｿｽcｿｽcｿｽB(^^;
## Optional ｿｽｿｽｿｽｿｽｿｽｿｽ String ｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽ VB4 ｿｽﾅは不ｿｽｿｽ
## Optional ｿｽｿｽｿｽｿｽｿｽｿｽ ｿｽKｿｽｿｽl ｿｽｿｽｿｽｿｽ闢厄ｿｽﾄようｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽ VB4 ｿｽﾅは不ｿｽｿｽ
## ｿｽoｿｽCｿｽiｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝゑｿｽ InputB ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽ VB4 ｿｽｿｽ InputB ｿｽﾍ低速
ｿｽｿｽｿｽｿｽﾆゑｿｽ 2006/03/25(ｿｽy) 13:11:25
ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ。
ｿｽvｿｽｿｽｿｽﾔゑｿｽﾉ暦ｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽいｿｽ失ｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌに、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ轤ｪｿｽxｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾆてゑｿｽQｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
