URLを指定してPNG画像を取り込む方法 (ID:125350)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません、8:10頃の投稿はソースが変なので修正します。 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 ピクセル単位で色を取得して、その色を加工するということを したいと思ってます。