C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: VB2013におけるピクチャーボックスでの描画


(過去ログ 119 を表示中)

[トピック内 2 記事 (1 - 2 表示)]  << 0 >>

■69663 / inTopicNo.1)  VB2013におけるピクチャーボックスでの描画
  
□投稿者/ ななし (1回)-(2014/01/18(Sat) 05:25:02)

分類:[.NET 全般] 

2014/01/18(Sat) 06:59:15 編集(投稿者)
こんばんは。ななしと申します。
現在VBを用いた画像処理プログラムを作成しているのですが、その際にどうしてもわからないところがあったので質問させて頂いた次第でございます。

ピクチャーボックスを走査し、配列aの各座標とi,jの値が等しい時にその座標を白に、それ以外は黒に描画するプログラムを書いたつもりです。
実行してみると1ピクセルしか白にならないのですが、変数checkで分岐に入った数を調べてみたところ300と表示されました。
どこがおかしいのかわかる方がおられましたらお力副えよろしくお願い致します。

Dim i As Integer, j As Integer, n As Integer
Dim check As Integer
Dim a(300,1) As Integer '第二添字の0にはx座標、1にはy座標の値
Dim bBitmap As New Bitmap(PictureBox1.Image)

        check = 0

        For i = 0 To PictureBox1.Image.Width - 1
            For j = 0 To PictureBox1.Image.Height - 1
                For n = 0 To 300
                    If i = a(n, 0) And j = a(n, 1) Then
                        bBitmap.SetPixel(a(n, 0), a(n, 1), Color.White)
                        check += 1
                    Else
                        bBitmap.SetPixel(i, j, Color.Black)
                    End If
                Next
            Next
        Next

        With PictureBox2
            .SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
            .Image = bBitmap
            '変更結果の設定
        End With

        MsgBox("" & check)

引用返信 編集キー/
■69665 / inTopicNo.2)  Re[1]: VB2013におけるピクチャーボックスでの描画
□投稿者/ ななし (2回)-(2014/01/18(Sat) 07:18:24)
自己解決しました。お騒がせしてしまい申し訳ありませんでした。
解決済み
引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -