URLｿｽｿｽwｿｽ閧ｵｿｽｿｽPNGｿｽ鞫懶ｿｽｿｽｿｽ闕橸ｿｽﾞ包ｿｽｿｽ@

ｿｽ@

ｿｽ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

ｿｽﾌゑｿｽ 2005/09/15(ｿｽｿｽ) 01:11:04

VB6ｿｽｿｽgｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

URLｿｽｿｽwｿｽ閧ｵｿｽｿｽPNGｿｽ鞫懶ｿｽｿｽｿｽ闕橸ｿｽﾞ包ｿｽｿｽ@ｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾝゑｿｽ

URLDownloadToFile() ｿｽﾅ茨ｿｽUｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽA
GDI+ ｿｽ利用ｿｽｿｽｿｽｿｽPictureBoxｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽ数ゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽTｿｽｿｽｿｽﾄまゑｿｽｿｽB
OleLoadPicturePath()ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAPNGｿｽﾍ読み搾ｿｽｿｽﾟまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迢ｳｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽﾅ終ｿｽIｿｽﾉは画像ｿｽﾌピｿｽNｿｽZｿｽｿｽｿｽPｿｽﾊのマｿｽgｿｽｿｽｿｽbｿｽNｿｽXｿｽｿｽｿｽ‾ｿｽｿｽｿｽｿｽｿｽﾌで、
PictureBoxｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾊにゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾊゑｿｽｿｽﾄみゑｿｽ 2005/09/15(ｿｽｿｽ) 01:32:10

ｿｽﾇゑｿｽﾈ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽAｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽﾌには変ゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽ
ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉゑｿｽｿｽ驍ｩｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ読み搾ｿｽｿｽｿｽﾅゑｿｽｿｽﾌまま表ｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽﾌ違いｿｽｿｽｿｽEｿｽEｿｽE

ｿｽ¥ｿｽｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾎ、WebBrowserｿｽｿｽgｿｽｿｽｿｽﾎ楽ｿｽｿｽｿｽｿｽｿｽ

ｿｽ鞫懶ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽNavigateｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽA
>>ｿｽﾅ終ｿｽIｿｽﾉは画像ｿｽﾌピｿｽNｿｽZｿｽｿｽｿｽPｿｽﾊのマｿｽgｿｽｿｽｿｽbｿｽNｿｽXｿｽｿｽｿｽ‾ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾈるかｿｽsｿｽｿｽ

ｿｽﾌゑｿｽ 2005/09/15(ｿｽｿｽ) 08:10:39

ｿｽﾊゑｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆは、ｿｽﾈ会ｿｽｿｽﾌ様ｿｽﾉピｿｽNｿｽZｿｽｿｽｿｽPｿｽﾊで色ｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

Dim col(100,100) as long

For x = 0  To picbefore.ScaleWidth
    For y = 0 To picbefore.ScaleHeight
        col(x,y) = GetPixel(picbefore.hdc, intx, inty)
    Next
Next
If col(x,y) = vbWhite then co(x,y) = vbBlack

ｿｽｿｽLｿｽﾌようｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAJPEGｿｽｿｽBMPｿｽﾈどでゑｿｽｿｽｿｽ
URLｿｽｿｽwｿｽ閧ｵｿｽﾄ抵ｿｽｿｽｿｽPictureBoxｿｽﾉ描ｿｽｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
PNGｿｽｿｽｿｽﾆ包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽUｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ保托ｿｽｿｽｿｽｿｽｿｽ
GDI+ｿｽﾅ読み搾ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB

colｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽ成ｿｽﾅゑｿｽｿｽｿｽﾎ、ｿｽﾇゑｿｽﾈ包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
PictureBoxｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｨｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾊゑｿｽｿｽﾄみゑｿｽ 2005/09/15(ｿｽｿｽ) 09:16:01

