VB6で、PictureBoxへの描画 (ID:92100)

名前

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

本文 VB6で計算結果の描画を行いたいと思っています。 計算結果はarray(x,y)のそれぞれの要素に値が入っており、この値に相当する色を使って →x ↓ (1,1) (2,1) y (2,1) (2,2) の形で表示させたいと思っています。(x,yは数値入力で得る) そこで、FormにPictureBoxを配置して Picture1.ScaleMode = vbPixels Picture1.Scale (0, 0)-(x, y) Picture1.DrawWidth = 1 For n = 1 To y For i = 1 To x If array(i, n) <= 0# Then '黒 red = 0 green = 0 blue = 0 ElseIf picarray(i, n) <= 1# Then red = 256 green = 0 blue = 0 ElseIf picarray(i, n) > 2# Then red = 0 green = 0 blue = 256 End If Picture1.PSet (i, n), RGB(red, green, blue) Next Next としてみたのですが、意図した通りに表示されませんでした。 gnuplotを使って無理矢理3Dグラフを作成してデータが間違っていないことは確認しました。 しかも、この表示方法はかなり時間がかかってしまうので、他に良い方法は無いかと考えています。 アドバイスをお願い致します。