ｿｽﾜゑｿｽVB6.0ｿｽﾅゑｿｽBMPｿｽAGIFｿｽAJpegｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾍ托ｿｽｿｽvｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽﾇ、PNGｿｽﾍゑｿｽｿｽﾌままゑｿｽｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽかゑｿｽﾋゑｿｽｿｽEｿｽEｿｽE

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ読み搾ｿｽｿｽだ趣ｿｽｿｽ_ｿｽｿｽPNGｿｽﾌ茨ｿｽｿｽkｿｽｿｽWｿｽJｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽPictureBoxｿｽﾖ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾝでゑｿｽｿｽｿｽﾎフｿｽ@ｿｽCｿｽｿｽｿｽｿｽさｿｽﾈゑｿｽｿｽﾄゑｿｽﾅゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽｿｽPNGｿｽﾌ仕ｿｽlｿｽ理会ｿｽｿｽｿｽﾄ独趣ｿｽｿｽﾉ展ｿｽJｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽﾍ難しｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽ

K.J.K. 2005/09/15(ｿｽｿｽ) 10:14:27

ｿｽﾞゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ使ｿｽｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽﾍ托ｿｽｿｽXｿｽｿｽｿｽ驍ｯｿｽｿｽﾇゑｿｽA
http://www.koalanet.ne.jp/‾akiya/vbtaste/vbp/PictView.lzh
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽﾆゑｿｽAGDI+ｿｽｿｽgｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、URLOpenBlockingStream
ｿｽﾆ組ｿｽﾝ搾ｿｽｿｽせｿｽｿｽﾎゑｿｽｿｽﾌままででゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽﾌゑｿｽ 2005/09/15(ｿｽｿｽ) 12:29:01

ｿｽﾊゑｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
K.J.K.ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
K.J.K.ｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽPNGｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽﾝ、
PictureBoxｿｽﾖ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽﾇみ搾ｿｽｿｽｿｽPictureBoxｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽ

http://www.libpng.org/pub/png/img_png/pnglogo-blk-sml1.png
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽURLｿｽｿｽwｿｽ閧ｵｿｽｿｽPictureBoxｿｽﾖ表ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽcolｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽﾅゑｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾌゑｿｽ 2005/09/15(ｿｽｿｽ) 12:55:10

ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽA8:10ｿｽｿｽｿｽﾌ難ｿｽｿｽeｿｽﾍソｿｽ[ｿｽXｿｽｿｽｿｽﾏなので修ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Dim col(100,100) as long

For x = 0  To Picture1.ScaleWidth
    For y = 0 To Picture1.ScaleHeight
ｿｽ@ｿｽ@ｿｽ@ｿｽ@col(x, y) = GetPixel(Picture1.hdc, x, y)
        if col(x, y) = vbWhite then col(x, y) = vbBlack
    Next
Next

ｿｽsｿｽNｿｽZｿｽｿｽｿｽPｿｽﾊで色ｿｽｿｽ謫ｾｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽﾌ色ｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄまゑｿｽｿｽB

GDI+ 2005/09/16(ｿｽｿｽ) 12:02:47

> GDI+ｿｽｿｽgｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、URLOpenBlockingStream
> ｿｽﾆ組ｿｽﾝ搾ｿｽｿｽせｿｽｿｽﾎゑｿｽｿｽﾌままででゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽﾆゑｿｽｿｽｿｽｿｽAｿｽLｿｽﾍ回答ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽだゑｿｽｿｽｿｽAGDI+ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽGDI+ｿｽ¥ｿｽ[ｿｽXｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽB

ｿｽﾌゑｿｽ 2005/09/16(ｿｽｿｽ) 20:48:11

GDI+ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽﾇゑｿｽｿｽwｿｽEｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾉ没ｿｽｿｽｿｽｿｽｿｽ驍ｿｽﾜゑｿｽAURLOpenBlockingStream ｿｽﾌゑｿｽｿｽﾆゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
URLOpenBlockingStream ｿｽｿｽgｿｽｿｽｿｽﾄなゑｿｽﾆゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾈ会ｿｽｿｽ¥ｿｽ[ｿｽXｿｽｿｽ¥ｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾈどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB

Option Explicit
Private Type tagPicBmp
    Size            As Long
    Type            As Long
    hBmp            As Long
    hPal            As Long
    Reserved        As Long
End Type

Private Type tagGUID
    Data1           As Long
    Data2           As Integer
    Data3           As Integer
    Data4(0 To 7)   As Byte
End Type
Private Declare Function GdipCreateBitmapFromStream Lib "gdiplus" ( _
        ByVal Stream As Long, bitmap As Long) As Long
Private Declare Function URLOpenBlockingStream Lib "urlmon" Alias "URLOpenBlockingStreamA" _
                                (ByVal pCaller As IUnknown, _
                                 ByVal szURL As String, _
                                 ppStream As Long, _
                                 ByVal dwResv As Long, _
                                 ByVal lpfnCB As IUnknown) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
                                (lpPictDesc As tagPicBmp, _
                                 riid As tagGUID, _
                                 ByVal fPictureOwnsHandle As Long, _
                                 ipic As IPicture) As Long
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" _
                                (ByVal hInst As Long, _
                                 ByVal lpszName As Long, _
                                 ByVal uType As Long, _
                                 ByVal cxDesired As Long, _
                                 ByVal cyDesired As Long, _
                                 ByVal fuLoad As Long) As Long
                                 Private Type GdiplusStartupInput
    GdiplusVersion              As Long
    DebugEventCallback          As Long
    SuppressBackgroundThread    As Long
    SuppressExternalCodecs      As Long
End Type
Private Declare Function GdiplusStartup Lib "gdiplus" _
                                (ByRef token As Long, _
                                 ByRef inputbuf As GdiplusStartupInput, _
                                 ByRef outputbuf As Long) As Long
Private Declare Function GdiplusShutdown Lib "gdiplus" _
                                (ByVal token As Long) As Long

Private Declare Function GdipCreateBitmapFromFile Lib "gdiplus" _
                                (ByVal filename As Long, _
                                 ByRef bitmap As Long) As Long
Private Declare Function GdipCreateHBITMAPFromBitmap Lib "gdiplus" _
                                (ByVal bitmap As Long, _
                                 ByRef hbmReturn As Long, _
                                 ByVal background As Long) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" _
                                (ByVal image As Long) As Long

Public Function URLLoadPNGPicture(ByVal strFileName As String) As Picture
    Dim gsi As GdiplusStartupInput
    Dim rslt As Long
    Dim lngGdiPlusTolen As Long
    Dim lngBitmap As Long
    Dim hBitmap As Long

    ' ｿｽ¥ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ
    With gsi
        .GdiplusVersion = 1
        .DebugEventCallback = 0
        .SuppressBackgroundThread = 0
        .SuppressExternalCodecs = 0
    End With

    'GDI+ｿｽｿｽｿｽｿｽｿｽｿｽ
    Dim oStream As Long
    rslt = GdiplusStartup(lngGdiPlusTolen, gsi, 0)
    If rslt = 0 Then
        'ｿｽCｿｽｿｽｿｽ[ｿｽWｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾌ読み搾ｿｽｿｽｿｽ
        rslt = URLOpenBlockingStream(Nothing, strFileName, oStream, 0, Nothing)
        If rslt = 0 Then
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@'GDIｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽｿｽ成ｿｽｿｽｿｽｿｽB
            rslt = GdipCreateBitmapFromStream(oStream, lngBitmap)
            If rslt = 0 Then
                'GDIｿｽrｿｽbｿｽgｿｽ}ｿｽbｿｽvｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ成ｿｽｿｽｿｽｿｽB
                rslt = GdipCreateHBITMAPFromBitmap(lngBitmap, hBitmap, 0)

                'ｿｽsｿｽNｿｽ`ｿｽｿｽｿｽ[ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾉ変奇ｿｽｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽB
                Set URLLoadPNGPicture = ConvertBitmap(hBitmap)

                'ｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽ[ｿｽWｿｽｿｽJｿｽｿｽｿｽｿｽｿｽｿｽB
                Call GdipDisposeImage(lngBitmap)
            End If
        End If
        Call GdiplusShutdown(lngGdiPlusTolen)
    End If
    If rslt Then Err.Raise 481, , "ｿｽGｿｽｿｽｿｽ["
End Function

Private Sub Command1_Click()
    Dim urlName As String

    urlName = "http://www.libpng.org/pub/png/img_png/pnglogo-blk-sml1.png"
    Picture1.BorderStyle = 0    ' ｿｽﾈゑｿｽ
    Picture1.AutoRedraw = True
    Set Picture1.Picture = URLLoadPNGPicture(urlName)

Exit Sub

ｿｽﾊゑｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽｿｽ K.J.K.ｿｽｿｽｿｽｿｽ GDI+ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ

Created by board of various Programming Library.